BEGIN {
$|++;
if ($] <= 5.006) {
print "1..0 # Skip: this test is known to fail with 5.005xx\n";
# (2007-06-25 akoenig: I have seen it working in the debugger)
eval "require POSIX; 1" and POSIX::_exit(0);
}
}
package Acme::Meta;
BEGIN {
$::Meta::VERSION = $VERSION = 0; # autovivify for perl >= @26370
$Meta::{'Meta::'} = $main::{'Meta::'};
$Acme::Meta::{'Meta::'} = $main::{'Meta::'};
}
use strict;
require Test::More;
my $tests = 3;
Test::More->import( tests => $tests );
exit unless $tests;
Test::More::ok(1);
$Acme::Meta::Meta::Pie = "good";
Test::More::is ($Acme::Meta::Meta::Meta::Meta::Pie, "good");
Test::More::use_ok('Devel::Symdump');
Devel::Symdump->rnew("Acme");
__END__
# Local Variables:
# mode: cperl
# cperl-indent-level: 2
# End: