package Foo; use Scalar::Util qw/blessed reftype/; sub set_inherited { my ($self, $set, $val) = @_; } 1;