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; |