Changeset 24957 for lang

Show
Ignore:
Timestamp:
11/26/08 18:26:33 (5 years ago)
Author:
kazuho
Message:

update Class::Accessor::Lite to 0.02

Location:
lang/perl/MENTA/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/MENTA/trunk/extlib/Class/Accessor/Lite.pm

    r24947 r24957  
    33use strict; 
    44 
    5 our $VERSION = '0.01'; 
     5our $VERSION = '0.02'; 
    66 
    77sub mk_accessors { 
    88    shift; # usage: Class::Accessor::Lite->mk_accessors(qw(...)); 
    99    no strict 'refs'; 
    10     my $pkg = caller(1); 
     10    my $pkg = caller(0); 
    1111    for my $n (@_) { 
    1212        *{$pkg . '::' . $n} = __m($n);