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