| Subject: | Improve TODO finding code |
package Foo;
use Test::More;
package Bar;
use Test::More tests => 1;
use Foo;
TODO: {
local $TODO = 'because';
fail();
}
The TODO diagnostics will go to STDERR because _print_diag() does not
think its TODO. exported_to() points at Foo.