File Coverage

blib/lib/Lib/IXP.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: IXP.pm 21 2015-01-20 18:26:46Z gomor $
3             #
4             package Lib::IXP;
5 1     1   9218 use strict; use warnings;
  1     1   3  
  1         46  
  1         5  
  1         2  
  1         66  
6              
7             our $VERSION = '0.12';
8              
9 1     1   5 use Exporter;
  1         10  
  1         47  
10 1     1   5 use DynaLoader;
  1         1  
  1         1034  
11             our @ISA = qw(Exporter DynaLoader);
12             our %EXPORT_TAGS = (
13             subs => [qw(
14             ixp_mount
15             ixp_mountfd
16             ixp_unmount
17             ixp_clientfd
18             ixp_create
19             ixp_open
20             ixp_remove
21             ixp_stat
22             ixp_read
23             ixp_write
24             ixp_close
25             ixp_errbuf
26             xls
27             xread
28             xwrite
29             xcreate
30             xremove
31             )],
32             consts => [qw(
33             P9_OREAD
34             P9_OWRITE
35             P9_ORDWR
36             P9_DMDIR
37             )],
38             );
39             our @EXPORT = (
40             @{$EXPORT_TAGS{subs}},
41             @{$EXPORT_TAGS{consts}},
42             );
43              
44             __PACKAGE__->bootstrap($VERSION);
45              
46 1     1   7 use constant P9_OREAD => 0;
  1         2  
  1         403  
47 1     1   12 use constant P9_OWRITE => 1;
  1         2  
  1         49  
48 1     1   5 use constant P9_ORDWR => 2;
  1         1  
  1         40  
49              
50 1     1   4 use constant P9_DMDIR => 0x80000000;
  1         2  
  1         56  
51              
52             1;
53              
54             __END__