#!/usr/bin/env perl use strict; use warnings; use HTML::RewriteAttributes::Links; use Test::More tests => 1; my $html = << "END";

Example

hooray

END my $rewrote = HTML::RewriteAttributes::Links->rewrite($html, "http://cpan.org"); is($rewrote, << "END", "rewrote the html correctly");

Example

hooray

END