1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
package githubexplorer::Gexf; use Moose; use XML::Simple; has graph => ( is => 'rw', isa => 'HashRef', default => sub { my $graph = { gexf => { version => "1.0", meta => { creator => ['rtgi'] }, graph => { type => 'static', attributes => { class => 'node', type => 'static', attribute => [ { id => 0, type => 'string' } ] } } } }; } ); 1;