File Coverage

blib/lib/Module/PrintUsed.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	48	48	100.0

package Module::PrintUsed;

use 5.006;
use strict;
use warnings;

our @ISA = qw();

our $VERSION = '0.06';

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) {
    	my $lengthName = 25 - length($_->{name});
    	$lengthName = 0 unless $lengthName > 0;
    	my $lengthVersion = 8 - length($_->{version});
    	$lengthVersion = 0 unless $lengthVersion > 0;

        $text .= " - $_->{name} " . (" " x $lengthName) .
            "$_->{version} " . (" " x $lengthVersion) .
            "$_->{path}\n";
    }
    $text .= "\n";

    return $text;
}

END {
    print STDERR FormattedModulesList();
}


1;
__END__