Edit File: Helpers.pm
package DateTime::Helpers; { $DateTime::Helpers::VERSION = '1.04'; } use strict; use warnings; 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;