--- trunk/lib/Frey/ClassBrowser.pm 2008/11/18 16:54:10 418
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/18 23:42:40 427
@@ -6,14 +6,15 @@
use Frey::Run;
-our $markup;
-
sub markup {
my $self = shift;
- return $markup if $markup;
- my $html;
+ my @rows;
foreach my $class ( $self->classes ) {
- $html .= qq|
$class | |;
+ my $html
+ = qq| |
$class | |
+ ;
if ( $class->can('meta') ) {
if ( $class->meta->isa('Moose::Meta::Role') ) {
$html .= qq|role|;
@@ -33,12 +34,16 @@
push @input, $try;
}
}
- $html .= qq| | | . join(' ', @run) . qq| | | .
- ( @input ? '← ' . join(' ', @input) : '' ) .
- qq| |
|;
+ $html
+ .= qq||
+ . join(' ', @run)
+ . qq| | |
+ . ( @input ? '← ' . join(' ', @input) : '' )
+ . qq| | |
+ ;
+ push @rows, $html if $html;
}
- $html = "" if $html;
- $markup = $html;
+ return qq|| . join("\n", @rows) . qq|
| if @rows;
}
1;