--- trunk/lib/Frey/Run.pm 2008/11/18 19:50:45 423 +++ trunk/lib/Frey/Run.pm 2008/11/19 00:40:03 431 @@ -4,6 +4,7 @@ extends 'Frey::Action'; with 'Frey::Web'; with 'Frey::Escape'; +with 'Frey::Session'; use Data::Dump qw/dump/; use Frey::Dumper; @@ -69,7 +70,17 @@ warn "got required params form for $class ", $self->run, " format: ", $self->format; } else { - my $o = $class->new( %{ $self->params } ); + $self->usage->{ $class }++; + + my $o; + eval { $o = $class->new( %{ $self->params } ) }; + if ( $@ ) { + warn "can't call $class->new: $@" if $@; + my ( $meta, $is_role, $instance ) = $self->class_meta( $class ); + $o = $instance if $is_role; + } + confess "can't create class instance for $class" unless $o; + $o->depends if $o->can('depends'); push @{ $self->status }, { qq|$class| => $self->params };