1*898184e3SsthenBEGIN { 2*898184e3Ssthen if ($] < 5.010) { 3*898184e3Ssthen print "1..0\n"; 4*898184e3Ssthen exit 0; 5*898184e3Ssthen } 6*898184e3Ssthen require Config; 7*898184e3Ssthen import Config; 8*898184e3Ssthen if ($Config{'extensions'} !~ /\bOpcode\b/) { 9*898184e3Ssthen print "1..0\n"; 10*898184e3Ssthen exit 0; 11*898184e3Ssthen } 12*898184e3Ssthen} 13*898184e3Ssthen 14*898184e3Ssthenuse strict; 15*898184e3Ssthenuse Test::More; 16*898184e3Ssthenuse Safe; 17*898184e3Ssthenplan(tests => 1); 18*898184e3Ssthen 19*898184e3SsthenBEGIN { Safe->new } 20*898184e3Ssthen"foo" =~ /(?<foo>fo*)/; 21*898184e3Ssthenis( $+{foo}, "foo", "Named capture works" ); 22