This is an example of using the auto box function.
#!/usr/bin/perl use strict; use warnings; package MyInt; sub is_odd { my $int = shift; return ($int%2); } package main; use autobox INTEGER => 'MyInt'; print "42: ".42->is_odd."\n"; print "43: ".43->is_odd."\n"; print "44: ".44->is_odd."\n";
Simon source share