.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.43)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "HTML::RewriteAttributes 3pm"
.TH HTML::RewriteAttributes 3pm "2022-12-10" "perl v5.36.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
HTML::RewriteAttributes \- concise attribute rewriting
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 2
\&    $html = HTML::RewriteAttributes\->rewrite($html, sub {
\&        my ($tag, $attr, $value) = @_;
\&
\&        # delete any attribute that mentions..
\&        return if $value =~ /COBOL/i;
\&
\&        $value =~ s/\ebrocks\eb/rules/g;
\&        return $value;
\&    });
\&
\&
\&    # writing some HTML email I see..
\&    $html = HTML::RewriteAttributes::Resources\->rewrite($html, sub {
\&        my $uri = shift;
\&        my $content = render_template($uri);
\&        my $cid = generate_cid_from($content);
\&        $mime\->attach($cid => content);
\&        return "cid:$cid";
\&    });
\&
\&
\&    # up for some HTML::ResolveLink?
\&    $html = HTML::RewriteAttributes::Links\->rewrite($html, "http://search.cpan.org");
\&
\&    # or perhaps HTML::LinkExtor?
\&    HTML::RewriteAttributes::Links\->rewrite($html, sub {
\&        my ($tag, $attr, $value) = @_;
\&        push @links, $value;
\&        $value;
\&    });
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\f(CW\*(C`HTML::RewriteAttributes\*(C'\fR is designed for simple yet powerful \s-1HTML\s0 attribute
rewriting.
.PP
You simply specify a callback to run for each attribute and we do the rest
for you.
.PP
This module is designed to be subclassable to make handling special cases
easier. See the source for methods you can override.
.SH "METHODS"
.IX Header "METHODS"
.ie n .SS """new"""
.el .SS "\f(CWnew\fP"
.IX Subsection "new"
You don't need to call \f(CW\*(C`new\*(C'\fR explicitly \- it's done in \*(L"rewrite\*(R". It takes
no arguments.
.ie n .SS """rewrite"" \s-1HTML,\s0 callback \-> \s-1HTML\s0"
.el .SS "\f(CWrewrite\fP \s-1HTML,\s0 callback \-> \s-1HTML\s0"
.IX Subsection "rewrite HTML, callback -> HTML"
This is the main interface of the module. You pass in some \s-1HTML\s0 and a callback,
the callback is invoked potentially many times, and you get back some similar
\&\s-1HTML.\s0
.PP
The callback receives as arguments the tag name, the attribute name, and the
attribute value (though subclasses may override this \*(--
HTML::RewriteAttributes::Resources does). Return \f(CW\*(C`undef\*(C'\fR to remove the
attribute, or any other value to set the value of the attribute.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
HTML::Parser, HTML::ResolveLink, Email::MIME::CreateHTML,
HTML::LinkExtor
.SH "THANKS"
.IX Header "THANKS"
Some code was inspired by, and tests borrowed from, Miyagawa's
HTML::ResolveLink.
.SH "AUTHOR"
.IX Header "AUTHOR"
Shawn M Moore, \f(CW\*(C`<sartak@bestpractical.com>\*(C'\fR
.SH "LICENSE"
.IX Header "LICENSE"
Copyright 2008\-2010 Best Practical Solutions, \s-1LLC.\s0
HTML::RewriteAttributes is distributed under the same terms as Perl itself.