3 |
extends 'Frey'; |
extends 'Frey'; |
4 |
with 'Frey::Web'; |
with 'Frey::Web'; |
5 |
with 'Frey::Config'; |
with 'Frey::Config'; |
6 |
|
with 'Frey::Escape'; |
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
9 |
|
|
12 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
13 |
|
|
14 |
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 |
15 |
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. |
16 |
|
|
17 |
=cut |
=cut |
18 |
|
|
19 |
|
sub execute { qw/data markup request/ } |
20 |
|
|
21 |
has 'class' => ( |
has 'class' => ( |
22 |
is => 'rw', |
is => 'rw', |
23 |
isa => 'Str', |
isa => 'Str', |
64 |
warn "## using $o->markup"; |
warn "## using $o->markup"; |
65 |
$html = $o->markup; |
$html = $o->markup; |
66 |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
67 |
|
} elsif ( $o->can('data') ) { |
68 |
|
$html = '<code>' . $self->html_escape( dump( $o->data ) ) . '</code>'; |
69 |
} else { |
} else { |
70 |
$html = "IGNORE: $class ", $o->dump; |
$html = "IGNORE: $class ", $o->dump; |
71 |
warn $html; |
warn $html; |