File Coverage

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

Criterion	Covered	Total	%
statement	39	40	97.5
branch	3	6	50.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	52	56	92.8

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

package App::datasection::Command::extract 0.01 {

    # ABSTRACT: Extract files from Perl source __DATA__ section
    # VERSION

    use App::datasection -command;
    use Data::Section::Pluggable 0.08;
    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');

            my $dsp = Data::Section::Pluggable
                ->new( filename => $file );

            if($dsp->get_data_section->%*) {
                $dir->mkdir;
                $dsp->extract($dir);
                say $file;
            }
        }

    }

}

__END__