/usr/share/perl5/Algorithm/Dependency/Source/HoA.pm is in libalgorithm-dependency-perl 1.110-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package Algorithm::Dependency::Source::HoA;
=pod
=head1 NAME
Algorithm::Dependency::Source::HoA - Source for a HASH of ARRAYs
=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.
=cut
use 5.005;
use strict;
use Algorithm::Dependency::Source ();
use Params::Util qw{_HASH _ARRAY0};
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '1.110';
@ISA = 'Algorithm::Dependency::Source';
}
#####################################################################
# Constructor
=pod
=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.
=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;
=pod
=head1 SUPPORT
To file a bug against this module, use the CPAN bug tracking system
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Algorithm-Dependency>
For other comments, contact the author.
=head1 AUTHOR
Adam Kennedy <adamk@cpan.org>
=head1 SEE ALSO
L<Algorithm::Dependency>, L<Algorithm::Dependency::Source>
=head1 COPYRIGHT
Copyright 2003 - 2009 Adam Kennedy.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this module.
=cut
|