File Coverage

lib/AI/Prolog/Parser/PreProcessor.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package AI::Prolog::Parser::PreProcessor;
2             $REVISION = '$Id: PreProcessor.pm,v 1.2 2005/08/06 23:28:40 ovid Exp $';
3              
4             $VERSION = '0.01';
5 13     13   7632 use strict;
  13         29  
  13         504  
6 13     13   68 use warnings;
  13         26  
  13         469  
7              
8 13     13   65 use aliased 'AI::Prolog::Parser::PreProcessor::Math';
  13         61  
  13         81  
9              
10             sub process {
11 79     79 0 1851 my ($class, $prolog) = @_;
12             # why the abstraction? Because I want DCGs in here, too. Maybe
13             # other stuff ...
14 79         408 $prolog = Math->process($prolog);
15 79         736 return $prolog;
16             }
17              
18             1;
19              
20             __END__