my ($self);
$self = bless( {}, 'Foo' );
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           $self->suba;
         };

my ($self);
$self = bless( {}, 'Foo' );
$CODE1 = sub {
           package Foo;
           use warnings;
           use strict 'refs';
           $self->subb;
         };