1use Test::Base tests => 4; 2 3is scalar(blocks), 3, 4 'Does LAST limit tests to 3?'; 5 6run { 7 is(shift()->test, 'all work and no play'); 8} 9 10__DATA__ 11=== 12--- test: all work and no play 13 14=== 15--- test: all work and no play 16 17=== 18--- LAST 19--- test: all work and no play 20 21=== 22--- test: all work and no play 23 24=== 25--- test: all work and no play 26 27=== 28--- test: all work and no play 29 30=== 31--- test: all work and no play 32 33 34