Codebase list libgraph-perl / a48ae39
confess if asked for undefined vertex Ed J 3 years ago
1 changed file(s) with 1 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
+1
-0
lib/Graph.pm less more
316316 sub _vertex_ids_maybe_ensure {
317317 my $ensure = pop;
318318 my ($g, @args) = @_;
319 __carp_confess "Graph: given undefined vertex" if grep !defined, @args;
319320 my $V = $g->[ _V ];
320321 my $deep = &is_hyperedged && &is_directed;
321322 return $V->get_ids_by_paths(\@args, $ensure, $deep) if ($V->[ _f ] & _REF) or $deep;