Re: [PATCH] UNIVERSAL shouldn't require Exporter

On 2001-04-26 04:54:17, barries@slaysys.com wrote:
>
> > There should not be an import{} method at all.
> 
> Cat's out of the bag on this on, I think.  Quoth perlobj: [...]
> 
> 	 use UNIVERSAL qw(isa);

How about this, then?

- ams

--- perl@9818/lib/UNIVERSAL.pm~	Thu Apr 26 03:14:28 2001
+++ perl@9818/lib/UNIVERSAL.pm	Thu Apr 26 16:21:24 2001
@@ -2,12 +2,17 @@
 
 our $VERSION = '1.00';
 
-# UNIVERSAL should not contain any extra subs/methods beyond those
-# that it exists to define. The use of Exporter below is a historical
-# accident that should be fixed sometime.
-require Exporter;
-*import = \&Exporter::import;
-@EXPORT_OK = qw(isa can);
+sub import
+{
+    no strict 'refs';
+    my $pkg = caller;
+
+    foreach my $sym (@_) {
+        if ($sym eq "isa" || $sym eq "can") {
+            *{"${pkg}::$sym"} = \&$sym;
+        }
+    }
+}
 
 1;
 __END__

• [PATCH] UNIVERSAL shouldn't require Exporter by Abhijit Menon-Sen
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Mike Guy
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Benjamin Sugars
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Mike Guy
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Jarkko Hietaniemi
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Mike Guy
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Simon Cozens
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Graham Barr
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Mike Guy
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Graham Barr
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by barries
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Abhijit Menon-Sen
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Graham Barr
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Simon Cozens
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Graham Barr
• Re: [PATCH] UNIVERSAL shouldn't require Exporter by Graham Barr