#!/usr/bin/env perl

use Data::Dumper;
use strict;
use warnings;

my $yada=Yada->new();
my $ref=$yada->can('yada');
$Data::Dumper::Deparse=1;
warn Data::Dumper->Dump([\$ref],[qw(*ref)]),' ';

package Yada;

use strict;
use warnings;

sub new {
    my ($class,@args)=@_;

    return bless {},$class;
     };

sub yada {
    my $self=shift;
    warn Data::Dumper->Dump([\$self],[qw(*self)]),' ';
     };

##</code><code>##

c:\Users\Clueless>perl can.pl
$ref = \sub {
             package Yada;
             use warnings;
             use strict;
             my $self = shift();
             warn 'Data::Dumper'->Dump([\$self], ['*self']), ' ';
         };
  at can.pl line 10.