use Test::More qw(no_plan); SKIP: { eval { require Test::Warn }; skip 'Test::Warn not found', 1 if $@; warning_like { warn "warning!" } qr(warning), 'basic warning'; }