← 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:07 2021

Filename/usr/local/lib/perl5/5.32/mach/IO.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sIO::::BEGIN@5IO::BEGIN@5
0000s0sIO::::BEGIN@6IO::BEGIN@6
0000s0sIO::::BEGIN@7IO::BEGIN@7
0000s0sIO::::BEGIN@8IO::BEGIN@8
0000s0sIO::::importIO::import
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#
2
3package IO;
4
5use XSLoader ();
6use Carp;
7use strict;
8use warnings;
9
10our $VERSION = "1.43";
11XSLoader::load 'IO', $VERSION;
12
13sub import {
14 shift;
15
16 warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
17 if @_ == 0 ;
18
19 my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
20
21 local @INC = @INC;
22 pop @INC if $INC[-1] eq '.';
23 eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
24 or croak $@;
25}
26
271;
28
29__END__