thing

Author: haarg

t/lib/MetaCPAN/Web/Test/HTML5/Element.pm renamed to lib/HTML5/Element.pm

@@ -1,11 +1,11 @@
-package MetaCPAN::Web::Test::HTML5::Element;
+package HTML5::Element;
 use strict;
 use warnings;
 
 use parent 'HTML::Element';
 
-use MetaCPAN::Web::Test::HTML5::Element::SVG;
-use constant SVG_CLASS => 'MetaCPAN::Web::Test::HTML5::Element::SVG';
+use HTML5::Element::SVG;
+use constant SVG_CLASS => 'HTML5::Element::SVG';
 
 sub insert_element {
     my ($self, $tag, @more) = @_;

t/lib/MetaCPAN/Web/Test/HTML5/Element/SVG.pm renamed to lib/HTML5/Element/SVG.pm

@@ -1,8 +1,8 @@
-package MetaCPAN::Web::Test::HTML5::Element::SVG;
+package HTML5::Element::SVG;
 use strict;
 use warnings;
 
-use parent 'MetaCPAN::Web::Test::HTML5::Element';
+use parent 'HTML5::Element';
 
 sub starttag_XML {
     my $self   = shift;

t/lib/MetaCPAN/Web/Test/HTML5/TreeBuilder.pm renamed to lib/HTML5/TreeBuilder.pm

@@ -1,15 +1,14 @@
-package MetaCPAN::Web::Test::HTML5::TreeBuilder;
+package HTML5::TreeBuilder;
 use strict;
 use warnings;
 
 use parent 'HTML::TreeBuilder';
 
-use MetaCPAN::Web::Test::HTML5::Element::SVG ();    ## no perlimports
+use HTML5::Element::SVG;
+use constant SVG_CLASS => 'HTML5::Element::SVG';
 
-use constant SVG_CLASS => 'MetaCPAN::Web::Test::HTML5::Element::SVG';
-
-use MetaCPAN::Web::Test::HTML5::Element::MathML;
-use constant MATHML_CLASS => 'MetaCPAN::Web::Test::HTML5::Element::MathML';
+use HTML5::Element::MathML;
+use constant MATHML_CLASS => 'HTML5::Element::MathML';
 
 my @html5_elements = qw(
     article audio aside bdi datalist canvas details dialog embed figcaption

t/lib/MetaCPAN/Web/Test.pm

@@ -8,11 +8,11 @@ use warnings;
 use HTTP::Request::Common qw( GET POST );    ## no perlimports
 use HTTP::Message::PSGI   ();                ## no perlimports
 use Plack::Test           qw( test_psgi);    ## no perlimports
+use HTML5::TreeBuilder;
 use base 'Exporter';
-use Encode                                  qw( decode_utf8 );
-use Future                                  ();
-use MetaCPAN::Web::Test::HTML5::TreeBuilder ();
-use Test::More import => [qw( is )];
+use Encode      qw( decode_utf8 );
+use Future      ();
+use Test::More  import => [qw( is )];
 use Test::XPath ();
 use Try::Tiny   qw( catch try );
 our @EXPORT = qw(
@@ -75,8 +75,7 @@ sub tx {
 
 # Text::XPath has `is_html` but the LibXML HTML parser doesn't like some html 5 (like nav).
     if ( delete $opts->{html} ) {
-        $xml = MetaCPAN::Web::Test::HTML5::TreeBuilder->new_from_content($xml)
-            ->as_XML;
+        $xml = HTML5::TreeBuilder->new_from_content($xml)->as_XML;
     }
 
     # Upgrading some library (not sure which) in Sep/Oct 2013 started