Initial Commit

database/perl/vendor/lib/DateTime/Helpers.pm

@@ -0,0 +1,27 @@
+package DateTime::Helpers;
+
+use strict;
+use warnings;
+
+our $VERSION = '1.54';
+
+use Scalar::Util ();
+
+## no critic (Subroutines::ProhibitBuiltinHomonyms)
+sub can {
+    my $object = shift;
+    my $method = shift;
+
+    return unless Scalar::Util::blessed($object);
+    return $object->can($method);
+}
+
+sub isa {
+    my $object = shift;
+    my $method = shift;
+
+    return unless Scalar::Util::blessed($object);
+    return $object->isa($method);
+}
+
+1;