File Coverage

blib/lib/DateTime/Helpers.pm
Criterion Covered Total %
statement 17 17 100.0
branch 4 4 100.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package DateTime::Helpers;
2              
3 49     49   792 use strict;
  49         142  
  49         1393  
4 49     49   245 use warnings;
  49         91  
  49         1893  
5              
6             our $VERSION = '1.60';
7              
8 49     49   297 use Scalar::Util ();
  49         117  
  49         6304  
9              
10             ## no critic (Subroutines::ProhibitBuiltinHomonyms)
11             sub can {
12 36042     36042 0 48821 my $object = shift;
13 36042         44636 my $method = shift;
14              
15 36042 100       75299 return unless Scalar::Util::blessed($object);
16 36029         131847 return $object->can($method);
17             }
18              
19             sub isa {
20 31990     31990 0 50015 my $object = shift;
21 31990         46444 my $method = shift;
22              
23 31990 100       105457 return unless Scalar::Util::blessed($object);
24 31987         148419 return $object->isa($method);
25             }
26              
27             1;