basic usage example, for testing

1 files changed, 22 insertions, 0 deletions

diff --git a/examples/nethack b/examples/nethack
new file mode 100644
index 0000000..eeef69b
--- /dev/null
+++ b/examples/nethack
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use Term::Filter;
+
+my $term = Term::Filter->new(
+    callbacks => {
+        munge_input => sub {
+            my ($event, $got) = @_;
+            $got =~ s/\ce/E-  Elbereth\n/g;
+            $got;
+        },
+        munge_output => sub {
+            my ($event, $got) = @_;
+            $got =~ s/(Elbereth)/\e[35m$1\e[m/g;
+            $got;
+        },
+    },
+);
+
+$term->run('nethack');