use Test::Warn;

warning_is { testsub("complain") } qr/nag/, "Gives a specific warning";
warning_is { testsub("quiet") undef, "No warnings given";