File Coverage

blib/lib/AI/Pathfinding/OptimizeMultiple/Scan.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition n/a
subroutine 5 7 71.4
pod 3 3 100.0
total 21 27 77.7


line stmt bran cond sub pod time code
1             package AI::Pathfinding::OptimizeMultiple::Scan;
2             $AI::Pathfinding::OptimizeMultiple::Scan::VERSION = '0.0.15';
3 2     2   15 use strict;
  2         5  
  2         58  
4 2     2   10 use warnings;
  2         4  
  2         55  
5              
6 2     2   46 use 5.012;
  2         7  
7              
8 2     2   9 use MooX qw/late/;
  2         4  
  2         13  
9              
10             has cmd_line => (isa => 'Str', is => 'ro', required => 1,);
11             has id => (isa => 'Str', is => 'ro', required => 1,);
12             has used => (isa => 'Bool', is => 'rw', default => sub { 0; });
13              
14             sub mark_as_used
15             {
16 8     8 1 15 my $self = shift;
17 8         123 $self->used(1);
18             }
19              
20             sub is_used
21             {
22 0     0 1   my $self = shift;
23 0           return $self->used();
24             }
25              
26              
27             sub data_file_path
28             {
29 0     0 1   my $self = shift;
30              
31 0           return "./data/" . $self->id() . ".data.bin";
32             }
33              
34              
35             1;
36              
37             __END__