From: Shawn M Moore <sartak@gmail.com>
Date: Fri, 26 Jun 2009 19:33:46 +0000 (-0400)
Subject: Convert tabs to spaces
X-Git-Tag: 0.85~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9978e85e92a466d86162718bd8e618ca91d44149;p=gitmo%2FMoose.git

Convert tabs to spaces
---

diff --git a/t/020_attributes/021_method_generation_rules.t b/t/020_attributes/021_method_generation_rules.t
index 5876190..d634e57 100644
--- a/t/020_attributes/021_method_generation_rules.t
+++ b/t/020_attributes/021_method_generation_rules.t
@@ -18,11 +18,11 @@ use Test::Exception;
 =cut
 
 sub make_class {
-	my ($is, $attr, $class) = @_;
+    my ($is, $attr, $class) = @_;
 
-	eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
+    eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
 
-	return $@ ? die $@ : $class;
+    return $@ ? die $@ : $class;
 }
 
 my $obj;
diff --git a/t/200_examples/006_example_Protomoose.t b/t/200_examples/006_example_Protomoose.t
index 8b3d3cf..e0602e0 100644
--- a/t/200_examples/006_example_Protomoose.t
+++ b/t/200_examples/006_example_Protomoose.t
@@ -166,9 +166,9 @@ Well cause merlyn asked if it could :)
             ? $_[0]
             : $_[0]->meta->prototype_instance;
         my (undef, %params) = @_;
-    	my $self = $prototype->meta->clone_object($prototype, %params);
-    	$self->BUILDALL(\%params);
-    	return $self;
+        my $self = $prototype->meta->clone_object($prototype, %params);
+        $self->BUILDALL(\%params);
+        return $self;
     }
 }
 
diff --git a/t/300_immutable/002_apply_roles_to_immutable.t b/t/300_immutable/002_apply_roles_to_immutable.t
index 718c6bd..7976635 100644
--- a/t/300_immutable/002_apply_roles_to_immutable.t
+++ b/t/300_immutable/002_apply_roles_to_immutable.t
@@ -24,7 +24,7 @@ use Test::Exception;
 
     sub baz { 'Foo::baz' }
 
-	__PACKAGE__->meta->make_immutable(debug => 0);
+    __PACKAGE__->meta->make_immutable(debug => 0);
 }
 
 my $foo = Foo->new;
diff --git a/t/600_todo_tests/001_exception_reflects_failed_constraint.t b/t/600_todo_tests/001_exception_reflects_failed_constraint.t
index 8e89d9a..262ff80 100644
--- a/t/600_todo_tests/001_exception_reflects_failed_constraint.t
+++ b/t/600_todo_tests/001_exception_reflects_failed_constraint.t
@@ -11,23 +11,23 @@ use Test::More tests => 4;
 use Test::Exception;
 
 BEGIN {
-	use_ok('Moose::Util::TypeConstraints');
+    use_ok('Moose::Util::TypeConstraints');
 }
 
 lives_ok {
-	subtype 'ParentConstraint' => as 'Str' => where {0};
+    subtype 'ParentConstraint' => as 'Str' => where {0};
 } 'specified parent type constraint';
 
 my $tc;
 lives_ok {
-	$tc = subtype 'ChildConstraint' => as 'ParentConstraint' => where {1};
+    $tc = subtype 'ChildConstraint' => as 'ParentConstraint' => where {1};
 } 'specified child type constraint';
 
 {
-	my $errmsg = $tc->validate();
+    my $errmsg = $tc->validate();
 
-	TODO: {
-		local $TODO = 'Not yet supported';
-		ok($errmsg !~ /Validation failed for 'ChildConstraint'/, 'exception references failing parent constraint');
-	};
+    TODO: {
+        local $TODO = 'Not yet supported';
+        ok($errmsg !~ /Validation failed for 'ChildConstraint'/, 'exception references failing parent constraint');
+    };
 }