Select Code to Download

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

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