File Coverage

lib/BalanceOfPower/Relations/Crisis.pm
Criterion Covered Total %
statement 8 10 80.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 11 15 73.3


line stmt bran cond sub pod time code
1             package BalanceOfPower::Relations::Crisis;
2             $BalanceOfPower::Relations::Crisis::VERSION = '0.400115';
3             #DEPRECATED
4              
5 13     13   58 use strict;
  13         24  
  13         335  
6 13     13   115 use v5.10;
  13         36  
7              
8 13     13   52 use Moo;
  13         26  
  13         73  
9              
10             has factor => (
11             is => 'rw',
12             default => 1
13             );
14              
15             with 'BalanceOfPower::Relations::Role::Relation';
16              
17             sub print
18             {
19 0     0 0   my $self = shift;
20 0           return $self->node1 . " <-> " . $self->node2 . " (" . $self->factor . ")";
21             }
22              
23             1;