diff options
| -rw-r--r-- | Makefile.PL | 1 | ||||
| -rw-r--r-- | lib/Graph/GEXF.pm | 4 | ||||
| -rw-r--r-- | lib/Graph/GEXF/Edge.pm | 4 |
3 files changed, 4 insertions, 5 deletions
diff --git a/Makefile.PL b/Makefile.PL index 0295af0..fdbc37d 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -28,7 +28,6 @@ WriteMakefile( 'Net::HTTP::Spore' => 0, 'Cache::Memcached' => 0, 'Plack::Middleware::ETag' => 0.03, - 'Data::UUID::LibUUID' => 0, 'MooseX::Role::Parameterized' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, diff --git a/lib/Graph/GEXF.pm b/lib/Graph/GEXF.pm index f226b06..941bcb9 100644 --- a/lib/Graph/GEXF.pm +++ b/lib/Graph/GEXF.pm @@ -4,7 +4,7 @@ package Graph::GEXF; use Moose; -use Data::UUID::LibUUID; +#use Data::UUID::LibUUID; use Moose::Util::TypeConstraints; use Graph::GEXF::Node; @@ -124,7 +124,7 @@ sub add_node { die "Can't add node wih id $id: already exists"; } - $id = new_uuid_string() if !defined $id; +# $id = new_uuid_string() if !defined $id; my $node = Graph::GEXF::Node->new(id => $id); diff --git a/lib/Graph/GEXF/Edge.pm b/lib/Graph/GEXF/Edge.pm index a116a01..fe94d82 100644 --- a/lib/Graph/GEXF/Edge.pm +++ b/lib/Graph/GEXF/Edge.pm @@ -1,7 +1,7 @@ package Graph::GEXF::Edge; use Moose; -use Data::UUID::LibUUID; +#use Data::UUID::LibUUID; with 'Graph::GEXF::Role::Viz::Size' => { as => 'thickness' }, @@ -11,7 +11,7 @@ has id => ( is => 'ro', isa => 'Str', required => 1, - default => sub { new_uuid_string() } +# default => sub { new_uuid_string() } ); has source => (is => 'ro', isa => 'Str', required => 1); |