Inline-CLIPS

A Perl module distribution that provides:

Install

perl Makefile.PL
make
make test

Usage

use Inline::CLIPS;

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

Examples