0
@@ -2,7 +2,13 @@
0
 
0
 use strict;
0
 use warnings;
0
+use Getopt::Long;
0
 
0
+my $help;
0
+my $ok = GetOptions("help|?" => \$help);
0
+
0
+usage() if !$ok || $help;
0
+
0
 require_module('DateTime');
0
 
0
 # Format classes to use for display
0
@@ -131,5 +137,37 @@
0
   
0
   $module->import(@_);
0
   return 1;
0
+}
0
+
0
+#######
0
+# Usage
0
+
0
+sub usage {
0
+  print STDERR <<USAGE;
0
+Usage: x-datetime-converter [--help] [-?]
0
+
0
+Reads datetime strings via stdin, and uses several methods to parse it.
0
+If the parse is sucessful, we print the parsed date in several formats.
0
+
0
+The list of formats supported is based on a list of DateTime::Format::*
0
+modules available.
0
+
0
+The following modules are used, if installed:
0
+
0
+USAGE
0
+  
0
+  foreach my $mod (@formats) {
0
+    print STDERR "  * DateTime::Format::$mod\n";
0
+  }
0
+
0
+  print STDERR <<USAGE;
0
+
0
+Make sure the modules are installed with:
0
+
0
+  cpan MODULE_NAME [MODULE_NAME]...
0
+
0
+USAGE
0
+  
0
+  exit(1);
0
 }