1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
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<Algorithm::Dependency::Source::HoA> implements a
#pod L<source|Algorithm::Dependency::Source> where the items names are provided
#pod in the most simple form, a reference to a C<HASH> of C<ARRAY> references.
#pod
#pod =head1 METHODS
#pod
#pod This documents the methods differing from the ordinary
#pod L<Algorithm::Dependency::Source> methods.
#pod
#pod =cut
use 5.005;
use strict;
use Algorithm::Dependency::Source ();
use Params::Util qw{_HASH _ARRAY0};
our $VERSION = '1.112';
our @ISA = 'Algorithm::Dependency::Source';
#####################################################################
# Constructor
#pod =pod
#pod
#pod =head2 new $filename
#pod
#pod When constructing a new C<Algorithm::Dependency::Source::HoA> 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<undef> 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__
=pod
=encoding UTF-8
=head1 NAME
Algorithm::Dependency::Source::HoA - Source for a HASH of ARRAYs
=head1 VERSION
version 1.112
=head1 SYNOPSIS
# The basic data structure
my $deps = {
foo => [ 'bar', 'baz' ],
bar => [],
baz => [ 'bar' ],
};
# Create the source from it
my $Source = Algorithm::Dependency::Source::HoA->new( $deps );
=head1 DESCRIPTION
C<Algorithm::Dependency::Source::HoA> implements a
L<source|Algorithm::Dependency::Source> where the items names are provided
in the most simple form, a reference to a C<HASH> of C<ARRAY> references.
=head1 METHODS
This documents the methods differing from the ordinary
L<Algorithm::Dependency::Source> methods.
=head2 new $filename
When constructing a new C<Algorithm::Dependency::Source::HoA> object, an
argument should be provided of a reference to a HASH of ARRAY references,
containing the names of other HASH elements.
Returns the object, or C<undef> if the structure is not correct.
=head1 SEE ALSO
L<Algorithm::Dependency>, L<Algorithm::Dependency::Source>
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Algorithm-Dependency>
(or L<bug-Algorithm-Dependency@rt.cpan.org|mailto:bug-Algorithm-Dependency@rt.cpan.org>).
=head1 AUTHOR
Adam Kennedy <adamk@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2003 by Adam Kennedy.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
