Branch Coverage

lib/BalanceOfPower/Commands/NagTreaty.pm
Criterion Covered Total %
branch 16 24 66.6


line true false branch
24 0 11 if @available_targets == 0
33 10 0 unless ($self->world->exists_treaty($self->name, $n))
36 1 9 if ($supporter) { }
39 0 1 if ($supporter_nation eq $actor->name) { }
47 1 0 if ($self->world->crisis_exists($actor->name, $supporter_nation)) { }
0 0 elsif ($self->world->diplomacy_status($actor->name, $supporter_nation) eq 'HATE') { }
72 1 10 if (@ordered_friendly_neighbors > 0 and $dangerous_neighbor) { }
81 7 3 if (@crises > 0)
88 1 8 if ($supporter)
91 1 0 if ($supporter_nation ne $actor->name and $self->world->diplomacy_status($actor->name, $supporter_nation) ne 'HATE' and not $self->world->exists_treaty($actor->name, $supporter_nation))
103 1 0 if ($all ne $actor->name and $self->world->diplomacy_status($actor->name, $all) ne 'HATE' and not $self->world->exists_treaty($actor->name, $all))
112 3 5 if (@ordered_friendly_neighbors > 0)