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

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

revision 255 by dpavlin, Tue Nov 4 19:11:06 2008 UTC revision 256 by dpavlin, Tue Nov 4 19:38:49 2008 UTC
# Line 172  warn $attr->dump(3); Line 172  warn $attr->dump(3);
172                                  }                                  }
173                                  $after .= ' ';                                  $after .= ' ';
174                          }                          }
175                          qq|<td class="a">$before $_</td><td>$after</td>|                          my $type = $attr->has_type_constraint ? $attr->type_constraint->name : '';
176                            qq|<td class="a">$before $_</td><td class="t">$type</td><td>$after</td>|
177                  } sort $meta->get_attribute_list                  } sort $meta->get_attribute_list
178          }          }
179    
180          my $table = qq|<table class="frey-object-browser"><tr><th class="m">Methods</th><th class="a">Attributes</th><th class="p">Properties</th></tr>|;          my $table = qq|<table class="frey-object-browser"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;
181          while ( @methods || @attributes ) {          while ( @methods || @attributes ) {
182                  my ($m,$a) = ( shift @methods, shift @attributes );                  my ($m,$a) = ( shift @methods, shift @attributes );
183                  $m ||= '<td></td>';                  $m ||= '<td></td>';
Legend:
Removed from v.255  
changed lines
  Added in v.256
  ViewVC Help
Powered by ViewVC 1.1.26