134 |
my $class = rest2class $1; |
my $class = rest2class $1; |
135 |
warn "# run $path -> $class $2"; |
warn "# run $path -> $class $2"; |
136 |
$run->{format} = $3 if $3; |
$run->{format} = $3 if $3; |
137 |
|
$params{request_url} = $req->request->url; |
138 |
$f = Frey::Run->new( class => $class, params => \%params, run => $2, %$run ); |
$f = Frey::Run->new( class => $class, params => \%params, run => $2, %$run ); |
139 |
} elsif ( |
} elsif ( |
140 |
$path =~ m{/([^/]+)/?$} |
$path =~ m{/([^/]+)/?$} |
147 |
} |
} |
148 |
|
|
149 |
if ( $f ) { |
if ( $f ) { |
150 |
push @{ $f->status }, { req => $req }; |
$f->add_status( { req => $req } ); |
151 |
$req->print( $f->html ); |
$req->print( $f->html ); |
152 |
} else { |
} else { |
153 |
warn "# can't call request on nothing!"; |
warn "# can't call request on nothing!"; |