File Coverage

lib/BalanceOfPower/Commands/BoostProduction.pm
Criterion Covered Total %
statement 11 11 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package BalanceOfPower::Commands::BoostProduction;
2             $BalanceOfPower::Commands::BoostProduction::VERSION = '0.400110';
3 13     13   43 use Moo;
  13         16  
  13         50  
4              
5 13     13   2429 use BalanceOfPower::Constants ":all";
  13         14  
  13         6193  
6              
7             extends 'BalanceOfPower::Commands::NoArgs';
8              
9             sub IA
10             {
11 22     22 0 22 my $self = shift;
12 22         41 my $nation = $self->get_nation();
13 22 100       44 if($nation->production < EMERGENCY_PRODUCTION_LIMIT)
14             {
15 5         11 return "BOOST PRODUCTION"
16             }
17             else
18             {
19 17         25 return undef;
20             }
21             }
22              
23             1;