/[Frey]/trunk/lib/Frey/ClassLoader.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/ClassLoader.pm

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

revision 667 by dpavlin, Sun Nov 30 23:49:32 2008 UTC revision 668 by dpavlin, Tue Dec 2 01:06:46 2008 UTC
# Line 210  It is used by L<Frey::Run> and L<Frey::P Line 210  It is used by L<Frey::Run> and L<Frey::P
210          }          }
211  }  }
212    
213    our $syntax_checked_last;
214    
215  sub new_frey_class {  sub new_frey_class {
216          my ( $self, $class, $params ) = @_;          my ( $self, $class, $params ) = @_;
217          my $instance;          my $instance;
218            
219            my $path = $self->class_path( $class );
220            if ( $syntax_checked_last->{$class} != -C $path ) {
221                    my $syntax = `perl -Ilib -wc $path 2>&1`;
222                    warn "# syntax: $syntax";
223                    $syntax_checked_last->{$class} = -C $class;
224            }
225    
226          if ( $class->meta->isa('Moose::Meta::Role') ) {          if ( $class->meta->isa('Moose::Meta::Role') ) {
227                  $instance = Frey->new;                  $instance = Frey->new;
228                  Frey::Web->meta->apply( $instance );                  Frey::Web->meta->apply( $instance );
Legend:
Removed from v.667  
changed lines
  Added in v.668
  ViewVC Help
Powered by ViewVC 1.1.26