samples/indirect.pl

   1 #!/usr/bin/env perl
   2
   3 #use strict;
   4 #use warnings;
   5
   6 use lib qw{blib/lib blib/arch};
   7
   8 sub Hlagh::new { my $class = shift; bless { }, ref($class) || $class ; }
   9
  10 sub foo { shift; print "foo $_[0]\n" }
  11 sub bar { print "wut\n"; }
  12 my $bar = bless { }, 'main';
  13
  14 my %h;
  15 my $x = 1;
  16
  17 no indirect;
  18
  19 $x = new Hlagh 1, 2, 3;
  20 my $y = slap $x "what", 5;
  21 $h{foo} = 12;
  22
  23 use indirect;
  24
  25 foo 4, 5;
  26
  27 no indirect;
  28
  29 my $pkg = 'Hlagh';
  30 my $cb = 'new';
  31
  32 foo(6, 7, 8); my $y = new $_ qr/bar/;
  33
  34 my $y = Hlagh->new;
  35 $y =          new Hlagh;
  36 my $z = foo meh, 1, 2;
  37 $y = meh $x, 7;
  38 $y = foo(3, 4);
  39 $y = Hlagh->new();
  40 $y = Hlagh->new(1, 2, 3);
  41 $y = Hlagh->$cb;
  42 $y =      new Hlagh;
  43 $y =                new Hlagh 1, 2, 3;
  44 $y =
  45   new
  46      Hlagh
  47         1  ,
  48                 2,        3;
  49 $y = new $pkg;
  50 $y = new $pkg 'what';
  51 $y = $pkg->new;
  52 $y = $pkg->new(1, 2, 3);
  53 $y = $pkg->$cb;
  54 $y = new(Hlagh);
  55 $y = new { Hlagh };
  56 $y = new { $y };
  57 $y = Hlagh
  58         ->        new
  59            ( 1     ,       2,    3);
  60 $y = Hlagh
  61         ->        $ cb
  62            ( 1     ,       2,    3);
  63 $y = new Hlagh $,;
  64 $y = new Hlagh ',';
  65 print { $^H{dongs} } 'bleh';
  66 print STDERR 1;
  67 print STDERR 'what';
  68 print STDERR q{wat};
  69 my $fh;
  70 print $fh 'dongs';