Condition Coverage

blib/lib/Map/Metro/Graph.pm
Criterion Covered Total %
condition 16 33 48.4


and 3 conditions

line !l l&&!r l&&r condition
240 164 0 12 $row =~ /^--(\w+)/ and &any(sub { $_ eq $1; } , 'stations', 'transfers', 'lines', 'segments')
483 0 0 0 scalar @$keys and &none(sub { $key eq $_; } , @$keys)
492 0 0 4 $self->has_stations and $self->has_lines
0 0 4 $self->has_stations and $self->has_lines and $self->has_segments
656 0 1 0 $origin->possible_on_same_line($dest) and not $origin->on_same_line($dest)

or 2 conditions

line l !l condition
384 192 1 $self->find_line(sub { $_->id eq $line_id; } ) || die(lineid_does_not_exist_in_line_list('line_id', $line_id))
424 2 0 $self->find_station(sub { $_->id == $id; } ) || die(stationid_does_not_exist('station_id', $id))
668 2 1 $$graphroute[$index + 2] // undef

or 3 conditions

line l !l&&r !l&&!r condition
238 20 0 176 not length $row or $row =~ /^[ \t]*#/
507 84 12 0 $self->get_line_station_by_line_and_station_id($line_id, $segment->origin_station->id) || &LineStation()->new('line_station_id', ++$next_line_station_id, 'station', $segment->origin_station, 'line', $line)
517 4 92 0 $self->get_line_station_by_line_and_station_id($line_id, $segment->destination_station->id) || &LineStation()->new('line_station_id', ++$next_line_station_id, 'station', $segment->destination_station, 'line', $line)
617 0 0 0 $error->$Map::Metro::Graph::_call_if_object('desc') || $error