package URI::Bookmark::Entry;

use strict;

use base qw(URI::Bookmark);

use vars qw(%_allowed_attribs);

my @allowed_attribs = (qw/
                          href
                          newitemheader
                          add_date
                          last_visit
                          last_modified
                          aliasid
                          aliasof
                          description
                         /,
                       # for Mozilla
                       'last_charset');
%_allowed_attribs = map { $_ => 1 } @allowed_attribs;

sub attrib_allowed {
  my ($self, $attrib) = @_;
  return $_allowed_attribs{$attrib};
}

sub _init {
  my ($self, $attrs) = @_;
  $self->set_attribs($attrs);
}

sub type { 'bookmark' }

1;