| 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__ |