65 |
|
|
66 |
# warn $req->request->header('User_Agent'); |
# warn $req->request->header('User_Agent'); |
67 |
|
|
68 |
# eval { |
my %params = $req->params; |
69 |
{ |
my $html; |
70 |
|
|
71 |
|
eval { |
72 |
|
|
73 |
my $f; |
my $f; |
74 |
|
|
75 |
my $run_regexp = join('|', Frey::Run->execute ); |
my $run_regexp = join('|', Frey::Run->execute ); |
76 |
|
|
77 |
if ( $path =~ m!/~/([^/]+)(.*)! ) { |
if ( $path =~ m!/Frey[:-]+ObjectBrowser! ) { |
78 |
$f = Frey::Introspect->new( package => $1 ); |
$f = Frey::ObjectBrowser->new( fey_class => $params{class} ); |
79 |
} elsif ( $path =~ m!/ob/([^/]+)(.*)! ) { |
$f->request( $req ); |
80 |
$f = Frey::ObjectBrowser->new( fey_class => $1 ); |
} elsif ( $path =~ m!/Frey[:-]+ObjectDesigner! ) { |
81 |
} elsif ( $path =~ m!/od/([^/]+)(.*)! ) { |
$f = Frey::ObjectDesigner->new( fey_class => $params{class} ); |
82 |
$f = Frey::ObjectDesigner->new( fey_class => $1 ); |
$f->request( $req ); |
83 |
} elsif ( $path =~ m!/($run_regexp)/([^/]+)(.*)! ) { |
} elsif ( $path =~ m!/Frey[:-]+Introspect! ) { |
84 |
|
$f = Frey::Introspect->new( class => $params{class} ); |
85 |
|
$req->print( $f->markup ); |
86 |
|
undef $f; |
87 |
|
} elsif ( $path =~ m!/([^/]+)/($run_regexp)! ) { |
88 |
warn "# run $1 $2\n"; |
warn "# run $1 $2\n"; |
89 |
$f = Frey::Run->new( class => $2 ); |
$f = Frey::Run->new( class => $1, params => \%params ); |
90 |
} else { |
} else { |
91 |
$f = Frey::Run->new( class => 'Frey::ClassBrowser' ); |
$f = Frey::Run->new( class => 'Frey::ClassBrowser' ); |
92 |
} |
} |
93 |
$f->request( $req ) if $f; |
|
94 |
|
if ( $f ) { |
95 |
|
$req->print( $f->html ); |
96 |
|
} else { |
97 |
|
warn "# can't call request on nothing!"; |
98 |
|
} |
99 |
|
|
100 |
}; |
}; |
101 |
|
|