From cc11db2f3c4006b4f3d3a5a5ab58eb30bf907441 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sun, 29 Mar 2015 11:17:29 +0300
Subject: [PATCH] Use plain HTML::Element::Library instead of HTML::Seamstress

---
 Makefile.PL                       | 3 ++-
 lib/Plack/App/Gruntmaster/HTML.pm | 5 +++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 0faa86b..a0b48cb 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -33,7 +33,8 @@ WriteMakefile(
 
 		   File::Slurp                      0
 		   Gruntmaster::Data                0
-		   HTML::Seamstress                 0
+		   HTML::Element::Library           0
+		   HTML::TreeBuilder                0
 		   JSON::MaybeXS                    0
 		   Log::Log4perl                    0
 		   PerlX::Maybe                     0
diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm
index a21b6cc..ebbc145 100644
--- a/lib/Plack/App/Gruntmaster/HTML.pm
+++ b/lib/Plack/App/Gruntmaster/HTML.pm
@@ -4,7 +4,8 @@ use parent qw/Exporter/;
 our @EXPORT = qw/render render_article/;
 
 use File::Slurp qw/read_file/;
-use HTML::Seamstress;
+use HTML::Element::Library;
+use HTML::TreeBuilder;
 use POSIX qw//;
 use Data::Dumper qw/Dumper/;
 
@@ -45,7 +46,7 @@ sub HTML::Element::namedlink {
 my %page_cache;
 for (<tmpl/*>) {
 	my ($tmpl, $lang) = m,tmpl/(\w+)\.(\w+),;
-	my $builder = HTML::Seamstress->new;
+	my $builder = HTML::TreeBuilder->new;
 	$builder->ignore_unknown(0);
 	$page_cache{$tmpl, $lang} = $builder->parse_file($_);
 }
-- 
2.30.2