/usr/share/perl5/Perl/PrereqScanner/Scanner/Perl5.pm is in libperl-prereqscanner-perl 1.008-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 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 159 160 161 162 163 164 165 166 167 | use strict;
use warnings;
package Perl::PrereqScanner::Scanner::Perl5;
{
$Perl::PrereqScanner::Scanner::Perl5::VERSION = '1.008';
}
use Moose;
with 'Perl::PrereqScanner::Scanner';
# ABSTRACT: scan for core Perl 5 language indicators of required modules
sub scan_for_prereqs {
my ($self, $ppi_doc, $req) = @_;
# regular use and require
my $includes = $ppi_doc->find('Statement::Include') || [];
for my $node ( @$includes ) {
# minimum perl version
if ( $node->version ) {
$req->add_minimum(perl => $node->version);
next;
}
# skip lib.pm
# lib.pm is not indexed in 02packages, so listing it as a prereq is not a
# good idea. -- rjbs, 2011-08-17
next if grep { $_ eq $node->module } qw{ lib };
# inheritance
if (grep { $_ eq $node->module } qw{ base parent }) {
# rt#55713: skip arguments to base or parent, focus only on inheritance
my @meat = grep {
$_->isa('PPI::Token::QuoteLike::Words')
|| $_->isa('PPI::Token::Quote')
} $node->arguments;
my @parents = map { $self->_q_contents($_) } @meat;
$req->add_minimum($_ => 0) for @parents;
}
# regular modules
my $version = $node->module_version ? $node->module_version->content : 0;
# rt#55851: 'require $foo;' shouldn't add any prereq
next unless $node->module;
# See if the next statement after require is Module->VERSION(min):
$version = $self->_check_required_version($node) || 0
if not $version and $node->type eq 'require';
$req->add_minimum($node->module, $version);
}
}
# For "require Module", see if the next statement is Module->VERSION(min):
sub _check_required_version {
my ($self, $node) = @_;
my $next = $node->snext_sibling;
return unless $next and $next->class eq 'PPI::Statement';
my ($invocant, $op, $method, $list, $too_much) = $next->schildren;
return unless defined $list # need enough children
and $op->class eq 'PPI::Token::Operator'
and $op->content eq '->'
and $method->content eq 'VERSION'
and (not defined $too_much # but not too many children
or $too_much->content eq ';')
and $invocant->content eq $node->module
and $list->class eq 'PPI::Structure::List'
and $list->braces eq '()'
and $list->schildren == 1;
my $exp = $list->schild(0);
return unless $exp->class eq 'PPI::Statement::Expression'
and $exp->schildren == 1;
my $arg = $exp->schild(0);
if ($arg->isa('PPI::Token::Number')) {
return $arg->content;
} elsif ($arg->isa('PPI::Token::Quote') and $arg->can('literal')) {
return $arg->literal;
}
return; # No minimum version found
} # end _check_required_version
1;
__END__
=pod
=head1 NAME
Perl::PrereqScanner::Scanner::Perl5 - scan for core Perl 5 language indicators of required modules
=head1 VERSION
version 1.008
=head1 DESCRIPTION
This scanner will look for the following indicators:
=over 4
=item *
plain lines beginning with C<use> or C<require> in your perl modules and scripts, including minimum perl version
=item *
regular inheritance declared with the C<base> and C<parent> pragmata
=back
Since Perl does not allow you to supply a version requirement with a
C<require> statement, the scanner will check the statement after the
C<require Module> to see if it is C<< Module->VERSION( minimum_version ); >>.
In order to provide a minimum version, that method call must meet the
following requirements:
=over 4
=item *
it must be the very next statement after C<require Module>. Nothing can separate them but whitespace and comments (and one semicolon).
=item *
C<Module> must be a bareword, and match the C<require> exactly.
=item *
C<minimum_version> must be a literal number, v-string, or single-quoted string. Double quotes are not allowed.
=back
=head1 AUTHORS
=over 4
=item *
Jerome Quelin
=item *
Ricardo Signes <rjbs@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2009 by Jerome Quelin.
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
|