sub new {my $f; bless \$f => shift; $f -> set(@_) if @_; $f}

##</code><code>##

my $fig_1 = MyNumber -> new (get_numeric_value_from_xml (...));