Condition Coverage

blib/lib/Games/Dukedom.pm
Criterion Covered Total %
condition 4 75 5.3


and 2 conditions

line l !l condition
585 0 0 $self->_next_step('_sell_land') and return

and 3 conditions

line !l l&&!r l&&r condition
395 0 13 4 defined $value && $value =~ /^(?:y|n)$/i
404 0 12 7 defined $value && $value =~ /^\d+$/
512 0 0 0 $self->_next_step('_feed_the_peasants') and $self->throw('display', "Grain for food [$hint]: ", 'action', 'get_value', 'default', $hint)
522 0 0 0 $food < 100 and $self->grain > $food
524 0 0 0 $food / $self->population < 11 and $food != $self->grain
581 0 0 0 $self->_next_step('_purchase_land') and $self->throw('display', $msg, 'action', 'get_value', 'default', 0)
588 0 0 0 $self->_next_step('_purchase_land') and $self->throw('display', $self->_insufficient_grain('buy'))
621 0 0 0 $self->_next_step('_sell_land') and $self->throw('display', $msg, 'action', 'get_value', 'default', 0)
668 0 0 0 $price < 4 and $sold
735 0 0 0 $self->_next_step('_king_wants_war') and $self->throw('display', $msg, 'action', 'get_yn', 'default', 'Y')
760 0 0 0 $self->_next_step('_grain_production') and $self->throw('display', $msg, 'action', 'get_value', 'default', $max_plant)
915 0 0 0 $self->_next_step('_kings_levy') and $self->throw('display', $msg, 'action', 'get_yn', 'default', 'Y')
978 0 0 0 $self->_next_step('_first_strike') and $self->throw('display', $msg, 'action', 'get_yn', 'default', 'N')
1021 0 0 0 $self->_next_step('_goto_war') and $self->throw('display', $msg, 'action', 'get_value', 'default', $possible)
1253 0 0 0 $self->year >= 45 and not $self->king_unrest

or 2 conditions

line l !l condition
740 0 0 $ans ||= 'Y'
1044 0 0 $$self{'_unrest'} || 'undef'

or 3 conditions

line l !l&&r !l&&!r condition
571 0 0 0 $self->_unrest > 88 || $self->population < 33
767 0 0 0 $self->input || $max_plant
902 0 0 0 $self->population < 67 or $self->king_unrest == -1
945 0 0 0 $self->king_unrest or $self->population <= 109
0 0 0 $self->king_unrest or $self->population <= 109 or 17 * ($self->land - 400) + $self->grain <= 10600
1028 0 0 0 $self->input || $possible
1253 0 0 0 $self->grain < 429 or $self->_unrest > 88
0 0 0 $self->grain < 429 or $self->_unrest > 88 or $self->unrest > 99