my $WARN;
local $SIG{__WARN__} = sub { $WARN = "@_" };
.
.
my $WARN = '';
some_op();
like($WARN, '/^$/', 'some_op() - no warnings');