File Coverage

blib/lib/Acme/OSDc.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 4 25.0
condition 1 3 33.3
subroutine 4 4 100.0
pod n/a
total 21 26 80.7


line stmt bran cond sub pod time code
1             package Acme::OSDc;
2              
3 2     2   52405 use base 'Acme::Ook';
  2         5  
  2         1765  
4              
5             my %OSDc = &{"Acme::Ook::O?"};
6              
7 2     2   2086 use strict;
  2         5  
  2         52  
8 2     2   10 use warnings;
  2         8  
  2         405  
9              
10             our $VERSION = '1.01';
11              
12             sub _compile {
13 2996     2996   9872 shift;
14 2996         3709 chomp $_[0];
15 2996 0 33     10792 $_[0] =~ s/\s*(OSDc(.)\s*OSDc(.)\s*|(\#.*)|\S.*)/$;=$OSDc{$2||@@}{$3};$;?$;:defined$4?"$4\n":die"OSDc? $_[1]:$_[2] '$1'\n"/eg;
  3071 50       10295  
  3071         8275  
16 2996         10106 return $_[0];
17             }
18              
19             1;
20              
21             __END__