Parent Directory
| 
Revision Log
r3097@llin (orig r243): dpavlin | 2008-11-02 22:24:04 +0100 a swipe of refactoring to run under Mojo and Continuity with same REST API - all objects are now invoked using URL path as object name and param (which doesn't work with Mojo as of this commit) - Frey::Run is now usable Moose object for both servers - move handling of Continuity bits into Frey::Server only
| 1 | dpavlin | 268 | package Frey::Mojo::Run; |
| 2 | |||
| 3 | use strict; | ||
| 4 | use warnings; | ||
| 5 | |||
| 6 | use base 'Mojolicious::Controller'; | ||
| 7 | |||
| 8 | use Data::Dump qw/dump/; | ||
| 9 | use Carp qw/confess/; | ||
| 10 | |||
| 11 | dpavlin | 272 | use Frey::ClassLoader; |
| 12 | |||
| 13 | dpavlin | 277 | warn "# load_all_classes ",dump( Frey::ClassLoader->new->load_all_classes() ); |
| 14 | dpavlin | 272 | |
| 15 | dpavlin | 277 | use Frey::Run; |
| 16 | dpavlin | 272 | |
| 17 | dpavlin | 268 | sub markup { |
| 18 | my ($self, $c) = @_; | ||
| 19 | |||
| 20 | warn "# ", dump( $c->match->captures ); | ||
| 21 | |||
| 22 | my $params = $c->request->params->to_hash; | ||
| 23 | dpavlin | 275 | warn "# params ", dump( $c->request->params ); |
| 24 | dpavlin | 268 | |
| 25 | my $class = $c->match->captures->{class} || 'Frey::ClassBrowser'; | ||
| 26 | $class =~ s{[/-]}{::}g; | ||
| 27 | |||
| 28 | dpavlin | 277 | warn "# c ",dump( $c ); |
| 29 | dpavlin | 268 | |
| 30 | dpavlin | 277 | my $html = Frey::Run->new( class => $class )->html; |
| 31 | dpavlin | 275 | |
| 32 | dpavlin | 272 | # Response objec |
| 33 | my $res = $c->res; | ||
| 34 | $res->code(200); | ||
| 35 | $res->headers->content_type('text/html'); | ||
| 36 | $res->body( $html ); | ||
| 37 | dpavlin | 268 | } |
| 38 | |||
| 39 | dpavlin | 277 | sub data { |
| 40 | my ($self, $c) = @_; | ||
| 41 | $self->markup( $c ); | ||
| 42 | } | ||
| 43 | |||
| 44 | dpavlin | 268 | 1; |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |