/[Frey]/trunk/lib/Frey/INC.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/INC.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 540 by dpavlin, Wed Nov 26 18:02:38 2008 UTC revision 1117 by dpavlin, Mon Jun 29 18:52:50 2009 UTC
# Line 13  Dump perl's internal C<< %INC >> hash to Line 13  Dump perl's internal C<< %INC >> hash to
13    
14  =cut  =cut
15    
16  our $html;  #our $html;
17    
18  sub as_markup {  sub as_markup {
19          my ( $self ) = @_;          my ( $self ) = @_;
20    
21          return $html if $html;  #       return $html if $html;
22            my $html;
23    
24          my $inc;          my $inc;
25          map {          map {
                 s{.pm$}{};  
26                  my $class = $_;                  my $class = $_;
27                  s[/][}->{]g;                  my $path = $_;
28                    $path =~ s{.pm$}{};
29                    $path =~ s[/][}->{]g;
30                  $class =~ s[/][::]g;                  $class =~ s[/][::]g;
31                  eval '$inc->{' . $_ . '} = $class';                  eval '$inc->{' . $path . '} = $class'; ## no critic
32          } sort keys %INC;          } sort keys %INC;
33    
34          $html = dump( $inc );          $html = dump( $inc );
Legend:
Removed from v.540  
changed lines
  Added in v.1117
  ViewVC Help
Powered by ViewVC 1.1.26