This is an automated email from the git hooks/post-receive script. fsfs pushed a commit to annotated tag release/0.09 in repository libhtml-scrubber-perl.
commit 0622d651d7fda98bb82eaeedb155b05b24c41e14 Author: Nigel Metheringham <[email protected]> Date: Fri Apr 1 16:35:32 2011 +0100 Changes and github README updates --- Changes | 6 ++++++ README.pod | 24 ++++++++++++------------ 2 files changed, 18 insertions(+), 12 deletions(-) diff --git a/Changes b/Changes index 320ff64..b9853ff 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,12 @@ Revision history for Perl extension HTML::Scrubber. {{$NEXT}} - Basic conversion to Dist::Zilla/git + - Tidies to keep Perl::Critic happier + - Removed use of naked filehandles + - Reworked tests to not use predicable temp file name + - Collapsed duplicate code to a single version + - Various documentation tweaks + - Change of maintainer as PODMASTER cannot be contacted 0.08 Thu Apr 1 14:14:38 2004 - removed test which relied on stuff that changed in HTML-Parser-3.36 diff --git a/README.pod b/README.pod index a00ed97..1c8719b 100644 --- a/README.pod +++ b/README.pod @@ -164,9 +164,9 @@ the default attribute rule is applied. #!/usr/bin/perl -w use HTML::Scrubber; use strict; - # + my @allow = qw[ br hr b a ]; - # + my @rules = ( script => 0, img => { @@ -175,7 +175,7 @@ the default attribute rule is applied. '*' => 0, # deny all other attributes }, ); - # + my @default = ( 0 => # default rule, deny all tags { @@ -210,13 +210,13 @@ the default attribute rule is applied. 'type' => 0, } ); - # + my $scrubber = HTML::Scrubber->new(); $scrubber->allow( @allow ); $scrubber->rules( @rules ); # key/value pairs $scrubber->default( @default ); $scrubber->comment(1); # 1 allow, 0 deny - # + ## preferred way to create the same object $scrubber = HTML::Scrubber->new( allow => \@allow, @@ -225,9 +225,9 @@ the default attribute rule is applied. comment => 1, process => 0, ); - # + require Data::Dumper,die Data::Dumper::Dumper($scrubber) if @ARGV; - # + my $it = q[ <?php echo(" EVIL EVIL EVIL "); ?> <!-- asdf --> <hr> @@ -241,7 +241,7 @@ the default attribute rule is applied. </A> </A> <br> ]; - # + print "#original text",$/, $it, $/; print "#scrubbed text (default ", @@ -254,10 +254,10 @@ the default attribute rule is applied. $/, $scrubber->scrub($it), $/; - # + $scrubber->default(1); # allow all tags by default $scrubber->comment(0); # deny comments - # + print "#scrubbed text (default ", $scrubber->default(), @@ -269,12 +269,12 @@ the default attribute rule is applied. $/, $scrubber->scrub($it), $/; - # + $scrubber->process(1); # allow process instructions (dangerous) $default[0] = 1; # allow all tags by default $default[1]->{'*'} = 0; # deny all attributes by default $scrubber->default(@default); # set the default again - # + print "#scrubbed text (default ", $scrubber->default(), -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhtml-scrubber-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
