XML::XBEL::Bookmark - OOP for reading and writing XBEL bookmarks.

XML-XBEL documentation Contained in the XML-XBEL distribution.

Index

Code Index:

NAME

Top

XML::XBEL::Bookmark - OOP for reading and writing XBEL bookmarks.

SYNOPSIS

Top

 use XML::XBEL::Bookmark;

DESCRIPTION

Top

OOP for reading and writing XBEL bookmarks.

PACKAGE METHODS

Top

__PACKAGE__->new(\%args)

Valid args are:

* title

String.

* href

String.

* id

String.

* desc

String.

* added

String.

* modified

String.

* visited

String.

* info

Hash ref, with the following key/value pairs :

* owner

Array ref.

Returns a XML::XBEL::Bookmark object.

OBJECT METHODS

Top

$obj->href(href)

Get/set the href attribute for an XBEL bookmark.

If modified, the object's modified method is automatically called with the current datetime.

$obj->title($title)

Get/set the title for an XBEL bookmark.

If modified, the object's modified method is automatically called with the current datetime.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->desc($description)

Get/set the description for an XBEL bookmark.

If modified, the object's modified method is automatically called with the current datetime.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->info(\%args)

Get/set the metadata for an XBEL document.

Valid args are :

* owner

Array reference

Returns an array reference when called with no arguments; otherwise returns true or false.

$obj->id($id)

Get/set the id attribute for an XBEL bookmark.

If modified, the object's modified method is automatically called with the current datetime.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->added($datetime)

Get/set the creation datetime for an XBEL bookmark.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->modified($datetime)

Get/set the last modified datetime for an XBEL bookmark.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->visited($datetime)

Get/set the last visited datetime for an XBEL bookmark.

Returns a string when called with no arguments; otherwise returns true or false.

$obj->toString($format)

$obj->toFile($filename,$format)

$obj->toFH(\*$fh,$format)

VERSION

Top

$Revision: 1.4 $

DATE

Top

$Date: 2004/06/23 06:23:57 $

AUTHOR

Top

Aaron Straup Cope <ascope@cpan.org>

SEE ALSO

Top

XML::XBEL

XML::XBEL::Folder

XML::XBEL::Alias

XML::XBEL::Separator

LICENSE

Top

Copyright (c) 2004 Aaron Straup Cope. All rights reserved.

This is free software, you may use it and distribute it under the same terms as Perl itself.

XML-XBEL documentation Contained in the XML-XBEL distribution. 
use strict;
package XML::XBEL::Bookmark;

use base qw (XML::XBEL::thingy
	     XML::XBEL::item
	     XML::XBEL::url
	     XML::XBEL::node
	     XML::XBEL::serialize);

# $Id: Bookmark.pm,v 1.4 2004/06/23 06:23:57 asc Exp $


use XML::LibXML;


sub new {
    my $pkg  = shift;
    my $args = shift;

    my $root = XML::LibXML::Element->new("bookmark");
    my $self = bless {'__root' => $root }, $pkg;

    foreach my $el ("title","href","id","desc","added","info","modified","visited") {

	if (! exists($args->{$el})) {
	    next;
	}

	$self->$el($args->{$el});
    }

    if (! $self->added()) {
	$self->added($self->_now());
    }

    return $self;
}


sub href {
    my $self = shift;
    my $href = shift;

    if (defined($href)) {
	$self->modified($self->_now());
    }

    return $self->SUPER::href($href);
}


sub title {
    my $self = shift;
    my $title = shift;

    if (defined($title)) {
	$self->modified($self->_now());
    }

    return $self->SUPER::title($title);
}


# Defined in XML::XBEL::item


sub id {
    my $self = shift;
    my $id   = shift;

    if (defined($id)) {
	$self->modified($self->_now());
    }

    return $self->SUPER::id($id);
}


# Defined in XML::XBEL::node


# Defined in XML::XBEL::url


# Defined in XML::XBEL::url


# Defined in XML::XBEL::serialize


# Defined in XML::XBEL::serialize


# Defined in XML::XBEL::serialize


return 1;