/[Frey]/trunk/lib/Frey/Mojo/Run.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Mojo/Run.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 626 by dpavlin, Wed Nov 19 15:28:23 2008 UTC revision 627 by dpavlin, Sat Nov 29 22:02:08 2008 UTC
# Line 19  use Frey::Run; Line 19  use Frey::Run;
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;
Legend:
Removed from v.626  
changed lines
  Added in v.627
  ViewVC Help
Powered by ViewVC 1.1.26