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