File Coverage

blib/lib/App/puzzl/run.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	15	35	42.8

use strict;
use v5.28;
package App::puzzl::run;

use Exporter 'import';
use Module::Load;

sub run_day {
	my ($day) = @_;

	if($day eq 'all') {
		my @days = glob("days/day*.pl");
		foreach my $day_found (@days) {
			run($day_found);
		}
		return;
	}

	open(my $input_fh, "<", "input/day$day.txt") or die "failed to open input file input/day$day.txt";
	do "./days/day$day.pl";
	say '=== PART 1 ===';
	part1($input_fh);

	seek($input_fh, 0, 0);
	say '=== PART 2 ===';
	part2($input_fh);

	close($input_fh);
}

our @EXPORT_OK = qw(run_day);

1;