#!./perl
BEGIN {
chdir 't' if -d 't';
}
use warnings;
# this skips tests AND prevents the "used only once" warning
# also prevent Term::Complete from running stty and messing up the terminal
# there should be an \a after our word
# now remove the \a -- there should be only one
# 'fro' should match all three words
# should only find 'frobnitz' and 'frobozz'
# should only do 'frobozz'
# change the completion character
# now remove the prompt and we should be okay
} # end of SKIP, end of tests
# easier than matching space characters
my $word = shift;
}
}
}
my $self = shift;
}
}
${ $_[0] } = '';
}
# remove the bell character
sub scrub {
${ $_[0] } =~ tr/\a//d;
}
# must shift off self
sub PRINT {
my $self = shift;
}