← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/dpath
  Run on Tue Jun 5 15:31:33 2012
Reported on Tue Jun 5 15:31:38 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.52ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11154µs70µsScalar::Util::::BEGIN@9Scalar::Util::BEGIN@9
31131µs31µsScalar::Util::::reftypeScalar::Util::reftype (xsub)
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.04ms286µs
# spent 70µs (54+16) within Scalar::Util::BEGIN@9 which was called: # once (54µs+16µs) by Data::DPath::Context::BEGIN@17 at line 9
use strict;
# spent 70µs making 1 call to Scalar::Util::BEGIN@9 # spent 16µs making 1 call to strict::import
1012µsrequire Exporter;
111304µsrequire List::Util; # List::Util loads the XS
12
13123µsour @ISA = qw(Exporter);
14110µsour @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
1512µsour $VERSION = "1.25";
161100µ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}
231800nsunless (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
44139µs1;
45
46__END__
 
# spent 31µs within Scalar::Util::reftype which was called 3 times, avg 10µs/call: # 3 times (31µs+0s) by Sub::Install::_CODELIKE at line 98 of Sub/Install.pm, avg 10µs/call
sub Scalar::Util::reftype; # xsub