File Coverage

blib/lib/Algorithm/Dependency/Source/HoA.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	8	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	35	39	89.7

package Algorithm::Dependency::Source::HoA;
# ABSTRACT: Source for a HASH of ARRAYs

#pod =pod
#pod
#pod =head1 SYNOPSIS
#pod
#pod   # The basic data structure
#pod   my $deps = {
#pod       foo => [ 'bar', 'baz' ],
#pod       bar => [],
#pod       baz => [ 'bar' ],
#pod       };
#pod
#pod   # Create the source from it
#pod   my $Source = Algorithm::Dependency::Source::HoA->new( $deps );
#pod
#pod =head1 DESCRIPTION
#pod
#pod C implements a
#pod L where the items names are provided
#pod in the most simple form, a reference to a C of C references.
#pod
#pod =head1 METHODS
#pod
#pod This documents the methods differing from the ordinary
#pod L methods.
#pod
#pod =cut

use 5.005;
use strict;
use Algorithm::Dependency::Source ();
use Params::Util qw{_HASH _ARRAY0};

our $VERSION = '1.111';
our @ISA     = 'Algorithm::Dependency::Source';


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

#pod =pod
#pod
#pod =head2 new $filename
#pod
#pod When constructing a new C object, an
#pod argument should be provided of a reference to a HASH of ARRAY references,
#pod containing the names of other HASH elements.
#pod
#pod Returns the object, or C if the structure is not correct.
#pod
#pod =cut

sub new {
	my $class = shift;
	my $hash  = _HASH(shift) or return undef;
	foreach my $deps ( values %$hash ) {
		_ARRAY0($deps) or return undef;
	}

	# Get the basic source object
	my $self = $class->SUPER::new() or return undef;

	# Add our arguments
	$self->{hash} = $hash;

	$self;
}





#####################################################################
# Private Methods

sub _load_item_list {
	my $self = shift;

	# Build the item objects from the data
	my $hash  = $self->{hash};
	my @items = map {
		Algorithm::Dependency::Item->new( $_, @{$hash->{$_}} )
		or return undef;
		} keys %$hash;

	\@items;
}

1;

__END__