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

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

revision 408 by dpavlin, Tue Nov 18 12:55:32 2008 UTC revision 409 by dpavlin, Tue Nov 18 13:52:26 2008 UTC
# Line 23  sub markup { Line 23  sub markup {
23                  my @run;                  my @run;
24                  my @input;                  my @input;
25                  push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');                  push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');
26                  my @methods = $self->class_methods( $class );                  my $class_method = $self->class_methods( $class );
27                  foreach my $try ( Frey::Run->runnable ) {                  foreach my $try ( Frey::Run->runnable ) {
28                          next unless $class->can($try);                          next unless $class->can($try);
29                          if ( grep { /^\Q$try\E$/ } @methods ) {                          if ( $class_method->{ $try } ) {
30                                  push @run, qq|<a href="/$class/$try">$try</a>|;                                  push @run, qq|<a href="/$class/$try">$try</a>|;
31                          } else {                          } else {
32                                  push @input, $try;                                  push @input, $try;
Legend:
Removed from v.408  
changed lines
  Added in v.409
  ViewVC Help
Powered by ViewVC 1.1.26