Though a roundabout way to accomplish the desired goal would be (with the questionable bonus of making sure '_accessable' is a valid method):

my $cref = $self->can('_accessable')
 or croak "Nothing is accessable!";
$cref->($self, $1)
 or croak "No such attribute: $1";
[download]