1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/env perl use strict; use warnings; use Test::More; use Fun; is(foo(), "FOO"); fun foo { "FOO" } done_testing;