]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/lib/indirect/TestRequired5/a0.pm
projects / perl / modules / indirect.git / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Add a regression test for a bug that appeared while fixing RT #50570 but got re-fixed...
[perl/modules/indirect.git] / t / lib / indirect / TestRequired5 / a0.pm
1 package indirect::TestRequired5::a0;
2 no indirect ":fatal";
3 use indirect::TestRequired5::b0;
4 sub error {
5  local $@;
6  indirect::TestRequired5::b0->get;
7  return $@;
8 }
9 1;
A Perl pragma to lexically warn about using the indirect object syntax.