11 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
12 |
|
|
13 |
This object will try to run other Moose objects from your application. It |
This object will try to run other Moose objects from your application. It |
14 |
will try to invoke C<html> or C<markup> method on the. |
will try to invoke C<data>, C<html> or C<markup> method on the. |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
|
sub execute { qw/data markup request/ } |
19 |
|
|
20 |
has 'class' => ( |
has 'class' => ( |
21 |
is => 'rw', |
is => 'rw', |
22 |
isa => 'Str', |
isa => 'Str', |
63 |
warn "## using $o->markup"; |
warn "## using $o->markup"; |
64 |
$html = $o->markup; |
$html = $o->markup; |
65 |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
66 |
|
} elsif ( $o->can('data') ) { |
67 |
|
$html = '<code>' . dump( $o->data ) . '</code>'; |
68 |
} else { |
} else { |
69 |
$html = "IGNORE: $class ", $o->dump; |
$html = "IGNORE: $class ", $o->dump; |
70 |
warn $html; |
warn $html; |