1package DateTime::Helpers;
2
3use strict;
4use warnings;
5
6our $VERSION = '0.53';
7
8use Scalar::Util ();
9
10
11sub can
12{
13    my $object = shift;
14    my $method = shift;
15
16    return unless Scalar::Util::blessed($object);
17    return $object->can($method);
18}
19
20sub isa
21{
22    my $object = shift;
23    my $method = shift;
24
25    return unless Scalar::Util::blessed($object);
26    return $object->isa($method);
27}
28
29
301;
31
32__END__
33
34=head1 NAME
35
36DateTime::Helpers - Helper functions for other DateTime modules
37
38=head1 AUTHOR
39
40Dave Rolsky <autarch@urth.org>
41
42However, please see the CREDITS file for more details on who I really
43stole all the code from.
44
45=head1 COPYRIGHT
46
47Copyright (c) 2003-2009 David Rolsky.  All rights reserved.  This
48program is free software; you can redistribute it and/or modify it
49under the same terms as Perl itself.
50
51=cut
52