Changeset 16156

Show
Ignore:
Timestamp:
07/24/08 10:21:22 (6 years ago)
Author:
daisuke
Message:

tokuhiromにDISられたけど、とりあえずisa Data::Visitorで動くようにした。

Location:
lang/perl/Data-Visitor-Encode/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Data-Visitor-Encode/trunk/Makefile.PL

    r16155 r16156  
    1010 
    1111requires 'Encode'; 
    12 requires 'Data::Visitor'; 
     12requires 'Data::Visitor', 0.18; 
    1313requires 'Scalar::Util'; 
    1414build_requires 'Test::More'; 
  • lang/perl/Data-Visitor-Encode/trunk/lib/Data/Visitor/Encode.pm

    r16155 r16156  
    55 
    66package Data::Visitor::Encode; 
    7 use strict; 
    8 use warnings; 
    9 use base qw(Data::Visitor); 
     7use Mouse; # only because Data::Visitor uses it :) 
     8 
     9extends 'Data::Visitor'; 
    1010use Encode(); 
     11 
     12our $VERSION = '0.10000'; 
     13 
     14has 'visit_method' => ( 
     15    is => 'rw', 
     16    isa => 'Str' 
     17); 
     18 
     19has 'extra_args' => ( 
     20    is => 'rw', 
     21); 
     22 
     23no Mouse; 
    1124use Scalar::Util qw(reftype blessed); 
    12  
    13 BEGIN 
    14 { 
    15     our $VERSION = '0.09000'; 
    16     __PACKAGE__->mk_accessors('visit_method', 'extra_args'); 
    17 } 
    1825 
    1926sub _object { ref $_[0] ? $_[0] : $_[0]->new }