package URI::Bookmark::Folder;

use strict;

use base qw(URI::Bookmark);

use vars qw(%_allowed_attribs);

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

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

sub add_node {
  my ($self, $new_node) = @_;
  $self->add_daughter($new_node);
}

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

sub type { 'folder' }

1;