Perl 5 マスター Wiki

#!/usr/bin/perl
use Data::Dumper;
use Module::ExtractUse;
my $p= Module::ExtractUse->new;
$p->extract_use('/home/tomyhero/app/angelos/angelos-core/lib/Angelos.pm');
warn Dumper $p->array;

$VAR1 = 'Angelos::Logger';
$VAR2 = '5.00800';
$VAR3 = 'Angelos::Engine';
$VAR4 = 'Angelos::Class';
$VAR5 = 'Angelos::Exceptions';
$VAR6 = 'Angelos::Utils';
$VAR7 = 'Angelos::Home';
$VAR8 = 'Angelos::Dispatcher::Routes::Builder';