Changeset 4869

Timestamp:

01/18/08 14:38:47 (10 months ago)

Author:

miyagawa

Message:

make unicode2name, unicod2name_en and vianame exportable

Files:

• lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm (modified) (3 diffs)

lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm

@@ -8 +8 @@
 use Encode;
 
+use base qw( Exporter );
+our @EXPORT_OK = qw( unicode2name unicode2name_en vianame );
+
 my $name2unicode;
 my $unicode2name;
@@ -13 +16 @@
 
 sub import {
-    my $class = shift;
     # for perl < 5.10
     if ($charnames::hint_bits) {
@@ -19 +21 @@
     }
     $^H{charnames} = \&translator;
+    __PACKAGE__->export_to_level(1, @_);
 }