blib/lib/Map/Metro/Graph.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 16 | 33 | 48.4 |
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) |
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 |
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 |