package BaseClass;
use Class::Std;
{
    sub as_num :NUMERIFY  { return 42 }
#    sub as_num { return 42 }
#    use overload (q{0+} => 'as_num', fallback=>1);
    1;
}