File Coverage

blib/lib/Games/Solitaire/Verify/App/Golf.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	33	63.6

package Games::Solitaire::Verify::App::Golf;
$Games::Solitaire::Verify::App::Golf::VERSION = '0.2601';
use strict;
use warnings;
use autodie;

use Games::Solitaire::Verify::Golf ();
use Path::Tiny                     qw/ path /;


sub run
{
    my ( $self,     $args )        = @_;
    my ( $board_fn, $solution_fn ) = @ARGV;
    my $verifier = Games::Solitaire::Verify::Golf->new(
        {
            board_string => path($board_fn)->slurp_raw(),
            %$args,
        }
    );

    open my $fh, '<', $solution_fn;
    $verifier->process_solution( sub { my $l = <$fh>; chomp $l; return $l; } );
    print "Solution is OK.\n";
    exit(0);
}

1;

__END__