--- trunk/lib/Frey/Run.pm 2008/11/05 22:05:02 317 +++ trunk/lib/Frey/Run.pm 2008/11/08 23:03:35 336 @@ -1,10 +1,14 @@ package Frey::Run; use Moose; -extends 'Frey::ClassLoader'; +#extends 'Frey::ClassLoader'; +extends 'Frey::PPI'; with 'Frey::Web'; with 'Frey::Config'; with 'Frey::Escape'; +use Data::Dump qw/dump/; +use Frey::Dumper; + =head1 NAME Frey::Run - display required form field for Class and run it @@ -30,8 +34,6 @@ default => sub { {} }, ); -use Data::Dump qw/dump/; - sub html { my ( $self ) = @_; @@ -52,12 +54,19 @@ my $html; my $values = {}; - $values = $self->config($class) if $self->can('config'); + $values = $self->config($class); + warn "# $class config = ",dump( $values ); if ( @required ) { - $html = qq|