view release on metacpan or  search on metacpan

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

397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
sub _version ($) {
        my $s = shift || 0;
        my $d =()= $s =~ /(\.)/g;
        if ( $d >= 2 ) {
                # Normalise multipart versions
                $s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
        }
        $s =~ s/^(\d+)\.?//;
        my $l = $1 || 0;
        my @v = map {
                $_ . '0' x (3 - length $_)
        } $s =~ /(\d{1,3})\D?/g;
        $l = $l . '.' . join '', @v if @v;
        return $l + 0;
}
 
sub _cmp ($$) {
        _version($_[0]) <=> _version($_[1]);
}
 
# Cloned from Params::Util::_CLASS

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

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
        for my $subdir (@_) {
                push @$subdirs, $subdir;
        }
}
 
sub clean_files {
        my $self  = shift;
        my $clean = $self->makemaker_args->{clean} ||= {};
          %$clean = (
                %$clean,
                FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
        );
}
 
sub realclean_files {
        my $self      = shift;
        my $realclean = $self->makemaker_args->{realclean} ||= {};
          %$realclean = (
                %$realclean,
                FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
        );
}
 
sub libs {
        my $self = shift;
        my $libs = ref $_[0] ? shift : [ shift ];
        $self->makemaker_args( LIBS => $libs );
}
 
sub inc {