package Favorites
@ISA = qw()

sub new
my ($module, $path) = @_;
return $self;

sub Favorite
return shift->{FAVORITE};

sub URL
return shift->{URL};

sub Title
return shift->{TITLE};

sub Read
my ($this, $path) = @_;
return 0;
return 1;

sub url
my $self = shift;
		$self->{URL} = 
return $self->{URL};

sub title
my $self = shift;
		$self->{TITLE} = 
return $self->{TITLE};

sub memo
my $self = shift;
		@{ $self->{MEMO} } = 
return @{ $self->{MEMO} };