/[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

Contents of /trunk/lib/Frey/ClassBrowser.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 455 - (show annotations)
Wed Nov 19 15:28:23 2008 UTC (15 years, 4 months ago) by dpavlin
File size: 1739 byte(s)
rename invocable events with prefix as_ with fallback in Frey::Web

This started with brute-force rename using:

  perl -p -i -n -e 's/sub markup/sub as_markup/'  `grep -lr 'sub markup' lib t`
  perl -p -i -n -e 's/sub data/sub as_data/'      `grep -lr 'sub data' lib t`
  perl -p -i -n -e 's/sub sponge/sub as_sponge/'  `grep -lr 'sub sponge' lib t`

  perl -p -i -n -e 's/->markup/->as_markup/'      `grep -lr -- '->markup' lib t`
  perl -p -i -n -e 's/->data/->as_data/'          `grep -lr -- '->data' lib t`
  perl -p -i -n -e 's/->sponge/->as_sponge/'      `grep -lr -- '->sponge' lib t`

  perl -p -i -n -e 's!/markup!/as_markup!'        `grep -lr -- '/markup' lib t etc`
  perl -p -i -n -e 's!/data!/as_data!'            `grep -lr -- '/data' lib t etc`
  perl -p -i -n -e 's!/sponge!/as_sponge!'        `grep -lr -- '/sponge' lib t etc`

1 package Frey::ClassBrowser;
2 use Moose;
3
4 extends 'Frey::ClassLoader';
5 with 'Frey::Web';
6 with 'Frey::Session';
7
8 use Frey::Run;
9 use Data::Dump qw/dump/;
10
11 has 'usage_on_top' => (
12 is => 'rw',
13 isa => 'Bool',
14 default => 1,
15 documentation => 'Show usage on top of list',
16 );
17
18 sub as_markup {
19 my $self = shift;
20 my $row;
21
22 my $usage = $self->session_dump( $self->usage );
23 #warn "# usage ",dump( $usage );
24 foreach my $class ( $self->classes ) {
25 my $html
26 = qq|<tr><td><a href="/$class" title="|
27 . $self->class_path( $class )
28 . qq|">$class</a></td><td>|
29 ;
30 if ( $class->can('meta') ) {
31 if ( $class->meta->isa('Moose::Meta::Role') ) {
32 $html .= qq|role|;
33 } else {
34 $html .= qq|<a href="/Frey-ObjectDesigner?class=$class">design</a>| if $class->can('collection');
35 }
36 }
37 my @run;
38 my @input;
39 push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');
40 my @class_methods = $self->class_methods( $class );
41
42 push @run, qq|<a href="/$class/$_">$_</a>|
43 foreach ( grep { m{^as_} } @class_methods );
44 push @input, $_
45 foreach ( grep { m{^(markup/as_data/as_sponge)$} } @class_methods );
46
47 $usage->{$class} ||= 0;
48 $html
49 .= qq|</td><td>|
50 . join(' ', @run)
51 . qq|</td><td>|
52 . ( @input ? '&larr; ' . join(' ', @input) : '' )
53 . qq|</td><td>|
54 . ( $usage->{$class} || '' )
55 . qq|</td></tr>|
56 ;
57 $row->{$class} = $html;
58 }
59
60 return
61 qq|<table>| . join("\n",
62 map { $row->{$_} }
63 sort {
64 if ( $usage->{$a} || $usage->{$b} ) {
65 if ( $self->usage_on_top ) {
66 $usage->{$b} <=> $usage->{$a};
67 } else {
68 $usage->{$a} <=> $usage->{$b};
69 }
70 } else {
71 $a cmp $b;
72 }
73 }
74 keys %$row
75 ) . qq|</table>|;
76 }
77
78 1;

  ViewVC Help
Powered by ViewVC 1.1.26