]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/data/bad.d
Show more information when we couldn't run the tests data files
[perl/modules/indirect.git] / 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