--- trunk/lib/Frey/Run.pm 2008/10/31 23:17:56 222 +++ trunk/lib/Frey/Run.pm 2008/11/01 00:59:02 225 @@ -3,6 +3,7 @@ extends 'Frey'; with 'Frey::Web'; with 'Frey::Config'; +with 'Frey::Escape'; =head1 NAME @@ -11,10 +12,12 @@ =head1 DESCRIPTION This object will try to run other Moose objects from your application. It -will try to invoke C or C method on the. +will try to invoke C, C or C method on the. =cut +sub execute { qw/data markup request/ } + has 'class' => ( is => 'rw', isa => 'Str', @@ -61,6 +64,8 @@ warn "## using $o->markup"; $html = $o->markup; warn ">>> markup $class ",length( $html ), " bytes\n"; + } elsif ( $o->can('data') ) { + $html = '' . $self->html_escape( dump( $o->data ) ) . ''; } else { $html = "IGNORE: $class ", $o->dump; warn $html;