line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package PerlIO::Util; |
2
|
|
|
|
|
|
|
|
3
|
11
|
|
|
11
|
|
243347
|
use 5.008_001; |
|
11
|
|
|
|
|
45
|
|
|
11
|
|
|
|
|
489
|
|
4
|
|
|
|
|
|
|
|
5
|
11
|
|
|
11
|
|
58
|
use strict; |
|
11
|
|
|
|
|
31
|
|
|
11
|
|
|
|
|
2983
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our $VERSION = '0.72'; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
require XSLoader; |
10
|
|
|
|
|
|
|
XSLoader::load(__PACKAGE__, $VERSION); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
*IO::Handle::get_layers = \&PerlIO::get_layers; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub open :method{ |
15
|
8
|
|
|
8
|
1
|
94317
|
shift; # this class |
16
|
|
|
|
|
|
|
|
17
|
8
|
100
|
|
|
|
38
|
if(@_ < 2){ |
18
|
1
|
|
|
|
|
12
|
require Carp; |
19
|
1
|
|
|
|
|
223
|
Carp::croak('Usage: PerlIO::Util->open($mode, @args)'); |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
7
|
|
|
|
|
12
|
my $mode = shift; |
23
|
7
|
|
|
|
|
72
|
my $io = _gensym_ref(scalar caller, join ' ', @_); |
24
|
|
|
|
|
|
|
|
25
|
7
|
100
|
|
|
|
400
|
unless(open $io, $mode, @_){ |
26
|
2
|
|
|
|
|
14
|
require Carp; |
27
|
2
|
|
|
|
|
308
|
Carp::croak('Cannot open(%s): %s', join(', ', $mode, @_), $!); |
28
|
|
|
|
|
|
|
} |
29
|
5
|
|
|
|
|
440
|
return $io; |
30
|
|
|
|
|
|
|
} |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
1; |
34
|
|
|
|
|
|
|
__END__ |