Branch Coverage

blib/lib/Regexp/Copy.pm

Criterion	Covered	Total	%
branch	1	2	50.0

line	true	false	branch
24	0	2	if (uc ref $_ eq ref $_ and not $_->isa('Regexp'))