Test::Warn

Alternatively, use Test::Warn.

use Test::Warn;
use Test::More tests => 2;

warning_is { 
    is( undef, undef,   'undef is undef' ) 
} '  no warnings'

| toc |