[libclass-tiny-perl] 07/19: perltidy

[gregor herrmann]

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

gregoa pushed a commit to annotated tag release-0.004
in repository libclass-tiny-perl.

commit 6a97cda3d318b32d115907e3e23b3b448eef4ac0
Author: David Golden <dagolden at cpan.org>
Date:   Tue Aug 20 17:34:21 2013 -0400

    perltidy
---
 lib/Class/Tiny.pm | 11 +++++------
 t/baker.t         |  9 ++++-----
 t/charlie.t       |  2 +-
 t/delta.t         |  4 ++--
 t/echo.t          |  6 +++---
 5 files changed, 15 insertions(+), 17 deletions(-)

diff --git a/lib/Class/Tiny.pm b/lib/Class/Tiny.pm
index cc53c05..80d7ece 100644
--- a/lib/Class/Tiny.pm
+++ b/lib/Class/Tiny.pm
@@ -21,8 +21,8 @@ my %CLASS_ATTRIBUTES;
 sub import {
     no strict 'refs';
     my $class = shift;
-    my $pkg  = caller;
-    my @attr = grep {
+    my $pkg   = caller;
+    my @attr  = grep {
         defined and !ref and /^[^\W\d]\w*$/s
           or Carp::croak "Invalid accessor name '$_'"
     } @_;
@@ -40,7 +40,7 @@ sub import {
 }
 
 sub get_all_attributes_for {
-    my ($class, $pkg) = @_;
+    my ( $class, $pkg ) = @_;
     return map { keys %{ $CLASS_ATTRIBUTES{$_} || {} } } @{ mro::get_linear_isa($pkg) };
 }
 
@@ -79,7 +79,7 @@ sub new {
     }
 
     # create object and invoke BUILD
-    my $self = bless { %$args }, $class;
+    my $self = bless {%$args}, $class;
     for my $s ( reverse @search ) {
         no strict 'refs';
         my $builder = *{ $s . "::BUILD" }{CODE};
@@ -89,7 +89,6 @@ sub new {
     return $self;
 }
 
-
 # Adapted from Moo and its dependencies
 
 BEGIN {
@@ -111,7 +110,7 @@ sub DESTROY {
         my $e          = do {
             local $?;
             local $@;
-            eval { $self->$demolisher(_in_global_destruction()) if defined $demolisher };
+            eval { $self->$demolisher( _in_global_destruction() ) if defined $demolisher };
             $@;
         };
         no warnings 'misc'; # avoid (in cleanup) warnings
diff --git a/t/baker.t b/t/baker.t
index fa5cca4..a049fa5 100644
--- a/t/baker.t
+++ b/t/baker.t
@@ -40,7 +40,7 @@ subtest "subclass attribute set as list" => sub {
 subtest "superclass attribute set as list" => sub {
     my $obj = new_ok( "Baker", [ bar => 42, baz => 23 ] );
     is( $obj->foo, undef, "foo is undef" );
-    is( $obj->bar, 42, "bar is set" );
+    is( $obj->bar, 42,    "bar is set" );
     is( $obj->baz, 23,    "baz is set " );
 };
 
@@ -48,15 +48,15 @@ subtest "all attributes set as list" => sub {
     my $obj = new_ok( "Baker", [ foo => 13, bar => 42, baz => 23 ] );
     is( $obj->foo, 13, "foo is set" );
     is( $obj->bar, 42, "bar is set" );
-    is( $obj->baz, 23,    "baz is set " );
+    is( $obj->baz, 23, "baz is set " );
 };
 
 subtest "attributes are RW" => sub {
     my $obj = new_ok( "Baker", [ { foo => 23, bar => 42 } ] );
     is( $obj->foo(24), 24, "changing foo returns new value" );
-    is( $obj->foo, 24, "accessing foo returns changed value" );
+    is( $obj->foo,     24, "accessing foo returns changed value" );
     is( $obj->baz(42), 42, "changing baz returns new value" );
-    is( $obj->baz, 42, "accessing baz returns changed value" );
+    is( $obj->baz,     42, "accessing baz returns changed value" );
 };
 
 subtest "exceptions" => sub {
@@ -68,7 +68,6 @@ subtest "exceptions" => sub {
 
 };
 
-
 done_testing;
 # COPYRIGHT
 # vim: ts=4 sts=4 sw=4 et:
diff --git a/t/charlie.t b/t/charlie.t
index 1143ee0..e844ee0 100644
--- a/t/charlie.t
+++ b/t/charlie.t
@@ -16,7 +16,7 @@ subtest "all attributes set as list" => sub {
 
 subtest "custom accessor" => sub {
     my $obj = new_ok( "Charlie", [ foo => 13, bar => [42] ] );
-    is_deeply( $obj->bar( qw/1 1 2 3 5/ ), [ qw/1 1 2 3 5/ ], "bar is set" );
+    is_deeply( $obj->bar(qw/1 1 2 3 5/), [qw/1 1 2 3 5/], "bar is set" );
 };
 
 done_testing;
diff --git a/t/delta.t b/t/delta.t
index d7e5a29..4ec60c0 100644
--- a/t/delta.t
+++ b/t/delta.t
@@ -16,9 +16,9 @@ subtest "attribute set as list" => sub {
 
 subtest "destructor" => sub {
     my @objs = map { new_ok( "Delta", [ foo => 42, bar => 23 ] ) } 1 .. 3;
-    is ($Delta::counter, 3, "BUILD incremented counter");
+    is( $Delta::counter, 3, "BUILD incremented counter" );
     @objs = ();
-    is ($Delta::counter, 0, "DEMOLISH decremented counter");
+    is( $Delta::counter, 0, "DEMOLISH decremented counter" );
 };
 
 subtest "exceptions" => sub {
diff --git a/t/echo.t b/t/echo.t
index 41b708d..cab7c8f 100644
--- a/t/echo.t
+++ b/t/echo.t
@@ -18,10 +18,10 @@ subtest "attribute set as list" => sub {
 subtest "destructor" => sub {
     no warnings 'once';
     my @objs = map { new_ok( "Echo", [ foo => 42, bar => 23 ] ) } 1 .. 3;
-    is ($Delta::counter, 3, "BUILD incremented counter");
+    is( $Delta::counter, 3, "BUILD incremented counter" );
     @objs = ();
-    is ($Delta::counter, 0, "DEMOLISH decremented counter");
-    is ($Delta::exception, 0, "cleanup worked in correct order");
+    is( $Delta::counter,   0, "DEMOLISH decremented counter" );
+    is( $Delta::exception, 0, "cleanup worked in correct order" );
 };
 
 subtest "exceptions" => sub {

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