| Subject: | &$accessor_cref does not work correctly |
Hi!
This work looks very promising, and with several small tweaks could be transparently/optionally added to Class::Accessor::Grouped (and thus to DBIC). Preliminary testing looks promising as well.
The main problem:
perl -e '
package Foo;
use warnings;
use strict;
use Class::Accessor::Inherited::XS (
inherited => "someaccessor"
);
sub wrapper {
my $cref = __PACKAGE__->can("someaccessor");
# ok
#$cref->(@_);
# fails
&$cref
};
wrapper()
'
Cheers!