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