Blob Blame History Raw
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: