[libhtml-scrubber-perl] 26/30: Document new (mainly to satisfy pod coverage test)

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to annotated tag release/0.16
in repository libhtml-scrubber-perl.

commit 2724bd59772f73f9cae5282b37d84946f67e7f9c
Author: Nigel Metheringham <nigelm at cpan.org>
Date:   Sun Jun 25 17:36:23 2017 +0100

    Document new (mainly to satisfy pod coverage test)
---
 lib/HTML/Scrubber.pm | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/lib/HTML/Scrubber.pm b/lib/HTML/Scrubber.pm
index efbb793..1423631 100644
--- a/lib/HTML/Scrubber.pm
+++ b/lib/HTML/Scrubber.pm
@@ -36,10 +36,6 @@ package HTML::Scrubber;
 
 =head1 DESCRIPTION
 
-L<Master Build Results|https://travis-ci.org/nigelm/html-scrubber>
-
-=head1 DESCRIPTION
-
 If you want to "scrub" or "sanitize" html input in a reliable and flexible
 fashion, then this module is for you.
 
@@ -77,6 +73,32 @@ our ( @_scrub, @_scrub_fh );
 (@_scrub)    = ( \&_scrub,    "self, event, tagname, attr, attrseq, text" );
 (@_scrub_fh) = ( \&_scrub_fh, "self, event, tagname, attr, attrseq, text" );
 
+=head2 new
+
+    my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] );
+
+Build a new L<HTML::Scrubber>.  The arguments are the initial values for the
+following directives:-
+
+=over 4
+
+=item * default
+
+=item * allow
+
+=item * deny
+
+=item * rules
+
+=item * process
+
+=item * comment
+
+=back
+
+
+=cut
+
 sub new {
     my $package = shift;
     my $p       = HTML::Parser->new(

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhtml-scrubber-perl.git