59 |
$f = Frey::ObjectDesigner->new( fey_class => $1 ); |
$f = Frey::ObjectDesigner->new( fey_class => $1 ); |
60 |
} elsif ( $path =~ m!/pod/([^/]+)(.*)! ) { |
} elsif ( $path =~ m!/pod/([^/]+)(.*)! ) { |
61 |
$f = Frey::Pod->new( class => $1 ); |
$f = Frey::Pod->new( class => $1 ); |
62 |
|
} elsif ( $path =~ m!/markup/([^/]+)(.*)! ) { |
63 |
|
my $o = $1->new( $req->params ); |
64 |
|
$o->depends if $o->can('depends'); |
65 |
|
my $html = $o->markup( $req->params ); |
66 |
|
warn ">>> markup $1 ",length( $html ), " bytes\n"; |
67 |
|
$req->print( $html ); |
68 |
} else { |
} else { |
69 |
$f = Frey::ClassBrowser->new; |
$f = Frey::ClassBrowser->new; |
70 |
} |
} |