| 213 |
} |
} |
| 214 |
$table .= qq|</table>|; |
$table .= qq|</table>|; |
| 215 |
|
|
| 216 |
|
my $path = $self->class_path( $class ); |
| 217 |
|
|
| 218 |
my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup; |
my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup; |
| 219 |
$pod = $pod->{body} if ref($pod); |
return $pod if $path =~ m{\.pod}; |
| 220 |
|
|
|
my $path = $self->class_path( $class ); |
|
| 221 |
my $Document = PPI::Document->new( $path ); |
my $Document = PPI::Document->new( $path ); |
| 222 |
|
|
| 223 |
# Create a reusable syntax highlighter |
# Create a reusable syntax highlighter |
| 242 |
my $runnable = join("\n", |
my $runnable = join("\n", |
| 243 |
map { |
map { |
| 244 |
$introspect->{runnable}->{$_}++; |
$introspect->{runnable}->{$_}++; |
| 245 |
qq|<a target="$class" href="/$class/$_">$_</a>| |
my $short = $_; |
| 246 |
|
$short =~ s{_as_(?:markup|data|sponge)$}{}; |
| 247 |
|
qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>| |
| 248 |
} $self->class_runnable( $class ) |
} $self->class_runnable( $class ) |
| 249 |
); |
); |
| 250 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |
Parent Directory
| 
Revision Log
| 
Patch