← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:04 2021

Filename/usr/local/lib/perl5/site_perl/mach/5.32/Scalar/Util.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
691471134.0ms34.0msScalar::Util::::blessedScalar::Util::blessed (xsub)
0000s0sScalar::Util::::BEGIN@10Scalar::Util::BEGIN@10
0000s0sScalar::Util::::BEGIN@9Scalar::Util::BEGIN@9
0000s0sScalar::Util::::export_failScalar::Util::export_fail
0000s0sScalar::Util::::looks_like_numberScalar::Util::looks_like_number (xsub)
0000s0sScalar::Util::::refaddrScalar::Util::refaddr (xsub)
0000s0sScalar::Util::::reftypeScalar::Util::reftype (xsub)
0000s0sScalar::Util::::set_prototypeScalar::Util::set_prototype
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
2# This program is free software; you can redistribute it and/or
3# modify it under the same terms as Perl itself.
4#
5# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
6
7package Scalar::Util;
8
9use strict;
10use warnings;
11require Exporter;
12
13our @ISA = qw(Exporter);
14our @EXPORT_OK = qw(
15 blessed refaddr reftype weaken unweaken isweak
16
17 dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
18 tainted
19);
20our $VERSION = "1.56";
21$VERSION =~ tr/_//d;
22
23require List::Util; # List::Util loads the XS
24List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
25
26our @EXPORT_FAIL;
27
28unless (defined &weaken) {
29 push @EXPORT_FAIL, qw(weaken);
30}
31unless (defined &isweak) {
32 push @EXPORT_FAIL, qw(isweak isvstring);
33}
34unless (defined &isvstring) {
35 push @EXPORT_FAIL, qw(isvstring);
36}
37
38sub export_fail {
39 if (grep { /^(?:weaken|isweak)$/ } @_ ) {
40 require Carp;
41 Carp::croak("Weak references are not implemented in the version of perl");
42 }
43
44 if (grep { /^isvstring$/ } @_ ) {
45 require Carp;
46 Carp::croak("Vstrings are not implemented in the version of perl");
47 }
48
49 @_;
50}
51
52# set_prototype has been moved to Sub::Util with a different interface
53sub set_prototype(&$)
54{
55 my ( $code, $proto ) = @_;
56 return Sub::Util::set_prototype( $proto, $code );
57}
58
591;
60
61__END__
 
# spent 34.0ms within Scalar::Util::blessed which was called 69147 times, avg 492ns/call: # 69147 times (34.0ms+0s) by Sympa::Log::syslog at line 112 of /usr/local/libexec/sympa/Sympa/Log.pm, avg 492ns/call
sub Scalar::Util::blessed; # xsub