use Acme::Pythonic; # this semicolon yet needed

  sub delete_edges:
      my $G = shift
      while my ($u, $v) = splice(@_, 0, 2):
          if defined $v:
              $G->delete_edge($u, $v)
          else:
              my @e = $G->edges($u)
              while ($u, $v) = splice(@e, 0, 2):
                  $G->delete_edge($u, $v)