File Coverage

lib/AI/Prolog/TermList/Step.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package AI::Prolog::TermList::Step;
2             $REVISION = '$Id: Step.pm,v 1.2 2005/02/20 18:27:55 ovid Exp $';
3             $VERSION = '0.1';
4             @ISA = 'AI::Prolog::TermList';
5 13     13   39416 use strict;
  13         47  
  13         526  
6 13     13   64 use warnings;
  13         23  
  13         397  
7              
8 13     13   1729 use aliased 'AI::Prolog::Term';
  13         824  
  13         69  
9              
10             sub new {
11 1     1 0 732 my ($class, $termlist) = @_;
12 1         8 my $self = $class->SUPER::new;
13              
14 1         5 $self->{next} = $termlist->next;
15 1         2 $termlist->{next} = $self;
16 1         4 $self->{term} = Term->new('STEP',0);
17 1         5 return $self;
18             }
19              
20             1;
21             __END__