← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Moo/_strictures.pm
StatementsExecuted 44 statements in 120µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
13131367µs128µsMoo::_strictures::::importMoo::_strictures::import
1116µs8µsMoo::_strictures::::BEGIN@2Moo::_strictures::BEGIN@2
1114µs6µsMoo::_strictures::::BEGIN@3Moo::_strictures::BEGIN@3
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Moo::_strictures;
2212µs29µs
# spent 8µs (6+1) within Moo::_strictures::BEGIN@2 which was called: # once (6µs+1µs) by Moo::BEGIN@3 at line 2
use strict;
# spent 8µs making 1 call to Moo::_strictures::BEGIN@2 # spent 1µs making 1 call to strict::import
3249µs29µs
# spent 6µs (4+3) within Moo::_strictures::BEGIN@3 which was called: # once (4µs+3µs) by Moo::BEGIN@3 at line 3
use warnings;
# spent 6µs making 1 call to Moo::_strictures::BEGIN@3 # spent 3µs making 1 call to warnings::import
4
5
# spent 128µs (67+61) within Moo::_strictures::import which was called 13 times, avg 10µs/call: # once (8µs+10µs) by Method::Generate::Accessor::BEGIN@3 at line 3 of Method/Generate/Accessor.pm # once (7µs+8µs) by Method::Generate::BuildAll::BEGIN@3 at line 3 of Method/Generate/BuildAll.pm # once (6µs+6µs) by Moo::sification::BEGIN@3 at line 3 of Moo/sification.pm # once (6µs+5µs) by Moo::Role::BEGIN@3 at line 3 of Moo/Role.pm # once (5µs+4µs) by Method::Generate::Constructor::BEGIN@3 at line 3 of Method/Generate/Constructor.pm # once (6µs+3µs) by Moo::BEGIN@3 at line 3 of Moo.pm # once (5µs+4µs) by Moo::HandleMoose::BEGIN@2 at line 2 of Moo/HandleMoose.pm # once (4µs+4µs) by Moo::HandleMoose::FakeMetaClass::BEGIN@2 at line 2 of Moo/HandleMoose/FakeMetaClass.pm # once (4µs+3µs) by Sub::Quote::BEGIN@5 at line 5 of Sub/Quote.pm # once (4µs+3µs) by Moo::Object::BEGIN@3 at line 3 of Moo/Object.pm # once (3µs+4µs) by Moo::_Utils::BEGIN@18 at line 18 of Moo/_Utils.pm # once (4µs+3µs) by Sub::Defer::BEGIN@3 at line 3 of Sub/Defer.pm # once (4µs+3µs) by Moo::_mro::BEGIN@2 at line 2 of Moo/_mro.pm
sub import {
61334µs if ($ENV{MOO_FATAL_WARNINGS}) {
7 require strictures;
8 strictures->VERSION(2);
9 @_ = ('strictures');
10 goto &strictures::import;
11 }
12 else {
131311µs1320µs strict->import;
# spent 20µs making 13 calls to strict::import, avg 2µs/call
141312µs1342µs warnings->import;
# spent 42µs making 13 calls to warnings::import, avg 3µs/call
15 }
16}
17
1812µs1;