| 185 |
@attributes = map { |
@attributes = map { |
| 186 |
my $name = $_; |
my $name = $_; |
| 187 |
my $attr = $meta->get_attribute($name); |
my $attr = $meta->get_attribute($name); |
| 188 |
|
warn "## ref attr: ",ref( $attr ); |
| 189 |
my ( $before, $title, $after ) = ( '', '', '' ); |
my ( $before, $title, $after ) = ( '', '', '' ); |
| 190 |
( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required; |
( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required; |
| 191 |
warn $attr->dump(3); |
warn $attr->dump(3); |
| 233 |
my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable ); |
my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable ); |
| 234 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |
| 235 |
|
|
| 236 |
my $html = $self->page( |
my $html = { |
| 237 |
title => "Introspect $class", |
title => "Introspect $class", |
| 238 |
body => qq|<h1>$class</h1>| |
body => qq|<h1>$class</h1>| |
| 239 |
. qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n| |
. qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n| |
| 240 |
. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">↓pod&darr</a>| : '' ) |
. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">↓pod&darr</a>| : '' ) |
| 241 |
. qq|$table\n$pod</div>| |
. qq|$table\n$pod</div>| |
| 242 |
|
|
| 243 |
); |
}; |
| 244 |
|
|
| 245 |
return $html; |
return $html; |
| 246 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch