← Index
NYTProf Performance Profile   « block view • line view • sub view »
For t/app_dpath.t
  Run on Tue Jun 5 15:25:28 2012
Reported on Tue Jun 5 15:26:00 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/x86_64-linux-thread-multi/Scalar/Util.pm
StatementsExecuted 13 statements in 1.53ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
991623.09ms3.09msScalar::Util::::refaddrScalar::Util::refaddr (xsub)
342531.42ms1.42msScalar::Util::::blessedScalar::Util::blessed (xsub)
21621933µs933µsScalar::Util::::weakenScalar::Util::weaken (xsub)
3622194µs194µsScalar::Util::::reftypeScalar::Util::reftype (xsub)
11168µs79µsScalar::Util::::BEGIN@9Scalar::Util::BEGIN@9
0000s0sScalar::Util::::export_failScalar::Util::export_fail
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# Scalar::Util.pm
2#
3# Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
4# This program is free software; you can redistribute it and/or
5# modify it under the same terms as Perl itself.
6
7package Scalar::Util;
8
921.05ms291µs
# spent 79µs (68+11) within Scalar::Util::BEGIN@9 which was called: # once (68µs+11µs) by Test::Deep::Cache::Simple::BEGIN@7 at line 9
use strict;
# spent 79µs making 1 call to Scalar::Util::BEGIN@9 # spent 12µs making 1 call to strict::import
1012µsrequire Exporter;
111330µsrequire List::Util; # List::Util loads the XS
12
13122µsour @ISA = qw(Exporter);
1418µsour @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
1512µsour $VERSION = "1.25";
16175µs$VERSION = eval $VERSION;
# spent 7µs executing statements in string eval
17
1811µsour @EXPORT_FAIL;
19
2012µsunless (defined &weaken) {
21 push @EXPORT_FAIL, qw(weaken);
22}
2311µsunless (defined &isweak) {
24 push @EXPORT_FAIL, qw(isweak isvstring);
25}
261800nsunless (defined &isvstring) {
27 push @EXPORT_FAIL, qw(isvstring);
28}
29
30sub export_fail {
31 if (grep { /^(?:weaken|isweak)$/ } @_ ) {
32 require Carp;
33 Carp::croak("Weak references are not implemented in the version of perl");
34 }
35
36 if (grep { /^isvstring$/ } @_ ) {
37 require Carp;
38 Carp::croak("Vstrings are not implemented in the version of perl");
39 }
40
41 @_;
42}
43
44132µs1;
45
46__END__
 
# spent 1.42ms within Scalar::Util::blessed which was called 342 times, avg 4µs/call: # 144 times (614µs+0s) by Test::Deep::wrap at line 346 of Test/Deep.pm, avg 4µs/call # 144 times (612µs+0s) by Test::Deep::descend at line 275 of Test/Deep.pm, avg 4µs/call # 18 times (73µs+0s) by Test::Deep::Blessed::descend at line 25 of Test/Deep/Blessed.pm, avg 4µs/call # 18 times (64µs+0s) by Test::Deep::class_base at line 394 of Test/Deep.pm, avg 4µs/call # 18 times (54µs+0s) by Test::Deep::Ref::test_class at line 17 of Test/Deep/Ref.pm, avg 3µs/call
sub Scalar::Util::blessed; # xsub
# spent 3.09ms within Scalar::Util::refaddr which was called 991 times, avg 3µs/call: # 648 times (1.90ms+0s) by Test::Deep::Cache::Simple::fn_get_key at line 79 of Test/Deep/Cache/Simple.pm, avg 3µs/call # 108 times (417µs+0s) by Test::Deep::descend at line 296 of Test/Deep.pm, avg 4µs/call # 108 times (366µs+0s) by Test::Deep::descend at line 321 of Test/Deep.pm, avg 3µs/call # 108 times (326µs+0s) by Test::Deep::descend at line 297 of Test/Deep.pm, avg 3µs/call # 18 times (57µs+0s) by Test::Deep::wrap at line 358 of Test/Deep.pm, avg 3µs/call # once (26µs+0s) by main::BEGIN@8 at line 34 of Test/Deep.pm
sub Scalar::Util::refaddr; # xsub
# spent 194µs within Scalar::Util::reftype which was called 36 times, avg 5µs/call: # 18 times (105µs+0s) by Test::Deep::RefType::descend at line 24 of Test/Deep/RefType.pm, avg 6µs/call # 18 times (88µs+0s) by Test::Deep::class_base at line 396 of Test/Deep.pm, avg 5µs/call
sub Scalar::Util::reftype; # xsub
# spent 933µs within Scalar::Util::weaken which was called 216 times, avg 4µs/call: # 108 times (505µs+0s) by Test::Deep::Cache::Simple::add at line 42 of Test/Deep/Cache/Simple.pm, avg 5µs/call # 108 times (428µs+0s) by Test::Deep::Cache::Simple::add at line 43 of Test/Deep/Cache/Simple.pm, avg 4µs/call
sub Scalar::Util::weaken; # xsub