← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 09:58:41 2014
Reported on Tue Jun 24 09:59:15 2014

Filename/usr/local/lib/perl/5.14.2/DateTime/Helpers.pm
StatementsExecuted 9 statements in 308µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11125µs32µsDateTime::Helpers::::BEGIN@6DateTime::Helpers::BEGIN@6
11114µs25µsDateTime::Helpers::::BEGIN@7DateTime::Helpers::BEGIN@7
1117µs7µsDateTime::Helpers::::BEGIN@9DateTime::Helpers::BEGIN@9
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{
322µs $DateTime::Helpers::VERSION = '1.04';
4}
5
6248µs239µs
# spent 32µs (25+7) within DateTime::Helpers::BEGIN@6 which was called: # once (25µs+7µs) by DateTime::Duration::BEGIN@11 at line 6
use strict;
# spent 32µs making 1 call to DateTime::Helpers::BEGIN@6 # spent 7µs making 1 call to strict::import
7253µs235µs
# spent 25µs (14+10) within DateTime::Helpers::BEGIN@7 which was called: # once (14µs+10µs) by DateTime::Duration::BEGIN@11 at line 7
use warnings;
# spent 25µs making 1 call to DateTime::Helpers::BEGIN@7 # spent 11µs making 1 call to warnings::import
8
92199µs17µs
# spent 7µs within DateTime::Helpers::BEGIN@9 which was called: # once (7µs+0s) by DateTime::Duration::BEGIN@11 at line 9
use Scalar::Util ();
# spent 7µs making 1 call to DateTime::Helpers::BEGIN@9
10
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
2716µs1;