Csv/Dispatcher: dynamisches $class require schon im Specbuilder.

- Spart Zeit später
- Kann abgefangen werden falls es Fehler gibt.

diff --git a/SL/Helper/Csv/Dispatcher.pm b/SL/Helper/Csv/Dispatcher.pm
index 9626fed25f8d76984e5e8ac16fb45195ad1e7d9f..a8d29fe4538894d1fc7e0ed9bbf2f6d5dddd9772 100644 (file)
--- a/SL/Helper/Csv/Dispatcher.pm
+++ b/SL/Helper/Csv/Dispatcher.pm
@@ -36,7 +36,6 @@ sub apply {
     if ($class) {
 
       # autovifify
     if ($class) {
 
       # autovifify

-      eval "require $class; 1" or die "could not load class '$class'";

       if (defined $index) {
         if (! $obj->$acc || !$obj->$acc->[$index]) {
           my @objects = $obj->$acc;
       if (defined $index) {
         if (! $obj->$acc || !$obj->$acc->[$index]) {
           my @objects = $obj->$acc;


@@ -101,6 +100,7 @@ sub make_spec {
           my $next_class = $cur_class->meta->relationship($step)->class;
           push @{ $spec->{steps} }, [ $step, $next_class, $index ];
           $cur_class = $next_class;
           my $next_class = $cur_class->meta->relationship($step)->class;
           push @{ $spec->{steps} }, [ $step, $next_class, $index ];
           $cur_class = $next_class;

+          eval "require $cur_class; 1" or die "could not load class '$cur_class'";

         }
       } else { # simple dispatch
         push @{ $spec->{steps} }, [ $step ];
         }
       } else { # simple dispatch
         push @{ $spec->{steps} }, [ $step ];