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/extra-pty.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/extra-pty.t')
-rw-r--r-- | t/extra-pty.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/extra-pty.t b/t/extra-pty.t index 97a6408..d9d73da 100644 --- a/t/extra-pty.t +++ b/t/extra-pty.t @@ -20,12 +20,12 @@ POSIX::mkfifo($writep, 0700) my $script = <<SCRIPT; use strict; use warnings; -use Term::Filter; +use Term::Filter::Callback; open my \$readfh, '<', '$readp' or die "can't open pipe (child): \$!"; open my \$writefh, '>', '$writep' or die "can't open pipe (child): \$!"; -my \$term = Term::Filter->new( +my \$term = Term::Filter::Callback->new( callbacks => { setup => sub { my (\$t) = \@_; |