]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/data/good.d
Show more information when we couldn't run the tests data files
[perl/modules/indirect.git] / t / data / good.d
1 #!perl
2
3 use strict;
4 use warnings;
5
6 my $obj;
7 my $pkg;
8 my $cb;
9
10 $obj = Hlagh1->new;
11 $obj = Hlagh2->new();
12 $obj = Hlagh3->new(1);
13 $obj = Hlagh4->new(q{foo}, bar => $obj);
14
15 $obj = Hlagh5   ->   new   ;
16 $obj = Hlagh6   ->   new   (   )   ;
17 $obj = Hlagh7   ->   new   (   1   )   ;
18 $obj = Hlagh8   ->   new   (   'foo'   ,   bar =>   $obj   );
19
20 $obj = Hlagh9
21             ->
22                           new   ;
23 $obj = Hlagh10  
24
25       ->   
26 new   ( 
27  )   ;
28 $obj = Hlagh11
29                                        ->   new   ( 
30                1   )   ;
31 $obj = Hlagh12   ->
32                               new   (   "foo"
33   ,    bar     
34                =>        $obj       );
35
36 $obj = Hlagh13->$cb;
37 $obj = Hlagh14->$cb();
38 $obj = Hlagh15->$cb($pkg);
39 $obj = Hlagh16->$cb(sub { 'foo' },  bar => $obj);
40
41 $obj = $pkg->new17   ;
42 $obj = $pkg  ->   new18  (   );
43 $obj = $pkg       
44            -> 
45         new19 ( $pkg );
46 $obj = 
47          $pkg
48 ->
49 new20        (     qr/foo/,
50       foo => qr/bar/   );
51
52 $obj 
53   =  
54 $pkg
55 ->
56 $cb
57 ;
58 $obj = $pkg    ->   ($cb)   ();
59 $obj = $pkg->$cb( $obj  );
60 $obj = $pkg->$cb(qw/foo bar baz/);
61
62 my $x;
63
64 $obj = new25 { $x };
65 $obj = new26
66   {
67      $x  }
68   ();
69 $obj = new27 {
70   $x  } qq/foo/;
71 $obj = new28
72    {
73       $x
74     }(qw/bar baz/);
75
76 sub potato29;
77 sub potato30;
78
79 potato29 $x;
80 potato30 $x, 1 , 2;
81
82 print STDOUT "bananananananana\n";
83 print $x "oh hai\n";