--- trunk/lib/Frey/Run.pm 2008/11/06 20:56:44 327 +++ trunk/lib/Frey/Run.pm 2008/11/08 16:12:39 331 @@ -1,6 +1,7 @@ package Frey::Run; use Moose; -extends 'Frey::ClassLoader'; +#extends 'Frey::ClassLoader'; +extends 'Frey::PPI'; with 'Frey::Web'; with 'Frey::Config'; with 'Frey::Escape'; @@ -57,9 +58,9 @@ warn "# $class config = ",dump( $values ); if ( @required ) { - $html = qq|

Required params for $class

|; - foreach my $attr ( @required ) { - my $name = $attr->name; + $html = qq|

$class params

|; + foreach my $name ( $self->attribute_order ) { + my $attr = $class->meta->get_attribute( $name ); my $type = $name =~ m/^pass/ ? 'password' : 'text'; my $value = $values ? $values->{$name} :