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	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;