lib/Perly/Bootstrap.pm

use warnings;
use strict;

package Perly::Bootstrap;
use base qw(Jifty::Bootstrap);

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

=head1 Bootstrap examples

Import initial code and data examples

=cut

sub run {
    my $self = shift;

        my $system_user = Perly::CurrentUser->superuser( _bootstrap => 1 );

        # we need to first scan files and then import them to preserve order
        my @import;
        find({ no_chdir => 1, wanted => sub {
                my $path = $File::Find::name;

                return unless $path =~ m!examples/(Code|Input)/(.+)!;
                my ( $model, $name ) = ( $1, $2 );
                push @import, [ $path, $model, $name ];

        }}, 'examples');

        foreach my $i ( sort { $a->[0] cmp $b->[0] } @import ) {
                my ( $path, $model, $name ) = @$i;

                Jifty->log->info("import $path as $model with name $name");

                my $import = Jifty->app_class('Model', $model)->new;
                $import->create(
                        name => $name,
                        $model eq 'Code' ? 'source' : 'content' => scalar read_file( $path ),
                );
        }

}

1;
1	dpavlin	44	use warnings;
2			use strict;
3
4			package Perly::Bootstrap;
5			use base qw(Jifty::Bootstrap);
6
7			use File::Find;
8			use File::Slurp;
9			use Data::Dump qw/dump/;
10
11			=head1 Bootstrap examples
12
13			Import initial code and data examples
14
15			=cut
16
17			sub run {
18			my $self = shift;
19
20			my $system_user = Perly::CurrentUser->superuser( _bootstrap => 1 );
21
22			# we need to first scan files and then import them to preserve order
23			my @import;
24			find({ no_chdir => 1, wanted => sub {
25			my $path = $File::Find::name;
26
27			return unless $path =~ m!examples/(Code\|Input)/(.+)!;
28			my ( $model, $name ) = ( $1, $2 );
29			push @import, [ $path, $model, $name ];
30
31			}}, 'examples');
32
33			foreach my $i ( sort { $a->[0] cmp $b->[0] } @import ) {
34			my ( $path, $model, $name ) = @$i;
35
36			Jifty->log->info("import $path as $model with name $name");
37
38			my $import = Jifty->app_class('Model', $model)->new;
39			$import->create(
40			name => $name,
41			$model eq 'Code' ? 'source' : 'content' => scalar read_file( $path ),
42			);
43			}
44
45			}
46
47			1;