File Coverage

blib/lib/Win32/File/VersionInfo.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Win32::File::VersionInfo;
2            
3 1     1   428 use strict;
  1         1  
  1         30  
4 1     1   11 use warnings;
  1         1  
  1         30  
5            
6             require Exporter;
7             require XSLoader;
8 1     1   12 use Carp;
  1         1  
  1         150  
9            
10             our @ISA = qw(Exporter);
11            
12             our @EXPORT = qw( GetFileVersionInfo );
13             our @EXPORT_OK = qw( );
14            
15             our $VERSION = '0.06';
16             if ($^O =~ /cygwin|MSWin32/) {
17             XSLoader::load('Win32::File::VersionInfo', $VERSION);
18             }
19             else {
20             croak "Win32::File::VersionInfo only works on Cygwin and MS Windows.";
21             }
22            
23             1;
24            
25             __END__