51 |
|
|
52 |
my $path = $url->path; |
my $path = $url->path; |
53 |
|
|
54 |
# eval { |
eval { |
55 |
{ |
# { |
56 |
|
|
57 |
if ( $path =~ m{/reload(.*)} ) { |
if ( $path =~ m{/reload(.*)} ) { |
58 |
|
|
113 |
my $class = rest2class $1; |
my $class = rest2class $1; |
114 |
warn "# run $path -> $class $2"; |
warn "# run $path -> $class $2"; |
115 |
$run->{format} = $3 if $3; |
$run->{format} = $3 if $3; |
|
$params->{request_url} = $url, |
|
116 |
$run->{$_} = $params->{$_} foreach keys %$params; |
$run->{$_} = $params->{$_} foreach keys %$params; |
117 |
$f = Frey::Run->new( class => $class, params => $run, run => $2, request_url => $url ); |
$f = Frey::Run->new( class => $class, params => $run, run => $2 ); |
118 |
} elsif ( |
} elsif ( |
119 |
$path =~ m{/([^/]+)/?$} |
$path =~ m{/([^/]+)/?$} |
120 |
) { |
) { |
121 |
my $class = rest2class $1; |
my $class = rest2class $1; |
122 |
warn "# introspect $class"; |
warn "# introspect $class"; |
123 |
$run->{class} ||= $class; |
$run->{class} ||= $class; |
124 |
$f = Frey::Run->new( class => 'Frey::Introspect', params => $run, request_url => $url ); |
$f = Frey::Run->new( class => 'Frey::Introspect', params => $run ); |
125 |
} else { |
} else { |
126 |
$f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run, request_url => $url ); |
$f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run ); |
127 |
} |
} |
128 |
|
|
129 |
if ( $f ) { |
if ( $f ) { |