File | /usr/lib/perl/5.10/IO.pm |
Statements Executed | 15 |
Total Time | 0.0005362 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN | IO::
0 | 0 | 0 | 0s | 0s | import | IO::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | # | |||
2 | ||||
3 | package IO; | |||
4 | ||||
5 | 3 | 17µs | 6µs | use XSLoader (); |
6 | 3 | 31µs | 10µs | use Carp; # spent 66µs making 1 call to Exporter::import |
7 | 3 | 23µs | 8µs | use strict; # spent 9µs making 1 call to strict::import |
8 | 3 | 177µs | 59µs | use warnings; # spent 20µs making 1 call to warnings::import |
9 | ||||
10 | 1 | 600ns | 600ns | our $VERSION = "1.23_01"; |
11 | 1 | 283µs | 283µs | XSLoader::load 'IO', $VERSION; # spent 282µs making 1 call to XSLoader::load |
12 | ||||
13 | sub 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 | ||||
25 | 1 | 6µs | 6µs | 1; |
26 | ||||
27 | __END__ | |||
28 |