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