sub can {
my $self = shift;
return $self->SUPER::can(@_) || do {
- my ($method) = @_; warn $method;
+ my ($method) = @_;
if (my $code = $self->_user->can($method)) {
sub { shift->_user->$code(@_) }
} elsif (my $accessor =
Matt S Trout (mst) <mst@shadowcat.co.uk>
+(fixes wrt can/AUTOLOAD sponsored by L<http://reask.com/>)
+
=head1 LICENSE
Copyright (c) 2007-2010 the aforementioned authors. All rights
ok(my $meth = $o->can('exists'), 'can returns true');
-::Dwarn $meth;
-
is($o->$meth, $message, 'can returns right coderef');
done_testing;