#!/usr/bin/env perl
#use strict;
#use warnings;
use lib qw<blib/lib blib/arch>;
sub Hlagh::new { my $class = shift; bless { }, ref($class) || $class ; }
sub foo { shift; print "foo $_[0]\n" }
sub bar { print "wut\n"; }
my $bar = bless { }, 'main';
my %h;
my $x = 1;
no indirect;
$x = new Hlagh 1, 2, 3;
my $y = slap $x "what", 5;
$h{foo} = 12;
use indirect;
foo 4, 5;
no indirect;
my $pkg = 'Hlagh';
my $cb = 'new';
foo(6, 7, 8); my $y = new $_ qr/bar/;
my $y = Hlagh->new;
$y = new Hlagh;
my $z = foo meh, 1, 2;
$y = meh $x, 7;
$y = foo(3, 4);
$y = Hlagh->new();
$y = Hlagh->new(1, 2, 3);
$y = Hlagh->$cb;
$y = new Hlagh;
$y = new Hlagh 1, 2, 3;
$y =
new
Hlagh
1 ,
2, 3;
$y = new $pkg;
$y = new $pkg 'what';
$y = $pkg->new;
$y = $pkg->new(1, 2, 3);
$y = $pkg->$cb;
$y = new(Hlagh);
$y = new { Hlagh };
$y = new { $y };
$y = Hlagh
-> new
( 1 , 2, 3);
$y = Hlagh
-> $ cb
( 1 , 2, 3);
$y = new Hlagh $,;
$y = new Hlagh ',';
print { $^H{dongs} } 'bleh';
print STDERR 1;
print STDERR 'what';
print STDERR q{wat};
my $fh;
print $fh 'dongs';