File Coverage

blib/lib/Lchown.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Lchown;
2 4     4   104059 use strict;
  4         11  
  4         154  
3 4     4   21 use warnings;
  4         8  
  4         132  
4 4     4   21 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  4         22  
  4         742  
5              
6             require Exporter;
7              
8             @ISA = qw(Exporter);
9             @EXPORT = qw(lchown);
10             @EXPORT_OK = qw(lchown LCHOWN_AVAILABLE);
11              
12             $VERSION = '1.01';
13              
14             require XSLoader;
15             XSLoader::load('Lchown', $VERSION);
16              
17             sub LCHOWN_AVAILABLE () {
18 3 50   3 1 41 defined lchown(0,0) ? 1 : 0;
19             }
20              
21             1;
22              
23             __END__