File Coverage

blib/lib/PerlIO/Util.pm
Criterion Covered Total %
statement 16 16 100.0
branch 4 4 100.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 24 24 100.0


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__