Add 'graph' option to netdisco-do

Netdisco/Changes

@@ -1,5 +1,9 @@
 2.028006 - 2014-07-21
 
+  [ENHANCEMENTS]
+
+  * Add 'graph' option to netdisco-do
+
   [BUG FIXES]
 
   * DNS Mismatch report incorrectly trimmed domain_suffix

Netdisco/bin/netdisco-do

@@ -81,6 +81,12 @@ if (!length $action) {
   with 'App::Netdisco::Daemon::Worker::Poller::Expiry';
   with 'App::Netdisco::Daemon::Worker::Interactive::DeviceActions';
   with 'App::Netdisco::Daemon::Worker::Interactive::PortActions';
+
+  use App::Netdisco::Util::Graph ();
+  sub graph {
+    App::Netdisco::Util::Graph::graph();
+    return ('done', 'Generated graph data.');
+  }
 }
 my $worker = MyWorker->new();
 
@@ -152,6 +158,10 @@ Run an arpnip on the device (specified with C<-d>).
 
 Run an nbtstat on the node (specified with C<-d>).
 
+=head2 graph
+
+Generate GrapgViz graphs for the largest cluster of devices.
+
 =head2 set_location
 
 Set the SNMP location field on the device (specified with C<-d>). Pass the

Netdisco/lib/App/Netdisco/Util/Graph.pm

@@ -49,10 +49,14 @@ all subroutines.
 
 =head1 EXPORT
 
+=over 4
+
 =item graph()
 
 Creates netmap of network.
 
+=back
+
 =cut
 
 sub graph {
@@ -113,6 +117,8 @@ sub graph {
 
 =head1 EXPORT_OK
 
+=over 4
+
 =item graph_each($graph_obj, $name)
 
 Generates subgraph. Does actual GraphViz calls.
@@ -350,7 +356,7 @@ sub graph_addnode {
     return $rv;
 }
 
-=head2 make_graph()
+=item make_graph()
 
 Returns C<Graph::Undirected> object that represents the discovered network.
 
@@ -360,6 +366,8 @@ vertex.
 
 Nodes without topology information are not included.
 
+=back
+
 =cut
 
 sub make_graph {