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

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

revision 735 by dpavlin, Sat Dec 6 12:22:36 2008 UTC revision 802 by dpavlin, Wed Dec 10 20:45:11 2008 UTC
# Line 108  sub as_markup { Line 108  sub as_markup {
108          my ( $meta, $is_role ) = $self->class_meta;          my ( $meta, $is_role ) = $self->class_meta;
109    
110          my $class = $self->class;          my $class = $self->class;
111            $self->title( $class );
112    
113          my $introspect_path = "var/introspect/$class.yaml";          my $introspect_path = "var/introspect/$class.yaml";
114          $self->mkbasepath( $introspect_path );          $self->mkbasepath( $introspect_path );
# Line 210  sub as_markup { Line 211  sub as_markup {
211                                          span.documentation {                                          span.documentation {
212                                                  background: #eee;                                                  background: #eee;
213                                                  padding: 0.25em;                                                  padding: 0.25em;
214                                                    float: left;
215                                                    clear: left;
216                                          }                                          }
217                                  |);                                  |);
218                                  $introspect->{action}->{$name}->{documentation} = $doc;                                  $introspect->{action}->{$name}->{documentation} = $doc;
# Line 266  sub as_markup { Line 269  sub as_markup {
269    
270          $self->store( $introspect_path, $introspect );          $self->store( $introspect_path, $introspect );
271    
         $self->title( $class );  
   
272          my $has_tests = '';          my $has_tests = '';
273          my @tests = grep { defined $_ } $self->has_tests;          my @tests = grep { defined $_ } $self->has_tests;
274          if ( @tests ) {          if ( @tests ) {
Legend:
Removed from v.735  
changed lines
  Added in v.802
  ViewVC Help
Powered by ViewVC 1.1.26