19 |
sub as_markup { |
sub as_markup { |
20 |
my ($self, $c) = @_; |
my ($self, $c) = @_; |
21 |
|
|
22 |
warn "# ", dump( $c->match->captures ); |
warn "# ", dump( $c->match->tx->req->url->query->params ); |
23 |
|
|
24 |
my $params = $c->request->params->to_hash; |
my $params = $c->match->tx->req->url->query->params; |
25 |
warn "# params ", dump( $c->request->params ); |
warn "# params ", dump( $params ); |
26 |
|
|
27 |
my $class = $c->match->captures->{class} || 'Frey::ClassBrowser'; |
my $class = $c->match->captures->{class} || 'Frey::ClassBrowser'; |
28 |
$class =~ s{[/-]}{::}g; |
$class =~ s{[/-]}{::}g; |
29 |
|
|
30 |
warn "# c ",dump( $c ) if $debug; |
# warn "# c ",dump( $c ) if $debug; |
31 |
|
|
32 |
my $html = Frey::Run->new( class => $class )->html; |
my $html = Frey::Run->new( |
33 |
|
class => $class, |
34 |
|
request_url => $c->match->tx->req->url, |
35 |
|
)->html; |
36 |
|
|
37 |
# Response objec |
# Response objec |
38 |
my $res = $c->res; |
my $res = $c->res; |