/[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 121 by dpavlin, Mon Jul 14 21:22:43 2008 UTC revision 133 by dpavlin, Tue Jul 15 13:58:07 2008 UTC
# Line 149  sub html { Line 149  sub html {
149                  if ( $class->get_attribute_list ) {                  if ( $class->get_attribute_list ) {
150                  @attributes = map {                  @attributes = map {
151                                  my $attr = $class->get_attribute($_);                                  my $attr = $class->get_attribute($_);
152  #                               warn "## $_ ", $attr->is_required ? 'required' : 'optional';                                  my ( $before, $title, $after ) = ( '', '', '' );
153                                  qq|<td><a href="/~/$package/$_?">$_</a></td><td>| .                                  ( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required;
154                                  ( $attr->is_required ? ' <b>required</b>' : '' ) .                                  qq|<td>$before<a href="/~/$package/$_?"$title>$_</a>$after</td>|
                                 qq|</td>|;  
155                          } sort $class->get_attribute_list                          } sort $class->get_attribute_list
156                  }                  }
157    
# Line 174  sub html { Line 173  sub html {
173    
174                  warn "## css = ",dump( $self->css );                  warn "## css = ",dump( $self->css );
175    
176                    my $superclasses = 'Role';
177                    $superclasses = 'Superclasses: ' . join(', ',
178                            map {
179                                    my $s = $_->meta->name;
180                                    qq|<a href="/~/$s">$s</a>|
181                            }
182                            #grep { $_ ne 'Moose::Object' }
183                            $meta->superclasses
184                    ) if ! $is_role && $meta->superclasses;
185    
186                    my $pod = Frey::Pod->new( class => $package )->markup;
187    
188                  my $html = $self->page(                  my $html = $self->page(
189                          title => "Introspect $package",                          title => "Introspect $package",
190                          body => "<h1>$package</h1>\n$table\n$classes",                          body => qq|<h1>$package</h1>|
191                                    . ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">&darr;pod&darr</a>  | : '' )
192                                    . qq|$superclasses\n$table\n$pod\n$classes|,
193    
194                  );                  );
195    
196                  $request->print($html);                  $request->print($html);
Legend:
Removed from v.121  
changed lines
  Added in v.133
  ViewVC Help
Powered by ViewVC 1.1.26