Select Code to Download

use strict;
use warnings;

...

print "###### Directly printing number from capture variable \$1 #####
+\n";
$obj->regex_number_then_print('1.7');

plxc16479> tmp12.pl
###### Directly printing number #####
Yep.  (1.7) is a number.
...
        MooseX::Method::Signatures::Meta::Method::validate('MooseX::Me
+thod::Signatures::Meta::Method=HASH(0x1cbefd0)', 'ARRAY(0x1cbf330)') 
+called at /nfs/pdx/disks/nehalem.pde.077/perl/lib64/site_perl/MooseX/
+Method/Signatures/Meta/Method.pm line 151
        Foo::print_number('Foo=HASH(0x63d490)', 1.7) called at tmp12.p
+l line 15
        Foo::regex_number_then_print('Foo=HASH(0x63d490)', 1.7) called
+ at tmp12.pl line 41