/[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 59 by dpavlin, Tue Jul 8 12:19:04 2008 UTC
# Line 46  sub load_package { Line 46  sub load_package {
46          my @roles_to_apply;          my @roles_to_apply;
47          $rmeta->add_method("apply", sub{push(@roles_to_apply, [@_])});          $rmeta->add_method("apply", sub{push(@roles_to_apply, [@_])});
48          #load the package with the hacked Moose::Meta::Role          #load the package with the hacked Moose::Meta::Role
49          eval { Class::MOP::load_class($package); };  
50          confess "Failed to load package ${package} $@" if $@;          #eval { Class::MOP::load_class($package); };
51            #confess "Failed to load package ${package} $@" if $@;
52            Class::MOP::load_class($package);
53    
54          my $meta = $package->meta;          my $meta = $package->meta;
55    
# Line 200  __END_OF_JS__ Line 202  __END_OF_JS__
202                  my $methods;                  my $methods;
203    
204                  my ( $class, $meta, $is_role );                  my ( $class, $meta, $is_role );
205                  eval { $self->load_package(); };                  eval { ( $class, $meta, $is_role ) = $self->load_package(); };
206                  if ( $@ ) {                  if ( $@ ) {
207                          warn "ERROR: $@";                          warn "ERROR: $@";
208                          $request->conn->send_status_line( 500, $@ );                          $request->conn->send_status_line( 500, $@ );
# Line 226  __END_OF_JS__ Line 228  __END_OF_JS__
228                                  map {                                  map {
229                                          my $attr = $class->get_attribute($_);                                          my $attr = $class->get_attribute($_);
230                                          warn "## $_ ", $attr->is_required ? 'required' : 'optional';                                          warn "## $_ ", $attr->is_required ? 'required' : 'optional';
231                                          ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_, ( $attr->is_required ? ' <b>required</b>' : '' ) ] ] )                                          ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_ ], ( $attr->is_required ? ' <b>required</b>' : '' ) ] )
232                                  } $class->get_attribute_list                                  } $class->get_attribute_list
233                          ],                          ],
234                  )->to_string;                  )->to_string;
Legend:
Removed from v.55  
changed lines
  Added in v.59
  ViewVC Help
Powered by ViewVC 1.1.26