Changeset 4158 for lang/perl/Text-MeCab

Show
Ignore:
Timestamp:
01/07/08 08:39:11 (5 years ago)
Author:
daisuke
Message:

lang/perl/Text-MeCab?; don't subclass Exporter, use our, use perl 5.6

Location:
lang/perl/Text-MeCab/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Text-MeCab/trunk/Makefile.PL

    r4157 r4158  
    5151    PREREQ_PM    => { 
    5252        'Encode'     => 0, 
     53        'Exporter'   => 0, 
    5354        'File::Spec' => 0, 
    5455        'Test::More' => 0, 

  • lang/perl/Text-MeCab/trunk/lib/Text/MeCab.pm

    r4155 r4158  
    66package Text::MeCab; 
    77use strict; 
    8 use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK); 
     8use warnings; 
     9use 5.006; 
     10use Exporter 'import'; 
     11our ($VERSION, @ISA, %EXPORT_TAGS, @EXPORT_OK); 
    912BEGIN 
    1013{ 
    … …  
    1821        __PACKAGE__->bootstrap; 
    1922    } 
    20  
    21     require Exporter; 
    22     push @ISA, 'Exporter'; 
    2323 
    2424    %EXPORT_TAGS = (all => [ qw(MECAB_NOR_NODE MECAB_UNK_NODE MECAB_BOS_NODE MECAB_EOS_NODE) ]);