removing unnecessary code in Catalyst.pm
Christian Hansen [Wed, 23 Mar 2005 04:41:52 +0000 (04:41 +0000)]
lib/Catalyst.pm

index 8197e79..5b79ba6 100644 (file)
@@ -141,15 +141,9 @@ sub import {
     my ( $self, @options ) = @_;
     my $caller = caller(0);
 
-    # Class
-    {
+    unless ( $caller->isa($self) ) {
         no strict 'refs';
-        *{"$caller\::handler"} =
-          sub { Catalyst::Engine::handler( $caller, @_ ) };
-
-        unless ( $caller->isa($self) ) {
-            push @{"$caller\::ISA"}, $self;
-        }
+        push @{"$caller\::ISA"}, $self;
     }
 
     unless ( $caller->log ) {