package simple_obj;

use Class::Flyweight::Lite::Core qw/attrib/;

sub add_attrib { my $self = shift }
}

sub get_addr { \&add_attrib }

package main;

use warnings;
use strict;
use Test::More;

diag 'simple_obj->get_addr():        ' . simple_obj->get_addr();
diag 'simple_obj->can(qw/get_addr/): ' . simple_obj->can(qw/get_addr/);
diag '\&simple_obj::get_addr:        ' . \&simple_obj::get_addr;

##</code><code>##

.
.
# simple_obj->get_addr():        CODE(0x8e9da2c)
# simple_obj->can(qw/get_addr/): CODE(0x8ff8bd8)
# \&simple_obj::get_addr:        CODE(0x8ff8bd8)
.
.