#!/usr/bin/perl --
use strict; use warnings;

my $funny = NumStr->new( num => 12, str => "pancakes" );
printf "Polly wanna %s every %d days \n", $funny, $funny;
printf "Polly wanna %s every %d days \n", $funny, 0+$funny;


BEGIN {
    package NumStr;{
        use overload "0+" => \#
        use overload '""' => \&str;
        use overload "fallback" => 1;
        sub new {
            my $class = shift;
            bless { @_ }, $class;
        }
        sub num {
            return shift->{num};
        }
        sub str {
            return shift->{str};
        }
        $INC{'MyDo.pm'}=__FILE__;
    }
}