trunk/lib/Frey.pm

package Frey;
use Moose;

has 'debug' => (
        is => 'rw',
        isa => 'Int',
        default => 1,
);

=head1 NAME

Frey - hi-level web framework in spirit of 4GLs

=head1 DESCRIPTION

n. Mythology.

The Norse god who dispenses peace, good weather, prosperity, and bountiful
crops; the brother of Freya.

=cut

use Data::Dump qw/dump/;
use File::Find;

has 'classes' => (
        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;
                        warn "## $a[1]::$a[2]\n";
                        push @$classes, join('::', @a);
                } }, 'lib');
                warn "## classes = ",dump( $classes ) if $self->debug;
                $classes;
        },
        lazy => 1,
);

1;
1	dpavlin	24	package Frey;
2			use Moose;
3	dpavlin	17
4	dpavlin	24	has 'debug' => (
5			is => 'rw',
6			isa => 'Int',
7			default => 1,
8			);
9	dpavlin	17
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	dpavlin	24	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			if ( $#a != 2 ) {
37			warn "SKIP $_ [$#a]" if $self->debug;
38			return;
39			}
40			warn ">> $_ ",dump( @a ) if $self->debug;
41			warn "## $a[1]::$a[2]\n";
42			push @$classes, join('::', @a);
43			} }, 'lib');
44			warn "## classes = ",dump( $classes ) if $self->debug;
45			$classes;
46			},
47			lazy => 1,
48			);
49
50	dpavlin	17	1;