File Coverage

blib/lib/Module/PrintUsed.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	40	40	100.0

package Module::PrintUsed;

use 5.006;
use strict;
use warnings;

our @ISA = qw();

our $VERSION = '0.05';

sub ModulesList {
    my @modules;

    foreach (sort keys %INC) {
        my $name = $_;
        $name =~ s|[\\/]|::|g;
        $name =~ s|\.pm$||;

        my $version;
        {
            # Prevent warnings caused by autosplitted modules.
            # See RT#48573.
            no warnings;
            $version = eval " \$$name\::VERSION " || '';
        }
        push @modules, { name => $name, version => $version,
            path => $INC{$_} };
    }

    return @modules;
}

sub FormattedModulesList {
    my $text = "\nModules used by $0:\n";
    my @modules = ModulesList();

    foreach (@modules) {
        $text .= " - $_->{name} " . (" " x (25 - length($_->{name}))) .
            "$_->{version} " . (" " x (8 - length($_->{version}))) .
            "$_->{path}\n";
    }
    $text .= "\n";

    return $text;
}

END {
    print STDERR FormattedModulesList();
}


1;
__END__