1#!/usr/bin/env perl 2use v5.10; 3use strict; 4use warnings; 5use autodie; 6use PIR; 7 8my $rule = PIR->new->skip_dirs('.')->perl_module; 9 10for ( $rule->all( { relative => 1 }, grep { /site_perl/ } @INC ) ) { 11 s{[/\\]}{::}g; 12 s{\.pm$}{}; 13 say; 14} 15 16