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

package AI::Prolog::TermList::Clause;

$REVISION = '$Id: Clause.pm,v 1.4 2005/08/06 23:28:40 ovid Exp $';
$VERSION  = '0.1';

use strict;
use warnings;
use base 'AI::Prolog::TermList';

sub new {

    #      Term  TermList
    my $class = shift;
    return $class->SUPER::new(@_);
}

sub to_string {
    my $self = shift;
    my ( $term, $next ) = ( $self->term, $self->next );
    foreach ( $term, $next ) {
        $_ = $_ ? $_->to_string : "null";
    }
    return sprintf "%s :- %s" => $term, $next;
}

sub is_builtin {
    my $self = shift;
    if (@_) {
        $self->{is_builtin} = shift;
        return $self;
    }
    return $self->{is_builtin};
}

1;

__END__