/[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

Contents of /trunk/lib/Frey.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 58 - (show annotations)
Tue Jul 8 12:18:33 2008 UTC (15 years, 8 months ago) by dpavlin
File size: 878 byte(s)
support any level of sub::modules::namespace
1 package Frey;
2 use Moose;
3
4 has 'debug' => (
5 is => 'rw',
6 isa => 'Bool',
7 default => 0,
8 );
9
10 =head1 NAME
11
12 Frey - hi-level web framework in spirit of 4GLs
13
14 =head1 DESCRIPTION
15
16 n. Mythology.
17
18 The Norse god who dispenses peace, good weather, prosperity, and bountiful
19 crops; the brother of Freya.
20
21 =cut
22
23 use Data::Dump qw/dump/;
24 use File::Find;
25
26 has 'classes' => (
27 is => 'ro',
28 # isa => 'HashRef[Str]',
29 default => sub {
30 my $self = shift;
31 # FIXME there must be better way to do this in Moose style
32 my $classes;
33 finddepth({ no_chdir => 1, wanted => sub {
34 return unless s/\.pm$//;
35 my @a = split(m!/!,$_);
36 warn ">> $_ ",dump( @a ) if $self->debug;
37 my $package = join('::', @a[ 1 .. $#a ]);
38 warn "## $package\n";
39 push @$classes, { $package => "$_.pm" };
40 } }, 'lib');
41 warn "## classes = ",dump( $classes ) if $self->debug;
42 $classes;
43 },
44 lazy => 1,
45 );
46
47 1;

  ViewVC Help
Powered by ViewVC 1.1.26