0
@@ -1,8 +1,10 @@
0
 #!/usr/bin/perl -w
0
 
0
 use strict;
0
-use DateTime;
0
+use warnings;
0
 
0
+require_module('DateTime');
0
+
0
 # Format classes to use for display
0
 my @formats = qw( DateParse MySQL HTTP Mail RSS );
0
 
0
0
@@ -11,10 +13,9 @@
0
 FORMAT_CLASS:
0
 foreach my $format (@formats) {
0
   my $class = "DateTime::Format::$format";
0
+
0
+  next FORMAT_CLASS unless optional_module($class);  
0
   
0
-  eval "require $class;";
0
-  next FORMAT_CLASS if $@;
0
-  
0
   push @available, {
0
     name       => $format,
0
     class      => $class,
0
@@ -90,5 +91,32 @@
0
   else {
0
     print "   $t -- could not parse this\n"
0
   }
0
+}
0
+
0
+
0
+#####################################
0
+# Deal with required/optional modules
0
+
0
+sub require_module {
0
+  my $module = shift;
0
+  
0
+  eval "require $module";
0
+  if (my $e = $@) {
0
+    print STDERR "FATAL: $0 requires the Perl module '$module'.\n\n";
0
+    print STDERR "You can install it with:\n\n";
0
+    print STDERR "    cpan $module\n\n";
0
+    exit(1);
0
+  }
0
+  $module->import(@_);
0
+}
0
+
0
+sub optional_module {
0
+  my $module = shift;
0
+  
0
+  eval "require $module";
0
+  return 0 if $@;
0
+  
0
+  $module->import(@_);
0
+  return 1;
0
 }