/[Frey]/trunk/lib/Frey.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.pm

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

revision 56 by dpavlin, Sun Jul 6 11:59:58 2008 UTC revision 58 by dpavlin, Tue Jul 8 12:18:33 2008 UTC
# Line 33  has 'classes' => ( Line 33  has 'classes' => (
33                  finddepth({ no_chdir => 1, wanted => sub {                  finddepth({ no_chdir => 1, wanted => sub {
34                          return unless s/\.pm$//;                          return unless s/\.pm$//;
35                          my @a = split(m!/!,$_);                          my @a = split(m!/!,$_);
                         if ( $#a != 2 ) {  
                                 warn "SKIP $_ [$#a]" if $self->debug;  
                                 return;  
                         }  
36                          warn ">> $_ ",dump( @a ) if $self->debug;                          warn ">> $_ ",dump( @a ) if $self->debug;
37                          my $package = "$a[1]::$a[2]";                          my $package = join('::', @a[ 1 .. $#a ]);
38                          warn "## $package\n";                          warn "## $package\n";
39                          push @$classes, { $package => "$_.pm" };                          push @$classes, { $package => "$_.pm" };
40                  } }, 'lib');                  } }, 'lib');
Legend:
Removed from v.56  
changed lines
  Added in v.58
  ViewVC Help
Powered by ViewVC 1.1.26