NAME

Inline::CLIPS - Perl interface to run CLIPS programs

SYNOPSIS

use Inline::CLIPS;

my $clips = Inline::CLIPS->new;
my $result = $clips->run_program(q{
  (deftemplate animal (slot name) (slot class))
  (deffacts initial (animal (name "penguin") (class bird)))
  (defrule print-animal
    (animal (name ?n) (class ?c))
    =>
    (printout t ?n " is a " ?c crlf))
}, '(run)');

DESCRIPTION

This module provides a small Perl API for executing CLIPS programs. It will use a CLIPS executable from $PATH, INLINE_CLIPS_EXECUTABLE, or from Alien::CLIPS when available.