Lines Matching refs:message

354     my ($hash, $placebo, $new, $mapping, $message) = @_;
356     print "# $message\n";
508   my ($test_sub, $key, $keys, $message, @other) = @_;
517   &$test_sub (\%hash, $key, $printable, $message, @other);
518   &$test_sub (\%tiehash, $key, $printable, "$message tie", @other);
522   my ($hash, $key, $printable, $message) = @_;
524   ok (exists $hash->{$key}, "hv_exists_ent present$message $printable");
526       "hv_exists present$message $printable");
530   my ($hash, $key, $printable, $message) = @_;
532   ok (!exists $hash->{$key}, "hv_exists_ent absent$message $printable");
534       "hv_exists absent$message $printable");
538   my ($hash, $key, $printable, $message) = @_;
547       "hv_delete_ent present$message $printable");
548   is (delete $copy->{$key}, $key, "hv_delete_ent present$message $printable");
550       "hv_delete_ent present$message $printable");
553       "hv_delete present$message $printable");
555       "hv_delete present$message $printable");
557       "hv_delete present$message $printable");
561   my ($hash, $key, $printable, $message) = @_;
569   is (delete $copy->{$key}, undef, "hv_delete_ent absent$message $printable");
572       "hv_delete absent$message $printable");
576   my ($hash, $key, $printable, $message, $defaults) = @_;
601       "hv_store_ent$message $printable");
602   ok (brute_force_exists ($h1, $key), "hv_store_ent$message $printable");
604       "hv_store$message $printable");
605   ok (brute_force_exists ($h2, $key), "hv_store$message $printable");
609   my ($hash, $key, $printable, $message) = @_;
611   is ($hash->{$key}, $key, "hv_fetch_ent present$message $printable");
613       "hv_fetch present$message $printable");
617   my ($hash, $key, $printable, $message) = @_;
619   is ($hash->{$key}, undef, "hv_fetch_ent absent$message $printable");
621       "hv_fetch absent$message $printable");