/[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 734 by dpavlin, Sat Dec 6 00:43:28 2008 UTC revision 735 by dpavlin, Sat Dec 6 12:22:36 2008 UTC
# Line 111  sub as_markup { Line 111  sub as_markup {
111    
112          my $introspect_path = "var/introspect/$class.yaml";          my $introspect_path = "var/introspect/$class.yaml";
113          $self->mkbasepath( $introspect_path );          $self->mkbasepath( $introspect_path );
114          my $introspect = $self->load( $introspect_path );          my $introspect; # FIXME update with = $self->load( $introspect_path );
115    
116          my ( $superclasses, $roles ) = ( '<b>Role</b>', '' );          my ( $superclasses, $roles ) = ( '<b>Role</b>', '' );
117          if ( ! $is_role ) {          if ( ! $is_role ) {
# Line 201  sub as_markup { Line 201  sub as_markup {
201                                  $name .= qq|<sup title="$role_name">$nr</sup>|;                                  $name .= qq|<sup title="$role_name">$nr</sup>|;
202                          }                          }
203    
204                          eval { $properties = $attr->documentation . ' ' . $properties };                          if ( my $doc = eval { $attr->documentation } ) {
205                                    $properties = qq|
206                                            $properties
207                                            <span class="documentation">$doc</span>
208                                    |;
209                                    $self->add_css(qq|
210                                            span.documentation {
211                                                    background: #eee;
212                                                    padding: 0.25em;
213                                            }
214                                    |);
215                                    $introspect->{action}->{$name}->{documentation} = $doc;
216                            }
217    
218                          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>|
219                  } sort $meta->get_attribute_list                  } sort $meta->get_attribute_list
Legend:
Removed from v.734  
changed lines
  Added in v.735
  ViewVC Help
Powered by ViewVC 1.1.26