71 |
my $classes = dom2html( |
my $classes = dom2html( |
72 |
table => [ |
table => [ |
73 |
map { |
map { |
|
warn dump( $_ ); |
|
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 => [ $package->can('meta') ? ( a => { href => '/od/' . $package } => [ 'design' ] ) : '' ], |
78 |
td => [ $package->can('collection') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], |
td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], |
79 |
] ) |
] ) |
80 |
} $f->classes |
} $f->classes |
81 |
], |
], |