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;