#!/usr/bin/env perl use v5.10; use strict; use warnings; use autodie; use PIR; my $rule = PIR->new->skip_dirs('.')->perl_module; for ( $rule->all( { relative => 1 }, grep { /site_perl/ } @INC ) ) { s{[/\\]}{::}g; s{\.pm$}{}; say; }
#!/usr/bin/env perl use v5.10; use strict; use warnings; use autodie; use PIR; my $rule = PIR->new->skip_dirs('.')->perl_module; for ( $rule->all( { relative => 1 }, grep { /site_perl/ } @INC ) ) { s{[/\\]}{::}g; s{\.pm$}{}; say; }