view release on metacpan or  search on metacpan

demo/fuzz.pl  view on Meta::CPAN

#!/usr/bin/perl
use lib qw(blib/arch blib/lib ../blib/arch ../blib/lib);
use strict;
use warnings;
use AI::Fuzzy;

my $f = new AI::Fuzzy::Axis;
my $l = new AI::Fuzzy::Label("toddler",      1, 1.5, 3.5);

#print "$l\n";

$f->addlabel("baby",        -1,   1, 2.5);