HTML-Laundry

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "HTML::Entities" : "0",
            "HTML::Parser" : "0",
            "HTML::TreeBuilder" : "0",
            "Scalar::Util" : "0",
            "Test::Differences" : "0",
            "Test::Exception" : "0",
            "Test::More" : "0",
            "URI" : "0",
            "URI::Escape" : "0",
            "URI::Split" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {

META.yml  view on Meta::CPAN

name: HTML-Laundry
no_index:
  directory:
    - t
    - inc
requires:
  HTML::Entities: '0'
  HTML::Parser: '0'
  HTML::TreeBuilder: '0'
  Scalar::Util: '0'
  Test::Differences: '0'
  Test::Exception: '0'
  Test::More: '0'
  URI: '0'
  URI::Escape: '0'
  URI::Split: '0'
resources:
  bugtracker: https://github.com/snark/html-laundry/issues
  repository: https://github.com/snark/html-laundry
version: 0.0107
x_serialization_backend: 'CPAN::Meta::YAML version 0.012'

Makefile.PL  view on Meta::CPAN

WriteMakefile(
    NAME          => 'HTML::Laundry',
    AUTHOR        => 'Six Apart, Ltd. <scook@sixapart.com>',
    VERSION_FROM  => 'lib/HTML/Laundry.pm',
    ABSTRACT_FROM => 'lib/HTML/Laundry.pm',
    ( $ExtUtils::MakeMaker::VERSION >= 6.3002
        ? ( 'LICENSE' => 'perl' )
        : () ),
    PL_FILES  => {},
    PREREQ_PM => {
        'Test::Differences' => 0,
        'Test::More'        => 0,
        'Test::Exception'   => 0,
        'HTML::Entities'    => 0,
        'HTML::Parser'      => 0,
        'HTML::TreeBuilder' => 0,
        'Scalar::Util'      => 0,
        'URI'               => 0,
        'URI::Escape'       => 0,
        'URI::Split'        => 0,
    },

t/lib/TestHelpers.pm  view on Meta::CPAN

package TestHelpers;

use strict;
use warnings;

use HTML::TreeBuilder;
use Test::Differences 'eq_or_diff_text';

# This is a minimal clone of Test::Differences::HTML
# which has failing tests because Test::Differences has changed the output
# in version 0.63 (see RT#100514)
sub eq_or_diff_html {
    my ($raw, $expected, $label) = @_;

    return eq_or_diff_text(_normalise_html($raw), _normalise_html($expected), $label);
}

sub _normalise_html {
    my ($dirty_html) = @_;