blob: effb6dada057839f51401f5bf61d32735c79f696 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
use strict;
use warnings;
use Test::More;
use Graph::GEXF;
my $graph = Graph::GEXF->new();
ok $graph->add_node_attribute('foo', 'bar', 'baz');
ok $graph->add_edge_attribute('baz', 'bar', 'foo');
print $graph->to_xml;
done_testing;
|