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.