diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-03-05 22:56:18 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-03-05 22:56:18 -0600 |
commit | 0f6d95e7959d2978a869b373649fc5e49f733159 (patch) | |
tree | 10700bfb03f62a2f9e414f236c488c70d3b7b1d1 /t/basic.t | |
parent | 1ac156b50b0262a7bfcce77eb54f2d627d45d2ec (diff) | |
download | term-filter-0f6d95e7959d2978a869b373649fc5e49f733159.tar.gz term-filter-0f6d95e7959d2978a869b373649fc5e49f733159.zip |
factor out the callback stuff, make Term::Filter a role
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10,8 +10,8 @@ my $pty = IO::Pty::Easy->new(handle_pty_size => 0); my $script = <<'SCRIPT'; use strict; use warnings; -use Term::Filter; -my $term = Term::Filter->new; +use Term::Filter::Callback; +my $term = Term::Filter::Callback->new; $term->run($^X, '-ple', q[last if /^$/]); print "done\n"; SCRIPT |