File Coverage

blib/lib/App/datasection/Command/insert.pm

Criterion	Covered	Total	%
statement	47	49	95.9
branch	7	12	58.3
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	65	72	90.2

use warnings;
use 5.020;
use experimental qw( signatures );
use stable qw( postderef );
use true;

package App::datasection::Command::insert 0.01 {

    # ABSTRACT: Insert files from the file system into Perl source __DATA__ section
    # VERSION

    use App::datasection -command;
    use Data::Section::Writer 0.04;
    use Path::Tiny qw( path );

    sub execute ($self, $opt, $args) {

        my @files = map { path($_) } @$args;

        my $dir;
        if($opt->{dir}) {
            $dir = path($opt->{dir})->absolute;
        }

        foreach my $file (@files) {
            my $dir = $dir ? $dir : $file->sibling($file->basename . '.data');

            if(-d $dir) {
                my $dsw = Data::Section::Writer
                    ->new(perl_filename => $file);

                $dir->visit(sub ($path, $state) {
                    return if $path->is_dir;
                    if(-B $path) {
                        $dsw->add_file($path->relative($dir), $path->slurp_raw, 'base64');
                    } else {
                        $dsw->add_file($path->relative($dir), $path->slurp_utf8);
                    }
                }, { recurse => 1 });

                $dsw->update_file;
                unless($dsw->unchanged) {
                    say $file;
                }
            }
        }
    }

}

__END__