[perl5.git] / dist / Safe / t / safenamedcap.t

BEGIN {
    if ($] < 5.010) {
	print "1..0\n";
	exit 0;
    }
    require Config;
    import Config;
    if ($Config{'extensions'} !~ /\bOpcode\b/) {
	print "1..0\n";
	exit 0;
    }
}

use strict;
use Test::More;
use Safe;
plan(tests => 1);

BEGIN { Safe->new }
"foo" =~ /(?<foo>fo*)/;
is( $+{foo}, "foo", "Named capture works" );
Commit	Line	Data
ad084f51 RGS	1	BEGIN {
	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
	14	use strict;
	15	use Test::More;
	16	use Safe;
	17	plan(tests => 1);
	18
	19	BEGIN { Safe->new }
	20	"foo" =~ /(?<foo>fo*)/;
	21	is( $+{foo}, "foo", "Named capture works" );