#!/usr/bin/env perl
use strict;
use warnings;

use Graph::Easy::Weighted;

my $gw = Graph::Easy::Weighted->new();

$gw->populate(
    [ [ 0, 1, 2, 0, 0 ], # Vertex 0 with 2 edges of weight 3
      [ 1, 0, 3, 0, 0 ], #    "   1      2 "               4
      [ 2, 3, 0, 0, 0 ], #    "   2      2 "               5
      [ 0, 0, 1, 0, 0 ], #    "   3      1 "               1
      [ 0, 0, 0, 0, 0 ], #    "   4      0 "               0
    ]
);

$gw->dump();

print $gw->as_ascii();
