#!/usr/bin/perl

use Graph;

my $g = Graph->new;

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

my $complete = $g->complete;

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