]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/data/mixed.d
Show more information when we couldn't run the tests data files
[perl/modules/indirect.git] / t / data / mixed.d
1 #!perl
2
3 use strict;
4 use warnings;
5
6 my $a = new P1;
7
8 {
9  no indirect;
10  my $b = new P2;
11  {
12   my $c = new P3;
13  }
14  {
15   use indirect;
16   my $d = new P4;
17  }
18  my $e = new P5;
19 }
20
21 my $f = new P6;
22
23 no indirect;
24
25 my $g = new P7;
26
27 use indirect;
28
29 my $h = new P8;