File Coverage

blib/lib/App/puzzl.pm
Criterion Covered Total %
statement 20 26 76.9
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 27 35 77.1


line stmt bran cond sub pod time code
1             package App::puzzl;
2              
3 1     1   327168 use v5.28;
  1         5  
4 1     1   8 use strict;
  1         2  
  1         226  
5 1     1   9 use warnings;
  1         2  
  1         96  
6 1     1   1009 use Getopt::Long;
  1         19292  
  1         6  
7 1     1   330 use Exporter 'import';
  1         2  
  1         47  
8              
9 1     1   629 use App::puzzl::new qw(new_day);
  1         4  
  1         96  
10 1     1   610 use App::puzzl::run qw(run_day);
  1         3  
  1         248  
11              
12             our $VERSION = "0.01";
13              
14             sub run {
15 0     0 0   my @new;
16             my @run;
17 0           GetOptions('new=i@' => \@new,
18             'run=s@' => \@run);
19              
20              
21 0           foreach my $new (@new) {
22 0           new_day($new);
23             }
24              
25 0           foreach my $run (@run) {
26 0           run_day($run);
27             }
28             }
29              
30             our @EXPORT_OK = qw(run);
31              
32             1;
33             __END__