File Coverage

lib/BalanceOfPower/Nation/Role/Shareholder.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package BalanceOfPower::Nation::Role::Shareholder;
2             $BalanceOfPower::Nation::Role::Shareholder::VERSION = '0.400115';
3 13     13   5208 use strict;
  13         25  
  13         347  
4 13     13   116 use v5.10;
  13         37  
5 13     13   46 use Moo::Role;
  13         62  
  13         77  
6              
7             has available_stocks => (
8             is => 'rw',
9             default => 0
10             );
11              
12             sub get_stocks
13             {
14 2     2 0 4 my $self = shift;
15 2         4 my $q = shift;
16 2 50       8 if($q <= $self->available_stocks)
17             {
18 2         9 $self->available_stocks($self->available_stocks - $q);
19             }
20             else
21             {
22 0           return 0;
23             }
24             }
25              
26             1;