fields.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
my $w;
BEGIN {
chdir 't' if -d 't';
$w++;
return;
}
print $_[0];
};
}
use strict;
use warnings;
use fields '_b1';
package M;
sub m {}
# Test repeatability for when modules get reloaded.
sub fstr {
my $h = shift;
my @tmp;
my $v = $h->{$k};
}
$str;
}
my %expect = (
'Foo::Bar::Baz' => 'b1:1,b2:2,b3:3,foo:4,bar:5,baz:6',
);
my $testno = 0;
}
# Did we get the appropriate amount of warnings?
# A simple object creation and AVHV attribute access test
# We should get compile time failures field name typos
# Slices
eval '$ph = fields::phash("odd")';
#fields::_dump();
# check if fields autovivify
{
}
# check if fields autovivify
{
}