#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Math::BigFloat;

my $n = Math::BigFloat->new(123);

say $n;
say 'REF $n: ', ref $n;

eval {
    say $n->digit(-1);
};
warn $@ if $@;

say '$n->{value} EXISTS: ', exists $n->{value} ? 'Yes' : 'No';
say '$n->{value} DEFINED: ', defined $n->{value} ? 'Yes' : 'No';

eval {
    $n->{value} = [123];
    say '$n->digit(-1): ', $n->digit(-1);
    say '$n->digit(1):  ', $n->digit(1);
    say '$n->digit():   ', $n->digit();
};
warn $@ if $@;