Select Code to Download

use Types::Standard qw( Int );

if ( not Int->check($var) ) {
   die "It's supposed to be an integer!\n";
}

use Types::Standard qw( Int );

Int->assert_valid($var);

use Types::Standard qw( Object Num );
sub transfer_money {
...
   
   ...;
}

use feature qw( state );  # enable the `state` feature from Perl 5.10+
use Types::Standard qw( Object Num );
...
   
   ...;
}

perl -MTypes::Standard=-all -le'print Int->inline_check(q($val))'