view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Acme-Blarghy-McBlarghBlargh.tar.gz
blarghymcblarghblargh.pl
inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Scripts.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
lib/Acme/Blarghy/McBlarghBlargh.pm
Makefile.PL
MANIFEST                        This list of files
META.yml
README
script/blarghymcblarghblargh.pl
t/blargh.t

inc/Module/Install/Metadata.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#line 1
package Module::Install::Metadata;
 
use strict 'vars';
use Module::Install::Base;
 
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
        $VERSION = '0.79';
        $ISCORE  = 1;
        @ISA     = qw{Module::Install::Base};
}

inc/Module/Install/Metadata.pm  view on Meta::CPAN

306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
        my $type = shift;
        push @{ $self->{values}{no_index}{$type} }, @_ if $type;
        return $self->{values}{no_index};
}
 
sub read {
        my $self = shift;
        $self->include_deps( 'YAML::Tiny', 0 );
 
        require YAML::Tiny;
        my $data = YAML::Tiny::LoadFile('META.yml');
 
        # Call methods explicitly in case user has already set some values.
        while ( my ( $key, $value ) = each %$data ) {
                next unless $self->can($key);
                if ( ref $value eq 'HASH' ) {
                        while ( my ( $module, $version ) = each %$value ) {
                                $self->can($key)->($self, $module => $version );
                        }
                } else {
                        $self->can($key)->($self, $value);
                }
        }
        return $self;