lib/Frey/INC.pm

package Frey::INC;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Storage';

use Data::Dump qw/dump/;

=head1 DESCRIPTION

Dump perl's internal C<< %INC >> hash to see which packages are loaded

=cut

our $html;

sub as_markup {
        my ( $self ) = @_;

        return $html if $html;

        my $inc;
        map {
                s{.pm$}{};
                my $class = $_;
                s[/][}->{]g;
                $class =~ s[/][::]g;
                eval '$inc->{' . $_ . '} = $class';
        } sort keys %INC;

        $html = dump( $inc );
        $html =~ s{\s+=>\s+\d+}{}gs;
        $html =~ s{(['"]?)(\w+)\1\s+=>\s+(['"]?)([\w:]*\2)\3}{<a target="$4" href="/$4" title="$4">$2</a>}gs;
        $html =~ s{\s+=>\s+}{ }gs;
        $html =~ s{,}{}gs;

        $self->store( 'var/INC/' . time() . '.html', $html );
        return $html;
}

1;
1	dpavlin	540	package Frey::INC;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			with 'Frey::Storage';
7
8			use Data::Dump qw/dump/;
9
10			=head1 DESCRIPTION
11
12			Dump perl's internal C<< %INC >> hash to see which packages are loaded
13
14			=cut
15
16			our $html;
17
18			sub as_markup {
19			my ( $self ) = @_;
20
21			return $html if $html;
22
23			my $inc;
24			map {
25			s{.pm$}{};
26			my $class = $_;
27			s[/][}->{]g;
28			$class =~ s[/][::]g;
29			eval '$inc->{' . $_ . '} = $class';
30			} sort keys %INC;
31
32			$html = dump( $inc );
33			$html =~ s{\s+=>\s+\d+}{}gs;
34			$html =~ s{(['"]?)(\w+)\1\s+=>\s+(['"]?)([\w:]*\2)\3}{<a target="$4" href="/$4" title="$4">$2</a>}gs;
35			$html =~ s{\s+=>\s+}{ }gs;
36			$html =~ s{,}{}gs;
37
38			$self->store( 'var/INC/' . time() . '.html', $html );
39			return $html;
40			}
41
42			1;