t/data/bad.d

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $obj;
   7 my $pkg;
   8 my $cb;
   9
  10 $obj = new Hlagh1;
  11 $obj = new Hlagh2();
  12 $obj = new Hlagh3(1);
  13 $obj = new Hlagh4(1, 2);
  14
  15 $obj = new        Hlagh5            ;
  16 $obj = new        Hlagh6     (      )      ;
  17 $obj = new        Hlagh7     (      1        )     ;
  18 $obj = new        Hlagh8     (      1        ,       2        )     ;
  19
  20 $obj = new
  21                       Hlagh9
  22         ;
  23 $obj = new
  24                                        Hlagh10     (
  25                   )      ;
  26 $obj =
  27               new
  28     Hlagh11     (      1
  29             )     ;
  30 $obj =
  31 new
  32 Hlagh12
  33                    (      1        ,
  34                 2        )     ;
  35
  36 my $x;
  37 $obj = new13 $x;
  38 $obj = new14 $x();
  39 $obj = new15 $x('foo');
  40 $obj = new16 $x qq{foo}, 1;
  41 $obj = new17 $x qr{foo\s+bar}, 1 .. 1;
  42 $obj = new18 $x(qw/bar baz/);
  43
  44 $obj = new19
  45           $_;
  46 $obj = new20
  47              $_     (        );
  48 $obj = new21 $_      qr/foo/  ;
  49 $obj = new22 $_     qq(bar baz);
  50
  51 potato23 $x;
  52 potato24 $x, 1, 2;
  53
  54 $obj = Hlagh25Hlagh25 Hlagh25;
  55 $obj = Hlagh26Hlagh26 Hlagh26; # Hlagh26Hlagh26 Hlagh26
  56 $obj = new27 new27new27;
  57 $obj = new28 new28new28; # new28 new28new28