...
my $CALC = 'Math::BigInt::Calc';
...
sub digit {
    my ($self,$x,$n) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
    $n = $n->numify() if ref($n);
    $CALC->_digit($x->{value},$n||0);
}