0
@@ -32,6 +32,9 @@
0
   if ($t =~ /^\d+$/) {
0
     $dt = DateTime->from_epoch( epoch => $t );
0
   }
0
+  elsif ($dt = try_helper_parsers($t)) {
0
+    # we are done
0
+  }
0
   elsif ($t =~ /^(\d\d\d\d)[-\/](\d+)[-\/](\d+)$/) {
0
     $dt = DateTime->new(
0
         year  => $1,
0
@@ -73,13 +76,6 @@
0
         second => $3,
0
     );
0
   }
0
-  else {
0
-    foreach my $helper (@available) {
0
-      next unless $helper->{can_parse};
0
-      eval { $dt = $helper->{class}->parse_datetime($t) };
0
-      last if $dt;
0
-    }
0
-  }
0
 
0
   if ($dt) {
0
     print "    $t -- $dt ", $dt->epoch, " (hex ", sprintf('%0.4x', $dt->epoch) ,")\n";
0
@@ -91,6 +87,23 @@
0
   else {
0
     print "   $t -- could not parse this\n"
0
   }
0
+}
0
+
0
+
0
+####################################################
0
+# Try the helper classes to parse the datetime given
0
+
0
+sub try_helper_parsers {
0
+  my $t = shift;
0
+  my $dt;
0
+
0
+  foreach my $helper (@available) {
0
+    next unless $helper->{can_parse};
0
+    eval { $dt = $helper->{class}->parse_datetime($t) };
0
+    last if $dt;
0
+  }
0
+
0
+  return $dt;  
0
 }
0
 
0