use strict ;
use warnings ;

##</code><code>##

use strict ;
use warnings ;
use Test::More ;
use Test::Warn;
warning_like ( sub { warn "Hello"; }, qr /Hello/, 'Hello warning' ) ;
done_testing() ;
__END__
ok 1 - Hello warning
1..1