Select Code to Download

use overload ("0+" => 'value');
sub value {
    my $self = shift;
    exists $self->{'-value'} ? $self->{'-value'} : undef;
}

sub gen_id { sprintf "%U", $_[1] }

package My;

...
package main;
my $var = My->new;
print int($var);