use 5.028;
use Venus qw(catch);
use Venus::Number;
my $one = Venus::Number->new(1);
my $two = Venus::Number->new(2);

say "one = ", $one;
# one = 1

say "one = $one";
# Argument "one = " isn't numeric in addition (+) ....
# 10     <---- Venus::Number objects don't interpolate

print "two = ";
$two->print_string;
print "\n";
# two = 2 <--- Methods don't interpolate either

# Arithmetics 
my $three = $one + $two;

say "three = ", $three;
# three = 3 <---- Now it does interpolate

print "three = ";
$three->print_string;
print "\n";
# Can't locate object method "print" via package "3"
#           <---- but has lost its blessing

# Strings
use Venus::String;
my $just    = Venus::String->new('Just');
my $another = Venus::String->new('another');
my $perl    = Venus::String->new('Perl');
my $hacker  = Venus::String->new('hacker');
say "$just $another $perl $hacker";
# ----> hackerPerlanotherJust