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

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

revision 50 by dpavlin, Wed Jul 2 22:30:19 2008 UTC revision 180 by dpavlin, Sun Aug 31 18:02:50 2008 UTC
# Line 1  Line 1 
1  package Frey;  package Frey;
2  use Moose;  use Moose;
3    
4    our $VERSION = "0.15";
5    
6  has 'debug' => (  has 'debug' => (
7          is => 'rw',          is => 'rw',
8          isa => 'Bool',          isa => 'Bool',
9          default => 1,          default => 0,
10  );  );
11    
12  =head1 NAME  =head1 NAME
# Line 18  n. Mythology. Line 20  n. Mythology.
20  The Norse god who dispenses peace, good weather, prosperity, and bountiful  The Norse god who dispenses peace, good weather, prosperity, and bountiful
21  crops; the brother of Freya.  crops; the brother of Freya.
22    
23  =cut  Basically you write L<Moose> classes which become deirectly callable from
24    the web using REST API
 use Data::Dump qw/dump/;  
 use File::Find;  
25    
26  has 'classes' => (  =cut
         is => 'ro',  
 #       isa => 'HashRef[Str]',  
         default => sub {  
                 my $self = shift;  
                 # FIXME there must be better way to do this in Moose style  
                 my $classes;  
                 finddepth({ no_chdir => 1, wanted => sub {  
                         return unless s/\.pm$//;  
                         my @a = split(m!/!,$_);  
                         if ( $#a != 2 ) {  
                                 warn "SKIP $_ [$#a]" if $self->debug;  
                                 return;  
                         }  
                         warn ">> $_ ",dump( @a ) if $self->debug;  
                         my $package = "$a[1]::$a[2]";  
                         warn "## $package\n";  
                         push @$classes, $package;  
                 } }, 'lib');  
                 warn "## classes = ",dump( $classes ) if $self->debug;  
                 $classes;  
         },  
         lazy => 1,  
 );  
27    
28  1;  1;
Legend:
Removed from v.50  
changed lines
  Added in v.180
  ViewVC Help
Powered by ViewVC 1.1.26