6 |
|
|
7 |
use Frey::Run; |
use Frey::Run; |
8 |
|
|
|
our $markup; |
|
|
|
|
9 |
sub markup { |
sub markup { |
10 |
my $self = shift; |
my $self = shift; |
11 |
return $markup if $markup; |
my @rows; |
|
my $html; |
|
12 |
foreach my $class ( $self->classes ) { |
foreach my $class ( $self->classes ) { |
13 |
$html .= qq|<tr><td><a href="/$class" title="| . $self->class_path( $class ) . qq|">$class</a></td><td>|; |
my $html |
14 |
|
= qq|<tr><td><a href="/$class" title="| |
15 |
|
. $self->class_path( $class ) |
16 |
|
. qq|">$class</a></td><td>| |
17 |
|
; |
18 |
if ( $class->can('meta') ) { |
if ( $class->can('meta') ) { |
19 |
if ( $class->meta->isa('Moose::Meta::Role') ) { |
if ( $class->meta->isa('Moose::Meta::Role') ) { |
20 |
$html .= qq|role|; |
$html .= qq|role|; |
34 |
push @input, $try; |
push @input, $try; |
35 |
} |
} |
36 |
} |
} |
37 |
$html .= qq|</td><td>| . join(' ', @run) . qq|</td><td>| . |
$html |
38 |
( @input ? '← ' . join(' ', @input) : '' ) . |
.= qq|</td><td>| |
39 |
qq|</td></tr>|; |
. join(' ', @run) |
40 |
|
. qq|</td><td>| |
41 |
|
. ( @input ? '← ' . join(' ', @input) : '' ) |
42 |
|
. qq|</td></tr>| |
43 |
|
; |
44 |
|
push @rows, $html if $html; |
45 |
} |
} |
46 |
$html = "<table>$html</table>" if $html; |
return qq|<table>| . join("\n", @rows) . qq|</table>| if @rows; |
|
$markup = $html; |
|
47 |
} |
} |
48 |
|
|
49 |
1; |
1; |