cleaning C::Test
Christian Hansen [Wed, 23 Mar 2005 04:03:14 +0000 (04:03 +0000)]
lib/Catalyst/Test.pm

index 97de28f..f19b76f 100644 (file)
@@ -3,9 +3,6 @@ package Catalyst::Test;
 use strict;
 use UNIVERSAL::require;
 
-require Catalyst;
-
-my $class;
 $ENV{CATALYST_ENGINE} = 'Test';
 
 =head1 NAME
@@ -64,7 +61,7 @@ Returns a C<HTTP::Response> object.
 
 sub import {
     my $self = shift;
-    if ( $class = shift ) {
+    if ( my $class = shift ) {
         $class->require;
         unless ( $INC{'Test/Builder.pm'} ) {
             die qq/Couldn't load "$class", "$@"/ if $@;