first commit

perl/lib/Graph-Easy-0.76/examples/ascii.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+#############################################################################
+# This example is a bit outdated, please use the new bin/grapheasy script -
+# which is after "make install" available in your system as simple as
+# "grapheasy" on any command line prompt.
+
+#############################################################################
+# This script uses examples/common.pl to generate some example graphs and
+# displays them in ASCII.
+
+use strict;
+use warnings;
+
+BEGIN { chdir 'examples' if -d 'examples'; }
+
+require "common.pl";
+
+sub out
+  {
+  my ($graph,$method) = @_;
+
+  $method = 'as_' . $method;
+  print $graph->$method(), "\n";
+  }
+
+gen_graphs ();
+