use strict;
use warnings;
-use Test::More tests => 28 * 2;
+use Test::More tests => 30 * 2;
-my ($obj, $pkg, $cb, $x);
+my ($obj, $x);
{
local $/ = "####\n";
$obj = new newnew;
####
$obj = new newnew; # new newnew
+####
+new Hlagh (meh $x)
+####
+Hlagh->new(meh $x)