aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2017-10-04 11:11:16 +1300
committerTom Ryder <tom@sanctum.geek.nz>2017-10-04 11:11:16 +1300
commite54f4af506787fc2c3fe8d9d56450efc42796065 (patch)
tree62e497bfa439900a93d89d38aa37c81670256c18
parentCorrect README (diff)
downloadList-Breakdown-e54f4af506787fc2c3fe8d9d56450efc42796065.tar.gz (sig)
List-Breakdown-e54f4af506787fc2c3fe8d9d56450efc42796065.zip
Perl::Tidy missed for errors.tv0.09
-rw-r--r--lib/List/Breakdown.pm4
-rw-r--r--t/errors.t12
-rw-r--r--t/words.t2
3 files changed, 10 insertions, 8 deletions
diff --git a/lib/List/Breakdown.pm b/lib/List/Breakdown.pm
index 62027a4..b1e57ce 100644
--- a/lib/List/Breakdown.pm
+++ b/lib/List/Breakdown.pm
@@ -16,7 +16,7 @@ use base qw(Exporter);
our @EXPORT_OK = 'breakdown';
# Specify package version
-our $VERSION = 0.08;
+our $VERSION = 0.09;
# Dispatch table of functions to handle different ref types for the spec
# hashref's values
@@ -89,7 +89,7 @@ List::Breakdown - Build list sublists matching conditions
=head1 VERSION
-Version 0.08
+Version 0.09
=head1 DESCRIPTION
diff --git a/t/errors.t b/t/errors.t
index 1325bca..4fe8f9b 100644
--- a/t/errors.t
+++ b/t/errors.t
@@ -8,10 +8,12 @@ use Test::More tests => 4;
use List::Breakdown 'breakdown';
-our $VERSION = 0.08;
+our $VERSION = 0.09;
my @t = 1 .. 3;
-is( eval { breakdown { a => undef }, @t } || undef, undef, 'error_notref_undef' );
-is( eval { breakdown { a => 'a' }, @t } || undef, undef, 'error_notref_def' );
-is( eval { breakdown { a => [] }, @t } || undef, undef, 'error_badref_array' );
-is( eval { breakdown { a => \{} }, @t } || undef, undef, 'error_badref_double' );
+is( eval { breakdown { a => undef }, @t } || undef,
+ undef, 'error_notref_undef' );
+is( eval { breakdown { a => 'a' }, @t } || undef, undef, 'error_notref_def' );
+is( eval { breakdown { a => [] }, @t } || undef, undef, 'error_badref_array' );
+is( eval { breakdown { a => \{} }, @t } || undef, undef,
+ 'error_badref_double' );
diff --git a/t/words.t b/t/words.t
index 9782318..326c9c9 100644
--- a/t/words.t
+++ b/t/words.t
@@ -8,7 +8,7 @@ use Test::More tests => 1;
use List::Breakdown 'breakdown';
-our $VERSION = 0.08;
+our $VERSION = 0.09;
my @words = qw(foo bar baz quux wibble florb);
my $filters = {