File Coverage

blib/lib/Mknod.pm
Criterion Covered Total %
statement 12 15 80.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 24 75.0


line stmt bran cond sub pod time code
1             package Mknod;
2              
3 1     1   43346 use strict;
  1         3  
  1         37  
4 1     1   5 use warnings;
  1         2  
  1         30  
5              
6 1     1   5 use Carp;
  1         6  
  1         367  
7              
8             require Exporter;
9              
10             our @ISA = qw(Exporter);
11              
12             our @EXPORT = qw(
13             mknod
14             S_IFREG
15             S_IFIFO
16             S_IFBLK
17             S_IFCHR
18             );
19              
20             our $VERSION = '0.02';
21              
22             require XSLoader;
23             XSLoader::load('Mknod', $VERSION);
24              
25             # Preloaded methods go here.
26              
27             sub mknod {
28 1 50   1 0 12 if (defined $_[2]) {
29 0         0 goto &mknod3;
30             }
31 1 50       3 if (defined $_[1]) {
32 1         97 goto &mknod2;
33             }
34             else {
35 0           print Carp::shortmess("Usage: mknod(file, mode [,dev])");
36 0           return 0;
37             }
38             }
39              
40             1;
41             __END__