80 |
} elsif ( $path =~ m!/Frey[:-]+ObjectDesigner! ) { |
} elsif ( $path =~ m!/Frey[:-]+ObjectDesigner! ) { |
81 |
$f = Frey::ObjectDesigner->new( fey_class => $params{class} ); |
$f = Frey::ObjectDesigner->new( fey_class => $params{class} ); |
82 |
$f->request( $req ); |
$f->request( $req ); |
|
} elsif ( $path =~ m!/Frey[:-]+Introspect! ) { |
|
|
$f = Frey::Introspect->new( class => $params{class} ); |
|
|
$req->print( $f->markup ); |
|
|
undef $f; |
|
83 |
} elsif ( $path =~ m!/([^/]+)/($run_regexp)! ) { |
} elsif ( $path =~ m!/([^/]+)/($run_regexp)! ) { |
84 |
warn "# run $1 $2\n"; |
my $class = $1; |
85 |
$f = Frey::Run->new( class => $1, params => \%params ); |
$class =~ s/-/::/; # sigh! |
86 |
|
warn "# run $class $2\n"; |
87 |
|
$f = Frey::Run->new( class => $class, params => \%params ); |
88 |
} else { |
} else { |
89 |
$f = Frey::Run->new( class => 'Frey::ClassBrowser' ); |
$f = Frey::Run->new( class => 'Frey::ClassBrowser' ); |
90 |
} |
} |