From: Vincent Pit Date: Fri, 23 Aug 2013 14:46:40 +0000 (-0300) Subject: Remove trailing whitespace X-Git-Tag: v0.03~10 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fwith.git;a=commitdiff_plain;h=0546f5a2c8201fddeef412c0d8d75eaccf454f41 Remove trailing whitespace --- diff --git a/lib/with.pm b/lib/with.pm index 54d00c3..878f8f6 100644 --- a/lib/with.pm +++ b/lib/with.pm @@ -47,7 +47,7 @@ our $VERSION = '0.02'; use with \$deuce; hlagh; # Deuce::hlagh 1 Pants::hlagh; # Pants::hlagh - + { use with \Deuce->new(2); hlagh; # Deuce::hlagh 2 @@ -95,7 +95,7 @@ my $extractor = [ my %skip; $skip{$_} = 1 for qw/my our local sub do eval goto return - if else elsif unless given when or and + if else elsif unless given when or and while until for foreach next redo last continue eq ne lt gt le ge cmp map grep system exec sort print say @@ -315,7 +315,7 @@ When the script is executed, deferred calls first fetch the default object back A call will never be dispatched to a method whose name is one of : my our local sub do eval goto return - if else elsif unless given when or and + if else elsif unless given when or and while until for foreach next redo last continue eq ne lt gt le ge cmp map grep system exec sort print say diff --git a/samples/with.pl b/samples/with.pl index 045783b..5b0937e 100755 --- a/samples/with.pl +++ b/samples/with.pl @@ -30,7 +30,7 @@ hlagh; # Pants::hlagh use with \$deuce; hlagh; # Deuce::hlagh 1 main::hlagh; # Pants::hlagh - + { use with \Deuce->new(2); # Constant blessed reference hlagh; # Deuce::hlagh 2 diff --git a/t/10-with.t b/t/10-with.t index 4f6e34c..3edaae7 100644 --- a/t/10-with.t +++ b/t/10-with.t @@ -40,9 +40,9 @@ foo 'main', 0; main::foo 'main', 2; my $ref = \&foo; $ref->('main', 2); - + no with; - foo 'main', 0; + foo 'main', 0; }