From: Marius Gavrilescu Date: Sun, 29 Mar 2015 08:17:29 +0000 (+0300) Subject: Use plain HTML::Element::Library instead of HTML::Seamstress X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=cc11db2f3c4006b4f3d3a5a5ab58eb30bf907441;hp=13bd614386ed048bdab35805369d796de1d6ad6d;p=gruntmaster-page.git Use plain HTML::Element::Library instead of HTML::Seamstress --- 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($_); }