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 ) { |
154 |
sub refresh { |
sub refresh { |
155 |
my ( $url, $time ) = @_; |
my ( $url, $time ) = @_; |
156 |
$url ||= '/'; |
$url ||= '/'; |
157 |
$time ||= 1; |
$time ||= 0; |
158 |
warn "# refresh $url"; |
warn "# refresh $url"; |
159 |
qq| |
qq| |
160 |
<html> |
<html> |