← Index
NYTProf Performance Profile   « line view »
For ./view
  Run on Fri Jul 31 19:05:14 2015
Reported on Fri Jul 31 19:08:09 2015

Filename/usr/lib64/perl5/vendor_perl/Scalar/Util.pm
StatementsExecuted 13 statements in 571µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
163235µs35µsScalar::Util::::taintedScalar::Util::tainted (xsub)
11119µs42µsScalar::Util::::BEGIN@9Scalar::Util::BEGIN@9
1116µs6µsScalar::Util::::blessedScalar::Util::blessed (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
92387µs266µs
# spent 42µs (19+23) within Scalar::Util::BEGIN@9 which was called: # once (19µs+23µs) by Error::BEGIN@46 at line 9
use strict;
# spent 42µs making 1 call to Scalar::Util::BEGIN@9 # spent 23µs making 1 call to strict::import
101800nsrequire Exporter;
111125µsrequire List::Util; # List::Util loads the XS
12
13110µsour @ISA = qw(Exporter);
1413µsour @EXPORT_OK = qw(
15 blessed
16 dualvar
17 isdual
18 isvstring
19 isweak
20 looks_like_number
21 openhandle
22 readonly
23 refaddr
24 reftype
25 set_prototype
26 tainted
27 weaken
28);
291500nsour $VERSION = "1.27";
30131µs$VERSION = eval $VERSION;
# spent 3µs executing statements in string eval
31
321400nsour @EXPORT_FAIL;
33
341800nsunless (defined &weaken) {
35 push @EXPORT_FAIL, qw(weaken);
36}
371200nsunless (defined &isweak) {
38 push @EXPORT_FAIL, qw(isweak isvstring);
39}
401200nsunless (defined &isvstring) {
41 push @EXPORT_FAIL, qw(isvstring);
42}
43
44sub export_fail {
45 if (grep { /^(?:weaken|isweak)$/ } @_ ) {
46 require Carp;
47 Carp::croak("Weak references are not implemented in the version of perl");
48 }
49
50 if (grep { /^isvstring$/ } @_ ) {
51 require Carp;
52 Carp::croak("Vstrings are not implemented in the version of perl");
53 }
54
55 @_;
56}
57
58112µs1;
59
60__END__
 
# spent 6µs within Scalar::Util::blessed which was called: # once (6µs+0s) by Foswiki::Engine::finalizeBody at line 381 of /var/www/foswiki11/lib/Foswiki/Engine.pm
sub Scalar::Util::blessed; # xsub
# spent 35µs within Scalar::Util::tainted which was called 16 times, avg 2µs/call: # 7 times (17µs+0s) by Foswiki::Func::_checkWTA at line 76 of /var/www/foswiki11/lib/Foswiki/Func.pm, avg 2µs/call # 5 times (3µs+0s) by Foswiki::Func::_checkWTA at line 82 of /var/www/foswiki11/lib/Foswiki/Func.pm, avg 640ns/call # 4 times (15µs+0s) by Foswiki::Users::TopicUserMapping::eachGroupMember at line 659 of /var/www/foswiki11/lib/Foswiki/Users/TopicUserMapping.pm, avg 4µs/call
sub Scalar::Util::tainted; # xsub