package Library;

sub new {
    my ($class, $fname) = @_;
    my $self = {
	library => undef
    };
    bless $self, $class;

    my $lib     = Data::Container->new();
    my $libfile = Data::File->new($fname);
    $lib->read($libfile);
    
    ($self->{library}) = ($lib->get_list("library"));

    return $self;
}

sub get_list {
    my ($self, @keywords) = @_;
    return $self->{lib}->get_list(@keywords);
}