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 ) { |
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 |