Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / i486-linux-gnu-thread-multi / DateTime / Helpers.pm

diff --git a/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/DateTime/Helpers.pm b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/DateTime/Helpers.pm
new file mode 100644 (file)
index 0000000..c47c34c
--- /dev/null
+++ b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/DateTime/Helpers.pm
@@ -0,0 +1,51 @@
+package DateTime::Helpers;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.53';
+
+use Scalar::Util ();
+
+
+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;
+
+__END__
+
+=head1 NAME
+
+DateTime::Helpers - Helper functions for other DateTime modules
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+However, please see the CREDITS file for more details on who I really
+stole all the code from.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2003-2009 David Rolsky.  All rights reserved.  This
+program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut