← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:04 2021

Filename/usr/local/lib/perl5/site_perl/mach/5.32/DateTime/Helpers.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sDateTime::Helpers::::BEGIN@3DateTime::Helpers::BEGIN@3
0000s0sDateTime::Helpers::::BEGIN@4DateTime::Helpers::BEGIN@4
0000s0sDateTime::Helpers::::BEGIN@8DateTime::Helpers::BEGIN@8
0000s0sDateTime::Helpers::::canDateTime::Helpers::can
0000s0sDateTime::Helpers::::isaDateTime::Helpers::isa
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package DateTime::Helpers;
2
3use strict;
4use warnings;
5
6our $VERSION = '1.54';
7
8use Scalar::Util ();
9
10## no critic (Subroutines::ProhibitBuiltinHomonyms)
11sub can {
12 my $object = shift;
13 my $method = shift;
14
15 return unless Scalar::Util::blessed($object);
16 return $object->can($method);
17}
18
19sub isa {
20 my $object = shift;
21 my $method = shift;
22
23 return unless Scalar::Util::blessed($object);
24 return $object->isa($method);
25}
26
271;