File Coverage

blib/lib/App/Yath/Script/V0.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition	2	4	50.0
subroutine	5	5	100.0
pod	0	2	0.0
total	31	38	81.5

package App::Yath::Script::V0;
use strict;
use warnings;

use Getopt::Yath;

our $VERSION = '2.000016';

my @BEGIN_ARGS;

option_group {group => 'v0', category => 'V0 Options'} => sub {
    option begin => (
        type        => 'List',
        description => 'Arguments to process during the BEGIN phase',
    );

    option goto_file => (
        type        => 'Scalar',
        description => 'Use goto::file to switch to a different file during BEGIN (for testing)',
    );
};

sub do_begin {
    my $class  = shift;
    my %params = @_;

    my $argv = $params{argv};

    my $state = parse_options($argv, skip_non_opts => 1);
    @BEGIN_ARGS = @{$state->{settings}->v0->begin // []};

    # Non-option args go back into @ARGV for do_runtime
    @ARGV = @{$state->{skipped} // []};

    print "BEGIN: $_\n" for @BEGIN_ARGS;

    my $goto = $state->{settings}->v0->goto_file;
    if ($goto) {
        require goto::file;
        goto::file->import($goto);
    }
}

sub do_runtime {
    my $class = shift;

    print "RUNTIME: $_\n" for @ARGV;

    return 0;
}

1;

__END__