74 |
my $package = $_; |
my $package = $_; |
75 |
( tr => [ |
( tr => [ |
76 |
td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ], |
td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ], |
77 |
td => [ $package->can('meta') ? ( a => { href => '/od/' . $package } => [ 'design' ] ) : '' ], |
td => [ |
78 |
td => [ $package->can('collection') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], |
$package->can('meta') ? |
79 |
|
$package->meta->isa('Moose::Meta::Role') ? 'role' : |
80 |
|
( a => { href => '/od/' . $package } => [ 'design' ] ) : |
81 |
|
'' |
82 |
|
], |
83 |
|
td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], |
84 |
] ) |
] ) |
85 |
} $f->classes |
} $f->classes |
86 |
], |
], |