#!/usr/bin/perl -w

require 'spamassassin.pm';

use Term::ReadLine;
use Data::Dumper;

my %subs = ( );

$term = new Term::ReadLine 'prep test';

my $attribs = $term->Attribs;
#	auto completion is working... 
$attribs->{completion_entry_function} = $attribs->{list_completion_function};
$attribs->{completion_word} = [keys %subs,'print','n','Dumper','shp']; 
my $OUT = $term->OUT || \*STDOUT;

while( defined($_ = $term->readline("prep test shell >")) ) {
	last if /^\s*qu?i?t?$/i; # "quit" 
	my $res = eval($_);
	warn $@ if $@;
}