use strict;
use warnings;
-
+use Sub::Name ();
use Storable 'dclone';
use base qw/DBIx::Class::Row/;
{
no strict 'refs';
no warnings 'redefine';
- *{$class .'::'. $name} = $accessor;
+ my $fullname = join '::', $class, $name;
+ *$fullname = Sub::Name::subname $fullname, $accessor;
}
$our_accessors{$accessor}++;