← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:08 2010

File /usr/lib/perl/5.10/IO.pm
Statements Executed 15
Total Time 0.0005362 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sIO::::BEGINIO::BEGIN
0000s0sIO::::importIO::import
LineStmts.Exclusive
Time
Avg.Code
1#
2
3package IO;
4
5317µs6µsuse XSLoader ();
6331µs10µsuse Carp;
# spent 66µs making 1 call to Exporter::import
7323µs8µsuse strict;
# spent 9µs making 1 call to strict::import
83177µs59µsuse warnings;
# spent 20µs making 1 call to warnings::import
9
101600ns600nsour $VERSION = "1.23_01";
111283µs283µsXSLoader::load 'IO', $VERSION;
# spent 282µs making 1 call to XSLoader::load
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 eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
22 or croak $@;
23}
24
2516µs6µs1;
26
27__END__
28