File Coverage

lib/BalanceOfPower/Commands/LowerDisorder.pm
Criterion Covered Total %
statement 10 11 90.9
branch 1 2 50.0
condition 1 3 33.3
subroutine 3 3 100.0
pod 0 1 0.0
total 15 20 75.0


line stmt bran cond sub pod time code
1             package BalanceOfPower::Commands::LowerDisorder;
2             $BalanceOfPower::Commands::LowerDisorder::VERSION = '0.400105';
3 13     13   42 use Moo;
  13         14  
  13         53  
4              
5 13     13   2265 use BalanceOfPower::Constants ":all";
  13         21  
  13         6247  
6              
7             extends 'BalanceOfPower::Commands::NoArgs';
8              
9             sub IA
10             {
11 16     16 0 19 my $self = shift;
12 16         36 my $nation = $self->get_nation();
13 16 50 33     70 if($nation->internal_disorder > WORRYING_LIMIT && $nation->production_for_domestic > DOMESTIC_BUDGET)
14             {
15 0         0 return "LOWER DISORDER";
16             }
17             else
18             {
19 16         29 return undef;
20             }
21             }
22              
23             1;