File Coverage

tools/plhasa
Criterion Covered Total %
statement 16 18 88.8
branch 1 8 12.5
condition n/a
subroutine 4 4 100.0
pod n/a
total 21 30 70.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             # plhasa - lhasa-compatible interface to plha
3 6     6   31985 use strict;
  6         14  
  6         242  
4 6     6   29 use warnings;
  6         9  
  6         328  
5 6     6   3190 use FindBin ();
  6         9199  
  6         198  
6 6     6   59 use File::Spec ();
  6         18  
  6         8948  
7              
8 6         1191522 $ENV{PLHASA} = 1;
9              
10 6         185 my $plha = File::Spec->catfile($FindBin::Bin, 'plha');
11 6 50       318 if (-f $plha) {
12             # Run via perl directly (works during testing and on all platforms)
13 6 0       0 exec $^X, $plha, @ARGV or die "Cannot exec $plha: $!\n";
14             }
15              
16             # Installed: try plha (Unix) or plha.bat (Windows)
17 0 0       0 my $ext = $^O eq 'MSWin32' ? '.bat' : '';
18 0 0       0 exec "plha$ext", @ARGV or die "Cannot exec plha: $!\n";