← Index
NYTProf Performance Profile   « line view »
For test.pl
  Run on Mon Apr 5 14:31:27 2021
Reported on Mon Apr 5 14:31:40 2021

Filename/home/leont/perl5/perlbrew/perls/perl-5.32.0/lib/5.32.0/x86_64-linux-thread-multi/Scalar/Util.pm
StatementsExecuted 15 statements in 233µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1116µs7µsScalar::Util::::BEGIN@9Scalar::Util::BEGIN@9
1114µs10µsScalar::Util::::BEGIN@10Scalar::Util::BEGIN@10
0000s0sScalar::Util::::export_failScalar::Util::export_fail
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
9211µs28µs
# spent 7µs (6+1) within Scalar::Util::BEGIN@9 which was called: # once (6µs+1µs) by CPAN::Meta::Prereqs::BEGIN@17 at line 9
use strict;
# spent 7µs making 1 call to Scalar::Util::BEGIN@9 # spent 1µs making 1 call to strict::import
102162µs216µs
# spent 10µs (4+6) within Scalar::Util::BEGIN@10 which was called: # once (4µs+6µs) by CPAN::Meta::Prereqs::BEGIN@17 at line 10
use warnings;
# spent 10µs making 1 call to Scalar::Util::BEGIN@10 # spent 6µs making 1 call to warnings::import
111300nsrequire Exporter;
12
1313µsour @ISA = qw(Exporter);
1411µsour @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);
201100nsour $VERSION = "1.55";
211500ns$VERSION =~ tr/_//d;
22
23146µsrequire List::Util; # List::Util loads the XS
2416µs12µsList::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
# spent 2µs making 1 call to UNIVERSAL::VERSION
25
26our @EXPORT_FAIL;
27
281200nsunless (defined &weaken) {
29 push @EXPORT_FAIL, qw(weaken);
30}
311100nsunless (defined &isweak) {
32 push @EXPORT_FAIL, qw(isweak isvstring);
33}
341100nsunless (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
5914µs1;
60
61__END__