Select Code to Download

#!/usr/bin/env perl

...

# Let's pretend this is not the end of our Big Enterprise Application
__END__

2018-09-01T21:45:48 example/04-lets-pretend.pl[2438] WARN # verifying 
+number 17
not ok 1 - No number is divisible by 17 (TODO only checked first ten)
...
# Looks like 1 tests out of 2 have failed
1..2
Contract failed at example/04-lets-pretend.pl line 43.