/usr/share/perl5/Perl/PrereqScanner.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 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 | use 5.008;
use strict;
use warnings;
package Perl::PrereqScanner;
{
$Perl::PrereqScanner::VERSION = '1.008';
}
use Moose;
# ABSTRACT: a tool to scan your Perl code for its prerequisites
use List::Util qw(max);
use Params::Util qw(_CLASS);
use Perl::PrereqScanner::Scanner;
use PPI 1.205; # module_version
use String::RewritePrefix 0.005 rewrite => {
-as => '__rewrite_scanner',
prefixes => { '' => 'Perl::PrereqScanner::Scanner::', '=' => '' },
};
use Version::Requirements 0.100630; # merge with 0-min bug fixed
use namespace::autoclean;
has scanners => (
is => 'ro',
isa => 'ArrayRef[Perl::PrereqScanner::Scanner]',
init_arg => undef,
writer => '_set_scanners',
);
sub __scanner_from_str {
my $class = __rewrite_scanner($_[0]);
confess "illegal class name: $class" unless _CLASS($class);
eval "require $class; 1" or die $@;
return $class->new;
}
sub __prepare_scanners {
my ($self, $specs) = @_;
my @scanners = map {; ref $_ ? $_ : __scanner_from_str($_) } @$specs;
return \@scanners;
}
sub BUILD {
my ($self, $arg) = @_;
my @scanners = @{ $arg->{scanners} || [ qw(Perl5 TestMore Moose Aliased POE) ] };
my @extra_scanners = @{ $arg->{extra_scanners} || [] };
my $scanners = $self->__prepare_scanners([ @scanners, @extra_scanners ]);
$self->_set_scanners($scanners);
}
sub scan_string {
my ($self, $str) = @_;
my $ppi = PPI::Document->new( \$str );
confess "PPI parse failed" unless defined $ppi;
return $self->scan_ppi_document( $ppi );
}
sub scan_file {
my ($self, $path) = @_;
my $ppi = PPI::Document->new( $path );
confess "PPI failed to parse '$path'" unless defined $ppi;
return $self->scan_ppi_document( $ppi );
}
sub scan_ppi_document {
my ($self, $ppi_doc) = @_;
my $req = Version::Requirements->new;
for my $scanner (@{ $self->{scanners} }) {
$scanner->scan_for_prereqs($ppi_doc, $req);
}
return $req;
}
1;
=pod
=head1 NAME
Perl::PrereqScanner - a tool to scan your Perl code for its prerequisites
=head1 VERSION
version 1.008
=head1 SYNOPSIS
use Perl::PrereqScanner;
my $scanner = Perl::PrereqScanner->new;
my $prereqs = $scanner->scan_ppi_document( $ppi_doc );
my $prereqs = $scanner->scan_file( $file_path );
my $prereqs = $scanner->scan_string( $perl_code );
=head1 DESCRIPTION
The scanner will extract loosely your distribution prerequisites from your
files.
The extraction may not be perfect but tries to do its best. It will currently
find the following prereqs:
=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
=item *
L<Moose> inheritance declared with the C<extends> keyword
=item *
L<Moose> roles included with the C<with> keyword
=item *
OO namespace aliasing using the C<aliased> module
=back
=head2 Scanner Plugins
Perl::PrereqScanner works by running a series of scanners over a PPI::Document
representing the code to scan. By default the "Perl5", "Moose", "TestMore",
"POE", and "Aliased" scanners are run. You can supply your own scanners when
constructing your PrereqScanner:
# Us only the Perl5 scanner:
my $scanner = Perl::PrereqScanner->new({ plugins => [ qw(Perl5) ] });
# Use any stock plugins, plus Example:
my $scanner = Perl::PrereqScanner->new({ extra_plugins => [ qw(Example) ] });
=head1 METHODS
=head2 scan_string
my $prereqs = $scanner->scan_string( $perl_code );
Given a string containing Perl source code, this method returns a
Version::Requirements object describing the modules it requires.
This method will throw an exception if PPI fails to parse the code.
=head2 scan_file
my $prereqs = $scanner->scan_file( $path );
Given a file path to a Perl document, this method returns a
Version::Requirements object describing the modules it requires.
This method will throw an exception if PPI fails to parse the code.
=head2 scan_ppi_document
my $prereqs = $scanner->scan_ppi_document( $ppi_doc );
Given a L<PPI::Document>, this method returns a Version::Requirements object
describing the modules it requires.
=for Pod::Coverage::TrustPod new
=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
__END__
|