/[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 268 by dpavlin, Wed Nov 5 08:20:38 2008 UTC revision 277 by dpavlin, Wed Nov 5 08:20:50 2008 UTC
# Line 8  use base 'Mojolicious::Controller'; Line 8  use base 'Mojolicious::Controller';
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Carp qw/confess/;  use Carp qw/confess/;
10    
11    use Frey::ClassLoader;
12    
13    warn "# load_all_classes ",dump( Frey::ClassLoader->new->load_all_classes() );
14    
15    use Frey::Run;
16    
17  sub markup {  sub markup {
18      my ($self, $c) = @_;      my ($self, $c) = @_;
19    
20          warn "# ", dump( $c->match->captures );          warn "# ", dump( $c->match->captures );
21    
     # Response object  
     my $res = $c->res;  
     $res->code(200);  
     $res->headers->content_type('text/html');  
   
22          my $params = $c->request->params->to_hash;          my $params = $c->request->params->to_hash;
23          warn "# params ", dump( $params );          warn "# params ", dump( $c->request->params );
24    
25          my $class = $c->match->captures->{class} || 'Frey::ClassBrowser';          my $class = $c->match->captures->{class} || 'Frey::ClassBrowser';
26          $class =~ s{[/-]}{::}g;          $class =~ s{[/-]}{::}g;
27    
28          my $o = $class->new( %$params );          warn "# c ",dump( $c );
29          $o->depends if $o->can('depends');  
30            my $html = Frey::Run->new( class => $class )->html;
31    
32        # Response objec
33        my $res = $c->res;
34        $res->code(200);
35        $res->headers->content_type('text/html');
36            $res->body( $html );
37    }
38    
39      $res->body( $o->markup );  sub data {
40            my ($self, $c) = @_;
41            $self->markup( $c );
42  }  }
43    
44  1;  1;
Legend:
Removed from v.268  
changed lines
  Added in v.277
  ViewVC Help
Powered by ViewVC 1.1.26