CPAN Release 0.82

- Eliminate spurious trailing whitespace

Changes

@@ -1,4 +1,9 @@
 ---
+version: 0.82
+date:    Sat Aug 16 04:14:25 PDT 2014
+changes:
+- Eliminate spurious trailing whitespace
+---
 version: 0.81
 date:    Sat Aug 16 02:52:12 PDT 2014
 changes:

Meta

@@ -1,7 +1,7 @@
 =meta: 0.0.1
 
 name: Test-Base
-version: 0.81
+version: 0.82
 abstract: A Data Driven Testing Framework
 homepage: https://metacpan.org/release/Test-Base
 

lib/Module/Install/TestBase.pm

@@ -6,7 +6,7 @@ use Module::Install::Base;
 
 use vars qw($VERSION @ISA);
 BEGIN {
-    $VERSION = '0.81';
+    $VERSION = '0.82';
     @ISA     = 'Module::Install::Base';
 }
 

lib/Test/Base.pm

@@ -1,5 +1,5 @@
 package Test::Base;
-our $VERSION = '0.81';
+our $VERSION = '0.82';
 
 use Spiffy -Base;
 use Spiffy ':XXX';

test/TestBass.pm

@@ -6,7 +6,7 @@ use Test::Base -Base;
 
 our @EXPORT = qw(run_like_hell);
 
-sub run_like_hell() { 
+sub run_like_hell() {
     (my ($self), @_) = find_my_self(@_);
     $self->run_like(@_);
 }

test/arguments.t

@@ -6,14 +6,14 @@ sub Test::Base::Filter::something {
     my $self = shift;
     my $value = shift;
     my $arguments = $self->current_arguments;
-    is $value, 
-       "candle\n", 
+    is $value,
+       "candle\n",
        'value is ok';
-    is $arguments, 
-       "wicked", 
+    is $arguments,
+       "wicked",
        'arguments is ok';
-    is $Test::Base::Filter::arguments, 
-       "wicked", 
+    is $Test::Base::Filter::arguments,
+       "wicked",
        '$arguments global variable is ok';
 }
 

test/blocks-scalar.t

@@ -6,7 +6,7 @@ for (1..blocks) {
     ok 1, 'Jusk checking my blocking';
 }
 
-is scalar(blocks), 2, 
+is scalar(blocks), 2,
    'correct number of blocks';
 
 sub this_filter_fails {

test/compact.t

@@ -42,7 +42,7 @@ there is foo
 TOO HIGH TO DIE
 
 === Can have no value
---- (this):   
+--- (this):
 --- (that)
 
 === Can have ': ' in value

test/diff_is.t

@@ -90,7 +90,7 @@ two
 three
 XXX
 one
-two 
+two
 three
 YYY
 
@@ -101,7 +101,7 @@ not ok 1 - diff with space
 #   in /tmp/test-blocks-321 at line 3.
 # @@ -1,3 +1,3 @@
 #  one
-# -two 
+# -two
 # +two
 #  three
 # Looks like you failed 1 test of 1.

test/embed_perl.t

@@ -10,7 +10,7 @@ sub reverse { join '', reverse split '', shift }
 
 __DATA__
 
-<<< delimiters '+++', '***'; 
+<<< delimiters '+++', '***';
 filters 'chomp';
 >>>
 

test/escape.t

@@ -1,6 +1,6 @@
 use Test::Base tests => 2;
 
-is next_block->escaped, 
+is next_block->escaped,
    "line1\nline2";
 is next_block->escaped,
    "	foo\n		bar\n";

test/filter_arguments.t

@@ -17,7 +17,7 @@ __DATA__
 ===
 --- xxx foo=123,456
 
-=== 
+===
 --- xxx bar=---holy-crow+++
 one
   two

test/filters-append.t

@@ -6,9 +6,9 @@ is next_block->text, "this,foo,that,bar";
 # 2nd test is needed
 is next_block->text, "this,foo,that,bar";
 
-sub foo { $_[0] . ",foo" } 
-sub bar { $_[0] . ",bar" } 
-sub that { $_[0] . ",that" } 
+sub foo { $_[0] . ",foo" }
+sub bar { $_[0] . ",bar" }
+sub that { $_[0] . ",that" }
 
 __DATA__
 ===

test/internals.t

@@ -9,21 +9,21 @@ use Test::More;
 sub foo {
     my $self = shift;
     my $value = shift;
-    
+
 # Test access to Test::Base::Filter object.
-    ok ref($self), 
+    ok ref($self),
        '$self is an object';
-    is ref($self), 
-       'Test::Base::Filter', 
+    is ref($self),
+       'Test::Base::Filter',
        '$self is a Test:Base::Filter object';
     like $value,
          qr/^This is some .*text.\z/,
-         'Filter value is correct';   
+         'Filter value is correct';
 
 # Test access to Test::Base::Block object.
     my $block = $self->current_block;
-    is ref($block), 
-       'Test::Base::Block', 
+    is ref($block),
+       'Test::Base::Block',
        'Have a reference to our block object';
 
     ok not($block->is_filtered),
@@ -63,11 +63,11 @@ sub foo {
 # Test access to Test::Base object.
     my $blocks = $block->blocks_object;
     my $block_list = $blocks->block_list;
-    is ref($block_list), 
+    is ref($block_list),
        'ARRAY',
        'Have an array of all blocks';
 
-    is scalar(@$block_list), 
+    is scalar(@$block_list),
        '2',
        'Is there 2 blocks?';
 

test/last.t

@@ -1,6 +1,6 @@
 use Test::Base tests => 4;
 
-is scalar(blocks), 3, 
+is scalar(blocks), 3,
    'Does LAST limit tests to 3?';
 
 run {
@@ -14,7 +14,7 @@ __DATA__
 ===
 --- test: all work and no play
 
-=== 
+===
 --- LAST
 --- test: all work and no play
 

test/lines.t

@@ -2,7 +2,7 @@ use Test::Base tests => 6;
 
 my @lines1 = [blocks]->[0]->text1;
 ok @lines1 == 3;
-is_deeply 
+is_deeply
 \@lines1,
 [
     "One\n",

test/list.t

@@ -2,16 +2,16 @@ use Test::Base tests => 5;
 
 my $block1 = [blocks]->[0];
 my @values = $block1->grocery;
-is scalar(@values), 3, 
+is scalar(@values), 3,
    'check list context';
-is_deeply \@values, ['apples', 'oranges', 'beef jerky'], 
+is_deeply \@values, ['apples', 'oranges', 'beef jerky'],
    'list context content';
 
 my $block2 = [blocks]->[1];
-is_deeply $block2->todo, 
+is_deeply $block2->todo,
 [
-    'Fix YAML', 
-    'Fix Inline', 
+    'Fix YAML',
+    'Fix Inline',
     'Fix Test::Base',
 ], 'deep block from index';
 

test/parentheses.t

@@ -26,9 +26,9 @@ __DATA__
 --- foo)
 some text
 
-=== 
+===
 --- (foo): some text
 
-=== 
+===
 --- (foo) split join: some text
 

test/reserved_names.t

@@ -17,7 +17,7 @@ for my $word (qw(
              )) {
     my $blocks = my_blocks($word);
     eval {$blocks->blocks};
-    like $@, qr{'$word' is a reserved name}, 
+    like $@, qr{'$word' is a reserved name},
          "$word is a bad name";
 }
 

test/reverse-deep.t

@@ -19,12 +19,12 @@ __DATA__
     [qw(a b c)],
     [qw(d e f)],
     [qw(g h i j)]
-], 
+],
 [
     [qw(a b c)],
     [qw(d e f)],
     [qw(g h i j)]
-], 
+],
 
 --- yyy) eval
 [

test/simple.t

@@ -7,7 +7,7 @@ for my $block (blocks) {
     is(
         uc($block->pod),
         $block->upper,
-        $block->name, 
+        $block->name,
     );
 }
 

test/split.t

@@ -21,7 +21,7 @@ The other tests don't work yet.
 
 ===
 --- ok lines split
-I am 
+I am
 ok. Are you
 ok?