Revision 7358571b
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
| 36 | 36 |
if ($class) {
|
| 37 | 37 |
|
| 38 | 38 |
# autovifify |
| 39 |
eval "require $class; 1" or die "could not load class '$class'"; |
|
| 40 | 39 |
if (defined $index) {
|
| 41 | 40 |
if (! $obj->$acc || !$obj->$acc->[$index]) {
|
| 42 | 41 |
my @objects = $obj->$acc; |
| ... | ... | |
| 101 | 100 |
my $next_class = $cur_class->meta->relationship($step)->class; |
| 102 | 101 |
push @{ $spec->{steps} }, [ $step, $next_class, $index ];
|
| 103 | 102 |
$cur_class = $next_class; |
| 103 |
eval "require $cur_class; 1" or die "could not load class '$cur_class'"; |
|
| 104 | 104 |
} |
| 105 | 105 |
} else { # simple dispatch
|
| 106 | 106 |
push @{ $spec->{steps} }, [ $step ];
|
Auch abrufbar als: Unified diff
Csv/Dispatcher: dynamisches $class require schon im Specbuilder.
- Spart Zeit später
- Kann abgefangen werden falls es Fehler gibt.