/[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 1124 by dpavlin, Mon Jun 29 17:01:28 2009 UTC revision 1125 by dpavlin, Tue Jun 30 14:03:17 2009 UTC
# Line 146  sub as_markup { Line 146  sub as_markup {
146                  $roles = join(' ',                  $roles = join(' ',
147                          grep { ! m/\Q$class\E/ }        # skip me                          grep { ! m/\Q$class\E/ }        # skip me
148                          map {                          map {
149                                  my $name = $_->name;                                  my $r = '';
150                                  $introspect->{roles}->{$name} = {};                                  foreach my $name ( split(/\|/, $_->name) ) {
151                                  $method_from_role->{    $_ }->{$name} = $role_nr foreach $_->get_method_list;                                          $introspect->{roles}->{$name} = {};
152                                  $attribute_from_role->{ $_ }->{$name} = $role_nr foreach $_->get_attribute_list;                                          $method_from_role->{    $_ }->{$name} = $role_nr foreach $_->get_method_list;
153                                            $attribute_from_role->{ $_ }->{$name} = $role_nr foreach $_->get_attribute_list;
154    
155                                    qq|<a target="$name" href="/$name" title="introspect $name">$name</a>|                                          $r .=
156  #                               . qq|<sup>| . $self->dropdown( $role_nr++, $name->meta ) . qq|</sup>|                                            qq|<a target="$name" href="/$name" title="introspect $name">$name</a>|
157                                  . $self->dropdown(          #                               . qq|<sup>| . $self->dropdown( $role_nr++, $name->meta ) . qq|</sup>|
158                                          qq|<sup>| . $role_nr++ . qq|</sup>|,                                          . $self->dropdown(
159                                          $name->meta                                                  qq|<sup>| . $role_nr++ . qq|</sup>|,
160                                  )                                                  $name->meta
161                                  ;                                          )
162                                            ;
163                                    }
164                                    $r;
165                          }                          }
166                          $meta->calculate_all_roles                          $meta->calculate_all_roles
167                  );                  );
Legend:
Removed from v.1124  
changed lines
  Added in v.1125
  ViewVC Help
Powered by ViewVC 1.1.26