Help for this page

Select Code to Download


  1. or download this
    use Test::NoWarnings;
use Test::Warn;

warning_like ( sub { $obj->get_member_id_by_name('smith'); }, qr /than
+/, 'warns when more than one name returned' );
  2. or download this
    my $had_no_warnings;
if (had_no_warnings) { 
...
}
warning_like ( sub { $obj->get_member_id_by_name('smith'); }, qr /than
+/, 'warns when more than one name returned' );
clear_warnings if $had_no_warnings;