Only load YAML and Data::Dumper modules if required.

Per complaint from Alvaro Herrera.
adunstan · Apr 3, 2012 · f825e44 · f825e44
1 parent ff101b8
commit f825e44
Showing 1 changed file with 16 additions and 4 deletions.
diff --git a/dumpToc.pl b/dumpToc.pl
@@ -11,8 +11,6 @@
 =cut
 
 use strict;
-use YAML;
-use Data::Dumper;
 use IO::Handle;
 use Getopt::Long;
 use File::Path qw(make_path);
@@ -63,15 +61,29 @@
 	$inh = IO::Handle->new_from_fd(fileno(STDIN),"r"); 
 }
 
+# load optional output modules
+if ($format eq 'YAML')
+{
+	require YAML;
+}
+elsif ($format eq 'Dumper')
+{
+	require Data::Dumper;
+}
+
+# get the actual data
+# fills in @$result and @$toc
+
 read_data();
 
+# output the data
 if ($format eq 'YAML')
 {
-	print Dump($result);
+	print YAML::Dump($result);
 }
 elsif ($format eq 'Dumper')
 {
-	print Dumper($result);
+	print Data::Dumper::Dumper($result);
 }
 else
 {