Select Code to Download

sub di_graph_connected {
    my $g = shift; # $g is of type 'Graph'
...

    return @pairs;
}