AutoLoader: Remove AutoLoader::can
authorSteffen Müller <0mgwtfbbq@sneakemail.com>
Fri, 30 Nov 2007 23:02:03 +0000 (00:02 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 8 Jan 2008 22:12:56 +0000 (22:12 +0000)
Message-ID: <20071130220203.26939.qmail@lists.develooper.com>

p4raw-id: //depot/perl@32903

lib/AutoLoader.pm
lib/AutoLoader/t/01AutoLoader.t

index 215a9ff..636bb5a 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
     $is_epoc = $^O eq 'epoc';
     $is_vms = $^O eq 'VMS';
     $is_macos = $^O eq 'MacOS';
-    $VERSION = '5.64';
+    $VERSION = '5.64_01';
 }
 
 AUTOLOAD {
@@ -51,21 +51,6 @@ AUTOLOAD {
     goto &$sub;
 }
 
-sub can {
-    my ($self, $method) = @_;
-
-    my $parent          = $self->SUPER::can( $method );
-    return $parent if $parent;
-
-    my $package         = ref( $self ) || $self;
-    my $filename        = AutoLoader::find_filename( $package . '::' . $method );
-    local $@;
-    return unless eval { require $filename };
-
-    no strict 'refs';
-    return \&{ $package . '::' . $method };
-}
-
 sub find_filename {
     my $sub = shift;
     my $filename;
@@ -152,7 +137,6 @@ sub import {
        if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) {
            no strict 'refs';
            *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
-           *{ $callpkg . '::can'      } = \&can;
        }
     }
 
@@ -198,7 +182,7 @@ sub unimport {
 
     no strict 'refs';
 
-    for my $exported (qw( AUTOLOAD can )) {
+    for my $exported (qw( AUTOLOAD )) {
        my $symname = $callpkg . '::' . $exported;
        undef *{ $symname } if \&{ $symname } == \&{ $exported };
        *{ $symname } = \&{ $symname };
index 2b6ef9a..21125ae 100755 (executable)
@@ -18,7 +18,7 @@ BEGIN
     unshift @INC, $dir;
 }
 
-use Test::More tests => 22;
+use Test::More tests => 17;
 
 # First we must set up some autoloader files
 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
@@ -33,15 +33,6 @@ sub foo { shift; shift || "foo" }
 EOT
 close(FOO);
 
-open(BAR, '>', File::Spec->catfile( $fulldir, 'bar.al' ))
-       or die "Can't open bar file: $!";
-print BAR <<'EOT';
-package Foo;
-sub bar { shift; shift || "bar" }
-1;
-EOT
-close(BAR);
-
 open(BAZ, '>', File::Spec->catfile( $fulldir, 'bazmarkhian.al' ))
        or die "Can't open bazmarkhian file: $!";
 print BAZ <<'EOT';
@@ -87,10 +78,6 @@ ok( $result,               'can() first time' );
 is( $foo->foo, 'foo', 'autoloaded first time' );
 is( $foo->foo, 'foo', 'regular call' );
 is( $result,   \&Foo::foo, 'can() returns ref to regular installed sub' );
-$result    = $foo->can( 'bar' );
-ok( $result,               'can() should work when importing AUTOLOAD too' );
-is( $foo->bar, 'bar', 'regular call' );
-is( $result,   \&Foo::bar, '... returning ref to regular installed sub' );
 
 eval {
     $foo->will_fail;
@@ -112,9 +99,7 @@ like( $@, qr/oops/, 'indirect method call' );
 # autoloaded filename.
 'foo' =~ /(\w+)/;
 
-is( $foo->bar($1), 'foo', 'autoloaded method should not stomp match vars' );
-is( $foo->bar($1), 'foo', '(again)' );
-is( $foo->bazmarkhianish($1), 'foo', 'for any method call' );
+is( $foo->bazmarkhianish($1), 'foo', 'autoloaded method should not stomp match vars' );
 is( $foo->bazmarkhianish($1), 'foo', '(again)' );
 
 # Used to retry long subnames with shorter filenames on any old