update repo to point to github

[gitmo/Moo.git] / t / overloaded-coderefs.t

diff --git a/t/overloaded-coderefs.t b/t/overloaded-coderefs.t
index 0c195c9..058db11 100644 (file)
--- a/t/overloaded-coderefs.t
+++ b/t/overloaded-coderefs.t
@@ -4,29 +4,29 @@ use Test::More;
 
 my $codified = 0;
 {
-       package Dark::Side;
-       use overload
-               q[&{}]   => sub { $codified++; shift->to_code },
-               fallback => 1;
-       sub new {
-               my $class = shift;
-               my $code = shift;
-               bless \$code, $class;
-       }
-       sub to_code {
-               my $self = shift;
-               eval "sub { $$self }";
-       }
+  package Dark::Side;
+  use overload
+    q[&{}]   => sub { $codified++; shift->to_code },
+    fallback => 1;
+  sub new {
+    my $class = shift;
+    my $code = shift;
+    bless \$code, $class;
+  }
+  sub to_code {
+    my $self = shift;
+    eval "sub { $$self }";
+  }
 }
 
 {
-       package The::Force;
-       use Sub::Quote;
-       use base 'Dark::Side';
-       sub to_code {
-               my $self = shift;
-               return quote_sub $$self;
-       }
+  package The::Force;
+  use Sub::Quote;
+  use base 'Dark::Side';
+  sub to_code {
+    my $self = shift;
+    return quote_sub $$self;
+  }
 }
 
 my $darkside = Dark::Side->new('my $dummy = "join the dark side"; $_[0] * 2');
@@ -37,10 +37,10 @@ is($theforce->(6), 12, 'check The::Force coderef');
 
 my $luke = The::Force->new('my $z = "I am your father"');
 {
-       package Doubleena;
-       use Moo;
-       has a => (is => "rw", coerce => $darkside, isa => sub { 1 });
-       has b => (is => "rw", coerce => $theforce, isa => $luke);
+  package Doubleena;
+  use Moo;
+  has a => (is => "rw", coerce => $darkside, isa => sub { 1 });
+  has b => (is => "rw", coerce => $theforce, isa => $luke);
 }
 
 my $o = Doubleena->new(a => 11, b => 12);
@@ -59,18 +59,18 @@ like($constructor, qr{I am your father}, 'Sub::Quoted isa got inlined');
 
 require Scalar::Util;
 is(
-       Scalar::Util::refaddr($luke),
-       Scalar::Util::refaddr(
-               Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"isa"}
-       ),
-       '$spec->{isa} reference is not mutated',
+  Scalar::Util::refaddr($luke),
+  Scalar::Util::refaddr(
+    Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"isa"}
+  ),
+  '$spec->{isa} reference is not mutated',
 );
 is(
-       Scalar::Util::refaddr($theforce),
-       Scalar::Util::refaddr(
-               Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"coerce"}
-       ),
-       '$spec->{coerce} reference is not mutated',
+  Scalar::Util::refaddr($theforce),
+  Scalar::Util::refaddr(
+    Moo->_constructor_maker_for("Doubleena")->all_attribute_specs->{"b"}{"coerce"}
+  ),
+  '$spec->{coerce} reference is not mutated',
 );
 
 done_testing;