Changeset 25722

Timestamp:

12/03/08 02:24:41 (5 weeks ago)

Author:

nekokak

Message:

Sub::Installをやめてみる

Location:

lang/perl/DBIx-Skinny/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/DBIx/Skinny/Row.pm (modified) (2 diffs)

lang/perl/DBIx-Skinny/trunk/Makefile.PL

@@ -9 +9 @@
 requires 'Class::Accessor::Fast';
 requires 'DBI';
-requires 'Sub::Install';
 requires 'Class::Trigger';
 requires 'SQL::Parser';

lang/perl/DBIx-Skinny/trunk/lib/DBIx/Skinny/Row.pm

@@ -4 +4 @@
 use base 'Class::Accessor::Fast';
 use Carp;
-use Sub::Install qw/install_sub/;
 use Data::Dumper;
 
@@ -20 +19 @@
         (my $col = lc $alias) =~ s/.+\.(.+)/$1/o;
         next if $class->can($col);
-        install_sub({
-            code => $self->_razy_inflate_data($col),
-            as   => $col
-        });
+        no strict 'refs'; ## no critic
+        *{"$class\::$col"} = $self->_razy_inflate_data($col);
     }