Select Code to Download

#!/usr/bin/env perl
use warnings; use strict;
...
$p->Decimal;
$p->Float;

> perl multiuse.pl
...
  Derived::Float(Derived=HASH(0x8e5648)) called at multiuse.pl line 56

Float:q=Derived{five=>5, four=>"Float: Derived 4.4", one=>1.20, seven=
+>7.20, three=>"Float: 3.3", two=>2.20}