#!/usr/bin/perl

use Graph;

my $g = Graph->new;

$g->add_path( 'a', 'b' );
$g->add_path( 'a', 'c' );

my $transpose = $g->transpose;

print "g            = $g\n";
print "transpose(g) = $transpose\n";