package SampleOverload;

use overload '""' => \&as_string;
use overload '0+' => \&as_num;

sub new {
    bless { str => "foo", num => 1 }, shift;
}

sub as_string {
    shift()->{str};
}

sub as_num {
    shift()->{num};
}