Select Code to Download

use strict;
use warnings;
...
ok( ! defined $warning, 'recorded warning is cleared' );
is( 0+no_replacement(), 0, 'no replacement is zero' );
ok( ! defined $warning, 'no warning is generated' );