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