File Coverage

blib/lib/IO.pm
Criterion Covered Total %
statement 19 19 100.0
branch 8 8 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1             #
2              
3             package IO;
4              
5 34     34   6554 use XSLoader ();
  34         54  
  34         699  
6 34     34   122 use Carp;
  34         52  
  34         1344  
7 34     34   146 use strict;
  34         59  
  34         625  
8 34     34   213 use warnings;
  34         76  
  34         6719  
9              
10             our $VERSION = "1.50";
11             XSLoader::load 'IO', $VERSION;
12              
13             sub import {
14 7     7   968 shift;
15              
16 7 100       577 warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
17             if @_ == 0 ;
18            
19 7 100       39 my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
20              
21 7         29 local @INC = @INC;
22 7 100       18 pop @INC if $INC[-1] eq '.';
23 7 100       13 eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
  32         489  
24             or croak $@;
25             }
26              
27             1;
28              
29             __END__