/[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 317 by dpavlin, Wed Nov 5 08:20:50 2008 UTC revision 318 by dpavlin, Wed Nov 5 22:05:40 2008 UTC
# Line 3  package Frey::Mojo::Run; Line 3  package Frey::Mojo::Run;
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6    my $debug = 1;
7    
8  use base 'Mojolicious::Controller';  use base 'Mojolicious::Controller';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 10  use Carp qw/confess/; Line 12  use Carp qw/confess/;
12    
13  use Frey::ClassLoader;  use Frey::ClassLoader;
14    
15  warn "# load_all_classes ",dump( Frey::ClassLoader->new->load_all_classes() );  warn "# load_all_classes ",join(',', keys %{ Frey::ClassLoader->new->load_all_classes() } );
16    
17  use Frey::Run;  use Frey::Run;
18    
# Line 25  sub markup { Line 27  sub markup {
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 );          warn "# c ",dump( $c ) if $debug;
31    
32          my $html = Frey::Run->new( class => $class )->html;          my $html = Frey::Run->new( class => $class )->html;
33    
Legend:
Removed from v.317  
changed lines
  Added in v.318
  ViewVC Help
Powered by ViewVC 1.1.26