Help for this page

Select Code to Download

Select or download this

use Type::Tie;
use Types::Common::Numeric qw(PositiveOrZeroInt);

tie my $x, PositiveOrZeroInt;