File Coverage

lib/AI/Prolog/TermList/Clause.pm
Criterion Covered Total %
statement 20 21 95.2
branch 3 4 75.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 29 34 85.2


line stmt bran cond sub pod time code
1             package AI::Prolog::TermList::Clause;
2              
3             $REVISION = '$Id: Clause.pm,v 1.4 2005/08/06 23:28:40 ovid Exp $';
4             $VERSION = '0.1';
5              
6 13     13   29872 use strict;
  13         29  
  13         424  
7 13     13   62 use warnings;
  13         24  
  13         399  
8 13     13   66 use base 'AI::Prolog::TermList';
  13         19  
  13         4228  
9              
10             sub new {
11              
12             # Term TermList
13 792     792 0 1021 my $class = shift;
14 792         2548 return $class->SUPER::new(@_);
15             }
16              
17             sub to_string {
18 3     3 0 32 my $self = shift;
19 3         16 my ( $term, $next ) = ( $self->term, $self->next );
20 3         8 foreach ( $term, $next ) {
21 6 100       30 $_ = $_ ? $_->to_string : "null";
22             }
23 3         32 return sprintf "%s :- %s" => $term, $next;
24             }
25              
26             sub is_builtin {
27 369     369 0 454 my $self = shift;
28 369 50       763 if (@_) {
29 369         569 $self->{is_builtin} = shift;
30 369         729 return $self;
31             }
32 0           return $self->{is_builtin};
33             }
34              
35             1;
36              
37             __END__