File Coverage

lib/Alien/CLIPS.pm
Criterion Covered Total %
statement 11 15 73.3
branch 1 6 16.6
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 17 28 60.7


line stmt bran cond sub pod time code
1             package Alien::CLIPS;
2              
3 1     1   5 use strict;
  1         1  
  1         29  
4 1     1   3 use warnings;
  1         1  
  1         134  
5              
6             our @ISA;
7              
8             BEGIN {
9 1     1   3 my $ok = eval {
10 1         719 require Alien::Base;
11 1         23023 @ISA = qw(Alien::Base);
12 1         2 1;
13             };
14 1 50       91 @ISA = () if !$ok;
15             }
16              
17             sub dynamic_libs {
18 0 0         return grep { defined && length } (
19             $ENV{INLINE_CLIPS_LIB},
20             $ENV{ALIEN_CLIPS_LIB},
21 0     0 1   );
22             }
23              
24             sub bin_dir {
25 0 0         return grep { defined && length } (
26             $ENV{INLINE_CLIPS_BIN},
27             $ENV{ALIEN_CLIPS_BIN},
28 0     0 1   );
29             }
30              
31             1;
32              
33             __END__