Changeset 16156

Timestamp:

07/24/08 10:21:22 (5 years ago)

Author:

daisuke

Message:

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

Location:

lang/perl/Data-Visitor-Encode/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Data/Visitor/Encode.pm (modified) (1 diff)

lang/perl/Data-Visitor-Encode/trunk/Makefile.PL

@@ -10 +10 @@
 
 requires 'Encode';
-requires 'Data::Visitor';
+requires 'Data::Visitor', 0.18;
 requires 'Scalar::Util';
 build_requires 'Test::More';

lang/perl/Data-Visitor-Encode/trunk/lib/Data/Visitor/Encode.pm

@@ -5 +5 @@
 
 package Data::Visitor::Encode;
-use strict;
-use warnings;
-use base qw(Data::Visitor);
+use Mouse; # only because Data::Visitor uses it :)
+
+extends 'Data::Visitor';
 use Encode();
+
+our $VERSION = '0.10000';
+
+has 'visit_method' => (
+    is => 'rw',
+    isa => 'Str'
+);
+
+has 'extra_args' => (
+    is => 'rw',
+);
+
+no Mouse;
 use Scalar::Util qw(reftype blessed);
-
-BEGIN
-{
-    our $VERSION = '0.09000';
-    __PACKAGE__->mk_accessors('visit_method', 'extra_args');
-}
 
 sub _object { ref $_[0] ? $_[0] : $_[0]->new }