/[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 726 by dpavlin, Thu Dec 4 17:55:27 2008 UTC revision 727 by dpavlin, Fri Dec 5 17:34:42 2008 UTC
# Line 159  sub as_markup { Line 159  sub as_markup {
159                          $name .= qq|<sup title="$role_name">$nr</sup>|;                          $name .= qq|<sup title="$role_name">$nr</sup>|;
160                  }                  }
161                  qq|<td class="m">$name</td>|                  qq|<td class="m">$name</td>|
162          } $self->class_methods( $class );          } sort $self->class_methods( $class );
163    
164          my @attributes;          my @attributes;
165          if ( $meta->get_attribute_list ) {          if ( $meta->get_attribute_list ) {
# Line 201  sub as_markup { Line 201  sub as_markup {
201                          eval { $properties = $attr->documentation . ' ' . $properties };                          eval { $properties = $attr->documentation . ' ' . $properties };
202    
203                          qq|<td class="a">$html_name</td><td class="t">$type</td><td>$properties</td>|                          qq|<td class="a">$html_name</td><td class="t">$type</td><td>$properties</td>|
204                  } $meta->get_attribute_list                  } sort $meta->get_attribute_list
205          }          }
206    
207          my $table = qq|<table class="frey-introspect"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;          my $table = qq|<table class="frey-introspect"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;
Legend:
Removed from v.726  
changed lines
  Added in v.727
  ViewVC Help
Powered by ViewVC 1.1.26