File Coverage

blib/lib/Module/Install/Admin/Compiler.pm
Criterion Covered Total %
statement 17 23 73.9
branch 0 4 0.0
condition 0 2 0.0
subroutine 6 7 85.7
pod 0 1 0.0
total 23 37 62.1


line stmt bran cond sub pod time code
1             package Module::Install::Admin::Compiler;
2              
3 1     1   1484 use strict;
  1         3  
  1         31  
4 1     1   5 use Module::Install::Base;
  1         28  
  1         33  
5 1     1   12 use File::Remove ();
  1         3  
  1         15  
6 1     1   1509 use Devel::PPPort ();
  1         384  
  1         25  
7              
8 1     1   7 use vars qw{$VERSION @ISA};
  1         2  
  1         60  
9             BEGIN {
10 1     1   3 $VERSION = '1.21';
11 1         126 @ISA = qw{Module::Install::Base};
12             }
13              
14             sub ppport {
15 0     0 0   my $self = shift;
16 0   0       my $file = shift || 'ppport.h';
17 0 0         if ( -f $file ) {
18             # Update the file to a newer version
19 0           File::Remove::remove($file);
20             }
21              
22             # Install the file (and remove on realclean)
23 0 0         Devel::PPPort::WriteFile( $file ) or die "Failed to write $file";
24 0           $self->realclean_files( $file );
25             }
26              
27             1;