From cc11db2f3c4006b4f3d3a5a5ab58eb30bf907441 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu 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 () { 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.39.2