--- trunk/lib/Frey/Run.pm 2008/11/19 00:40:03 431 +++ trunk/lib/Frey/Run.pm 2008/11/19 02:14:48 443 @@ -73,13 +73,12 @@ $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; + my ( $meta, $is_role, $instance ) = $self->class_meta( $class ); + if ( $is_role ) { + $o = $instance; + } else { + $o = $class->new( %{ $self->params } ); } - confess "can't create class instance for $class" unless $o; $o->depends if $o->can('depends'); @@ -137,7 +136,7 @@ }; }; - $html = $self->page( title => $self->class, body => dump($html) . $self->error( $@ ) ) if $@; + $html = $self->page( title => $self->class, body => $self->error( $@ ) ) if $@; return $html; }