package Foo; use Scalar::Util qw/blessed reftype/; sub set_inherited { my $self = shift; my $set = shift; my $val = shift; } 1;