From: Tomas Doran (t0m) <bobtfish@bobtfish.net>
Date: Sat, 6 Jun 2009 23:24:24 +0000 (+0100)
Subject: Smash tabs to spaces otherwise tests fail
X-Git-Tag: 0.05~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Engine-STOMP.git;a=commitdiff_plain;h=9f1c9f425c8c1e6cfc5113e2bf86ff8a02387a76

Smash tabs to spaces otherwise tests fail
---

diff --git a/lib/Catalyst/Test/MessageDriven.pm b/lib/Catalyst/Test/MessageDriven.pm
index 06dec69..e7f29d5 100644
--- a/lib/Catalyst/Test/MessageDriven.pm
+++ b/lib/Catalyst/Test/MessageDriven.pm
@@ -4,7 +4,7 @@ use Sub::Exporter;
 use HTTP::Request;
 
 BEGIN {
-	$ENV{CATALYST_ENGINE} = 'Test::MessageDriven';
+    $ENV{CATALYST_ENGINE} = 'Test::MessageDriven';
 };
 
 =head1 NAME
@@ -41,63 +41,64 @@ Some test wrappers - successful / error message conditions?
 =cut
 
 my $build_exports = sub {
-	my ($self, $meth, $args, $defaults) = @_;
-
-	my $request;
-	my $class = $args->{class};
-
-	if (!$class) {
-		$request = sub { Catalyst::Exception->throw("Must specify a test app: use Catalyst::Test::MessageDriven 'TestApp'") };
-	}
-	else {
-		unless (Class::MOP::is_class_loaded($class)) {
-			Class::MOP::load_class($class);
-		}
-		$class->import;
-
-		my $app = $class->run();
-		$request = sub { message_driven_request( $app, @_ ) };
-	}
-
-	return {
-		request => $request,
-	};
+    my ($self, $meth, $args, $defaults) = @_;
+
+    my $request;
+    my $class = $args->{class};
+
+    if (!$class) {
+        $request = sub { Catalyst::Exception->throw("Must specify a test app: use Catalyst::Test::MessageDriven 'TestApp'") };
+    }
+    else {
+        unless (Class::MOP::is_class_loaded($class)) {
+            Class::MOP::load_class($class);
+        }
+        $class->import;
+
+        my $app = $class->run();
+        $request = sub { message_driven_request( $app, @_ ) };
+    }
+
+    return {
+        request => $request,
+    };
 };
 
 {
-	my $import = Sub::Exporter::build_exporter({
-		groups => [ all => $build_exports ],
-		into_level => 1,
-	});
-
-	sub import {
-		my ($self, $class) = @_;
-		$import->($self, '-all' => { class => $class });
-		return 1;
-	}
+    my $import = Sub::Exporter::build_exporter({
+        groups => [ all => $build_exports ],
+        into_level => 1,
+    });
+
+    sub import {
+        my ($self, $class) = @_;
+        $import->($self, '-all' => { class => $class });
+        return 1;
+    }
 }
 
 sub message_driven_request {
-	my ($app, $path, $req_message) = @_;
-	my $url = "message://localhost:61613/$path";
+    my ($app, $path, $req_message) = @_;
+    my $url = "message://localhost:61613/$path";
 
-	my $request = HTTP::Request->new( POST => $url );
-	$request->content($req_message);
-	$request->content_length(length $req_message);
-	$request->content_type('application/octet-stream');
+    my $request = HTTP::Request->new( POST => $url );
+    $request->content($req_message);
+    $request->content_length(length $req_message);
+    $request->content_type('application/octet-stream');
 
-	my $response;
-	$app->handle_request($request, \$response);
+    my $response;
+    $app->handle_request($request, \$response);
 
-	return $response;
+    return $response;
 }
 
-package Catalyst::Engine::Test::MessageDriven;
+package # Hide from PAUSE
+    Catalyst::Engine::Test::MessageDriven;
 use base 'Catalyst::Engine::Embeddable';
 
 sub run {
-	my ($self, $app) = @_;
-	return $app;
+    my ($self, $app) = @_;
+    return $app;
 }
 
 1;