File: scan_prereqs

package info (click to toggle)
libperl-prereqscanner-perl 0.101890-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 136 kB
  • ctags: 15
  • sloc: perl: 304; makefile: 8
file content (20 lines) | stat: -rwxr-xr-x 457 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

use strict;
use warnings;

use File::Spec::Functions qw{ catdir updir };
use FindBin qw{ $Bin };
use lib catdir( $Bin, updir, 'lib' );

use List::Util qw{ max };
use Perl::PrereqScanner;

foreach my $file ( @ARGV ) {
    print "* $file\n";
    my $prereqs = Perl::PrereqScanner->scan_file($file);
    my $max = max map { length } keys %$prereqs;
    printf( "%-${max}s = %s\n", $_, $prereqs->{$_} )
        for sort keys %$prereqs;
}
exit;