Changeset 14700

Timestamp:

06/27/08 16:18:38 (5 years ago)

Author:

tokuhirom

Message:

ちょっと exporter つかわしてもらいますよ

Files:

• dan/perl/Object-with/branches/yappo/lib/Object/with.pm (modified) (1 diff)

dan/perl/Object-with/branches/yappo/lib/Object/with.pm

@@ -4 +4 @@
 use warnings;
 our $VERSION = '0.01';
+use Exporter 'import';
 use Data::Dumper;
-
 use XSLoader;
-
 XSLoader::load 'Object::with', $VERSION;
 
-
-sub import {
-    my $class = shift;
-    my $pkg   = caller(0);
-    no strict 'refs';
-    *{"$pkg\::with"} = \&with;
-}
+our @EXPORT = qw/with/;
 
 our $TMP_OBJ;