--- trunk/lib/Frey/Run.pm 2008/11/05 20:18:33 314 +++ trunk/lib/Frey/Run.pm 2008/11/06 20:56:44 327 @@ -1,10 +1,13 @@ package Frey::Run; use Moose; -extends 'Frey'; +extends 'Frey::ClassLoader'; 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,13 +33,13 @@ default => sub { {} }, ); -use Data::Dump qw/dump/; - sub html { my ( $self ) = @_; my $class = $self->class; + $self->load_class( $class ); + my @required = grep { defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) @@ -50,7 +53,8 @@ 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|