File Coverage

blib/lib/Catalyst/Plugin/Devel/ModuleVersions.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	37	56.7

package Catalyst::Plugin::Devel::ModuleVersions;
our $VERSION = '0.100330';
# ABSTRACT: Dump your loaded module versions to the debug-screen

use strict;
use warnings;

use MRO::Compat;
use mro 'c3';


sub dump_these {
    my $c = shift;

    ($c->next::method(@_), [ "Loaded Modules" =>
        [ grep {
            defined $_
        } map {
            my $mod = $_;
            $mod =~ s/\.pm$//;
            $mod =~ s/\//::/g;
            my $version = eval {no strict; ${"${mod}::VERSION"} };
            $version && "$version" ne "-1"
            ? $mod . " " . $version
            :  undef
        } sort keys %INC
        ]
    ]);
}


1;



__END__
=pod

=head1 NAME

Catalyst::Plugin::Devel::ModuleVersions - Dump your loaded module versions to the debug-screen

=head1 VERSION

version 0.100330

=head1 INTERFACE

=head2 EXTENDED METHODS

=head3 dump_these

Uses Class::C3 to extend the catalyst dump_these, and add some more information
at the end of the debug screen, containing a list of strings that each is
"Module::Name VERSION", ala:

    "Catalyst::Plugin::Devel::ModuleVersions 0.0001"

=head1 AUTHOR

  Andreas Marienborg <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Andreas Marienborg.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut