Condition Coverage

blib/lib/Games/Dukedom.pm
Criterion Covered Total %
condition 4 73 5.4


and 2 conditions

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

and 3 conditions

line !l l&&!r l&&r condition
368 0 13 4 defined $value && $value =~ /^(?:y|n)$/i
377 0 12 7 defined $value && $value =~ /^\d+$/
487 0 0 0 $self->_next_step('_feed_the_peasants') and $self->throw('msg', "Grain for food [$hint]: ", 'action', 'get_value', 'default', $hint)
497 0 0 0 $food < 100 and $self->grain > $food
499 0 0 0 $food / $self->population < 11 and $food != $self->grain
558 0 0 0 $self->_next_step('_purchase_land') and $self->throw('msg', $msg, 'action', 'get_value', 'default', 0)
565 0 0 0 $self->_next_step('_purchase_land') and $self->throw($self->_insufficient_grain('buy'))
593 0 0 0 $self->_next_step('_sell_land') and $self->throw('msg', $msg, 'action', 'get_value', 'default', 0)
645 0 0 0 $price < 4 and $sold
712 0 0 0 $self->_next_step('_king_wants_war') and $self->throw('msg', $msg, 'action', 'get_yn', 'default', 'Y')
739 0 0 0 $self->_next_step('_grain_production') and $self->throw('msg', $msg, 'action', 'get_value', 'default', $max_plant)
894 0 0 0 $self->_next_step('_kings_levy') and $self->throw('msg', $msg, 'action', 'get_yn', 'default', 'Y')
962 0 0 0 $self->_next_step('_first_strike') and $self->throw('msg', $msg, 'action', 'get_yn', 'default', 'N')
1004 0 0 0 $self->_next_step('_goto_war') and $self->throw('msg', $msg, 'action', 'get_value', 'default', $possible)
1233 0 0 0 $self->year >= 45 and not $self->king_unrest

or 2 conditions

line l !l condition
717 0 0 $ans ||= 'Y'

or 3 conditions

line l !l&&r !l&&!r condition
546 0 0 0 $self->_unrest > 88 || $self->population < 33
746 0 0 0 $self->input || $max_plant
881 0 0 0 $self->population < 67 or $self->king_unrest == -1
927 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
1011 0 0 0 $self->input || $possible
1233 0 0 0 $self->grain < 429 or $self->_unrest > 88
0 0 0 $self->grain < 429 or $self->_unrest > 88 or $self->unrest > 99