/usr/local/CPAN/JSAN-Librarian/JSAN/Librarian/Book.pm

• package JSAN::Librarian::Book
  • new
  • path
• EOF

package JSAN::Librarian::Book;

# Implements a JavaScript::Librarian::Book. In our case, the id IS the path

use strict;
use Params::Util '_HASH0';
use JavaScript::Librarian::Book;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.03';
	@ISA     = 'JavaScript::Librarian::Book';
}





#####################################################################
# Constructor

sub new {
	my $class = shift;
	my $path  = shift or return undef;
	my $deps  = _HASH0(shift) or return undef;

	# Create the object
	my $self = bless {
		id      => $path,
		depends => [ keys %$deps ],
		}, $class;

	$self;
}

sub path { $_[0]->{id} }

1;