From 16bc35ff2d1f6a23491c05084c81a1aa9f5778a3 Mon Sep 17 00:00:00 2001
From: Alex Peters <lxp@cpan.org>
Date: Tue, 30 Apr 2013 19:09:47 +1000
Subject: [PATCH] remove unused code

These files are incomplete, are undocumented, use undeclared
external dependencies and are not referenced by any other code
in the distribution.
---
 lib/HTML/Zoom/FilterBuilder/Template.pm | 43 -------------------------
 lib/HTML/Zoom/MaybeDebug.pm             | 28 ----------------
 2 files changed, 71 deletions(-)
 delete mode 100644 lib/HTML/Zoom/FilterBuilder/Template.pm
 delete mode 100644 lib/HTML/Zoom/MaybeDebug.pm

diff --git a/lib/HTML/Zoom/FilterBuilder/Template.pm b/lib/HTML/Zoom/FilterBuilder/Template.pm
deleted file mode 100644
index a916e9e..0000000
--- a/lib/HTML/Zoom/FilterBuilder/Template.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-package HTML::Zoom::FilterBuilder;
-
-use strictures 1;
-use Template::Tiny;
-
-sub _template_object {
-  shift->{_template_object} ||= Template::Tiny->new;
-}
-
-sub template_text {
-  my ($self, $vars) = @_;
-  my $parser = $self->_zconfig->parser;
-  my $tt = $self->_template_object;
-  $self->collect({
-    filter => sub {
-      $_->map(sub {
-        return $_ unless $_->{type} eq 'TEXT';
-        my $unescape = $parser->html_unescape($_->{raw});
-        $tt->process(\$unescape, $vars, \my $out);
-        return { %$_, raw => $parser->html_escape($out) }
-      })
-    },
-    passthrough => 1,
-  })
-}
-
-sub template_text_raw {
-  my ($self, $vars) = @_;
-  my $tt = $self->_template_object;
-  my $parser = $self->_zconfig->parser;
-  $self->collect({
-    filter => sub {
-      $_->map(sub {
-        return $_ unless $_->{type} eq 'TEXT';
-        $tt->process(\($_->{raw}), $vars, \my $out);
-        return { %$_, raw => $out }
-      })
-    },
-    passthrough => 1,
-  })
-}
-
-1;
diff --git a/lib/HTML/Zoom/MaybeDebug.pm b/lib/HTML/Zoom/MaybeDebug.pm
deleted file mode 100644
index ba91c2c..0000000
--- a/lib/HTML/Zoom/MaybeDebug.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-package HTML::Zoom::MaybeDebug;
-
-use strictures 1;
-
-sub import { }
-
-if (my $level = $ENV{'HTML_ZOOM_DEBUG'}) {
-  foreach my $mod (qw(Smart::Comments Data::Dumper::Concise JSON)) {
-    (my $file_stem = $mod) =~ s/::/\//g;
-    die "HTML_ZOOM_DEBUG env var set to ${level} - this requires the ${mod}\n"
-        ."module but it failed to load with error:\n$@"
-      unless eval { require "${file_stem}.pm"; 1 };
-  }
-  my @smartness = map '#'x$_, 3 .. $level+2;
-  no warnings 'redefine';
-  *import = sub { Smart::Comments->import(@smartness) };
-  my $j = JSON->new->space_after;
-  my $d = \&Data::Dumper::Concise::Dumper;
-  *Smart::Comments::Dumper = sub {
-    my $r;
-    unless (eval { $r = $j->encode($_[0]); 1 }) {
-      $r = $d->($_[0]);
-    }
-    $r;
-  };
-}
-
-1;