/[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 55 by dpavlin, Sat Jul 5 19:00:10 2008 UTC revision 56 by dpavlin, Sun Jul 6 11:59:58 2008 UTC
# Line 200  __END_OF_JS__ Line 200  __END_OF_JS__
200                  my $methods;                  my $methods;
201    
202                  my ( $class, $meta, $is_role );                  my ( $class, $meta, $is_role );
203                  eval { $self->load_package(); };                  eval { ( $class, $meta, $is_role ) = $self->load_package(); };
204                  if ( $@ ) {                  if ( $@ ) {
205                          warn "ERROR: $@";                          warn "ERROR: $@";
206                          $request->conn->send_status_line( 500, $@ );                          $request->conn->send_status_line( 500, $@ );
# Line 226  __END_OF_JS__ Line 226  __END_OF_JS__
226                                  map {                                  map {
227                                          my $attr = $class->get_attribute($_);                                          my $attr = $class->get_attribute($_);
228                                          warn "## $_ ", $attr->is_required ? 'required' : 'optional';                                          warn "## $_ ", $attr->is_required ? 'required' : 'optional';
229                                          ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_, ( $attr->is_required ? ' <b>required</b>' : '' ) ] ] )                                          ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_ ], ( $attr->is_required ? ' <b>required</b>' : '' ) ] )
230                                  } $class->get_attribute_list                                  } $class->get_attribute_list
231                          ],                          ],
232                  )->to_string;                  )->to_string;
Legend:
Removed from v.55  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26