Select Code to Download

use strict;
use GraphViz;
...
    </C>
    <C title="Adviser" name="Bob"/>
</Boss>

use strict;
use warnings;
...
$VShape->{Text} = "New Name";
print $VShape->{Text};
$VDoc->SaveAs($path."test2.vsd");

use strict;
use warnings;
...
$g->add_edge('email' => 'thankC', label => 'creditor/collector');
$g->add_edge('email' => 'thankD', label => 'debtor');
$g->as_jpeg("email01.jpg");

$g = GraphViz->new(node => {fontsize => 10}, edge => {fontsize => 9}, 
+rankdir => 'LR');
$g->add_node('email', label => "Email App:\nperiodic DB query\nto send
+ emails", shape => 'box');
...
$g->add_edge('email' => 'thankC', label => 'creditor/collector');
$g->add_edge('email' => 'thankD', label => 'debtor');
$g->as_jpeg("email02.jpg");

my @color = (color => 'lightgray', fontcolor => 'lightgray');
$g = GraphViz->new(node => {shape => 'box', fontsize => 10}, edge => {
+fontsize => 9}, rankdir => 'LR');
...
$g->add_edge('report' => 'XML data', label => 'use', @color);
$g->add_edge('thank' => 'XML data', label => 'use', @color);
$g->as_jpeg("email03.jpg");

DROP TABLE IF EXISTS org;
CREATE TABLE org (
...
  FOREIGN KEY (employee_id) REFERENCES employee (id),
  FOREIGN KEY (subord_id) REFERENCES employee (id)
) TYPE=InnoDB;

use strict;
use warnings;
...
my $dbh = DBI->connect("DBI:mysql:test", "user", "password");
GraphViz::DBI->new($dbh)->graph_tables->as_jpeg("dbi.jpg");
$dbh->disconnect;

use strict;
use GraphViz;
...
    </module>
    <module name="Mail::Sender" src="http://search.cpan.org/author/JEN
+DA/Mail-Sender-0.8.06/Sender.pm"/>
</script>

use strict;
use GraphViz;
...
1 randomThreat
6 generateReport
2 sendemail

# Original code: "Prettified Perl Inheritance" by Kageneko
use strict;
...
        $already_loaded{$module} = $parent;
    }
}