Use plain HTML::Element::Library instead of HTML::Seamstress

diff --git a/Makefile.PL b/Makefile.PL
index 0faa86bab5665cc7e8d62af4099da47f7a67c9b8..a0b48cb71dda55f678134495654761a41878caa4 100644 (file)
--- 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 a21b6cc933da5393d48e6e67a4ddf84a6397d0ca..ebbc145e22cd3bd9f328c3e3a8da27b749d9e9c8 100644 (file)
--- 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($_);
 }