lib/Frey/MapReduce.pm

package Frey::MapReduce;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Storage';
with 'Frey::File';

use YAML qw/LoadFile/;

has path => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'var/introspect/',
);

sub as_markup {
        my ($self) = @_;

        my $introspect;

        my @files = map {
                my $class = $_;
                my $path = $self->path . '/' . $_;
                my $data = LoadFile( $path );
                $data = [ keys %{ $data->{ 'runnable' } } ];

                $class =~ s{\.ya?ml$}{};
                $introspect->{ $class } = $data;
                $_;
        } $self->dir_extension( $self->path, '\.(ya?ml)$' );

        warn "# introspect ", $self->dump( $introspect );

        $self->store('var/Frey/Class/Browser/runnable.yaml', $introspect );

        return $self->dump({
                files => \@files,
                introspect => $introspect,
        });
}

1;
1	dpavlin	820	package Frey::MapReduce;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			with 'Frey::Storage';
7			with 'Frey::File';
8
9			use YAML qw/LoadFile/;
10
11			has path => (
12			is => 'rw',
13			isa => 'Str',
14			required => 1,
15			default => 'var/introspect/',
16			);
17
18			sub as_markup {
19			my ($self) = @_;
20
21			my $introspect;
22
23			my @files = map {
24			my $class = $_;
25			my $path = $self->path . '/' . $_;
26			my $data = LoadFile( $path );
27			$data = [ keys %{ $data->{ 'runnable' } } ];
28
29			$class =~ s{\.ya?ml$}{};
30			$introspect->{ $class } = $data;
31			$_;
32			} $self->dir_extension( $self->path, '\.(ya?ml)$' );
33
34			warn "# introspect ", $self->dump( $introspect );
35
36			$self->store('var/Frey/Class/Browser/runnable.yaml', $introspect );
37
38			return $self->dump({
39			files => \@files,
40			introspect => $introspect,
41			});
42			}
43
44			1;