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;