GitHub - kuniyoshi/HTML-LinkFilter

Branches Tags

Name		Name	Last commit message	Last commit date
Latest commit History 13 Commits
lib/HTML		lib/HTML
t		t
xt		xt
.gitignore		.gitignore
.shipit		.shipit
Changes		Changes
MANIFEST.SKIP		MANIFEST.SKIP
Makefile.PL		Makefile.PL
README		README

Repository files navigation

NAME
    HTML::LinkFilter - Changes all links in HTML

SYNOPSIS
      use HTML::LinkFilter;
      use Data::Dumper;

      my $html = do { local $/; <DATA> };

      my $filter = HTML::LinkFilter->new;
      $filter->change( $html, \&callback );

      print Dumper $filter->tags;

      sub callback {
          my( $tagname, $attr, $value ) = @_;

          return; # Uses original.
      }

      __DATA__
      <!doctype html>
      <html>
        <head>
          <meta charset="UTF-8" />
        </head>
        <body>
          <h1><a href="/">example.com</a></h1>
        </body>
      </html>

DESCRIPTION
    HTML::LinkFilter can change all links in passed HTML.

    This requires callback sub. The sub takes tagname, attr, value, and
    returns new value, then it will be replaced. Or uses original when
    returns undef.

    *Note* this breaks attributes order in tag.

METHODS
    new Returns instance.

    change
        Changes html to tags by using callback filter. Callback filter is an
        argument which changes link.

        Callback filter will take args those are tagname, attr, value, and
        return value is pushed to $self->tags as a new value.

        Callback filter can tell 'use original' to parser by returns undef.

    tags
        Returns some changed HTML tags.

    html
        Returns HTML code which is parsed.

AUTHOR
    kuniyoshi kouji <kuniyoshi@cpan.org>

SEE ALSO
LICENSE
    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.