File Coverage

blib/lib/JSAN/Librarian/Book.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	30	33	90.9

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;