From f523d0f3c07c4a8b8a909f100ec8a76f8fddb0e6 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 24 Feb 2012 02:00:14 -0600
Subject: basic usage example, for testing

---
 examples/nethack | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 examples/nethack

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');
-- 
cgit v1.2.3