use strict;
use warnings FATAL => 'all';
use Test::More;
sub distance
{
length $_[0];
}
sub answer
{
$_ = $_[0];
return $1 + distance($_) if s/\(#:(\d+)\)/#/;
}
is(
answer('Life, the universe & everything? (#:3) Huh?'),
42,
);
done_testing;
####
use strict;
use warnings FATAL => 'all';
sub foo {
print "foo just happened\n";
40;
}
sub bar {
print "bar just happened\n";
2;
}
print foo + bar, "\n";
####
foo just happened
bar just happened
42