127 |
my $class = rest2class $1; |
my $class = rest2class $1; |
128 |
warn "# run $path -> $class $2"; |
warn "# run $path -> $class $2"; |
129 |
$run->{format} = $3 if $3; |
$run->{format} = $3 if $3; |
130 |
$run->{$_} = $params->{$_} foreach keys %$params; |
foreach my $p ( keys %$params ) { |
131 |
|
$run->{$p} = $params->{$p} if defined $params->{$p} && $params->{$p} ne ''; |
132 |
|
} |
133 |
$f = Frey::Run->new( class => $class, params => $run, run => $2 ); |
$f = Frey::Run->new( class => $class, params => $run, run => $2 ); |
134 |
} elsif ( |
} elsif ( |
135 |
$path =~ m{/([^/]+)/?$} |
$path =~ m{/([^/]+)/?$} |