File Coverage

lib/BalanceOfPower/Targets/Role/Target.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package BalanceOfPower::Targets::Role::Target;
2             $BalanceOfPower::Targets::Role::Target::VERSION = '0.400105';
3 13     13   4260 use strict;
  13         20  
  13         277  
4 13     13   95 use v5.10;
  13         28  
5 13     13   40 use Moo::Role;
  13         17  
  13         65  
6              
7             has target_obj => (
8             is => 'rw',
9             );
10             has target_to_load => (
11             is => 'ro'
12             );
13             has countdown => (
14             is => 'rw',
15             );
16              
17             sub click
18             {
19 7     7 0 6 my $self = shift;
20 7         24 $self->countdown($self->countdown -1);
21 7         23 return $self->countdown == 0;
22             }
23             1;
24