NAME¶
Term::Filter::Callback - Simple callback-based wrapper for Term::Filter
VERSION¶
version 0.03
SYNOPSIS¶
use Term::Filter::Callback;
my $term = Term::Filter::Callback->new(
callbacks => {
munge_input => sub {
my $self = shift;
my ($got) = @_;
$got =~ s/\ce/E- Elbereth\n/g;
$got;
},
munge_output => sub {
my $self = shift;
my ($got) = @_;
$got =~ s/(Elbereth)/\e[35m$1\e[m/g;
$got;
},
},
);
$term->run('nethack');
DESCRIPTION¶
This module provides a callback-based API to Term::Filter. The desired callbacks
can just be passed into the constructor of this class, rather than requiring a
new class to be manually defined. This class consumes the Term::Filter role,
so the rest of the documentation in that module applies here.
ATTRIBUTES¶
callbacks¶
A hashref of callbacks for Term::Filter. The keys are callback names and the
values are coderefs to call for those callbacks.
AUTHOR¶
Jesse Luehrs <doy at tozt dot net>
COPYRIGHT AND LICENSE¶
This software is copyright (c) 2012 by Jesse Luehrs.
This is free software; you can redistribute it and/or modify it under the same
terms as the Perl 5 programming language system itself.