Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
ok( $master_ref->{ four  } eq 'forth',  'four' );

done_testing;

Select or download this

Useless use of private variable in void context at appendhashref.pl li
+ne 18.
Before $VAR1 = {
...
ok 4 - four
1..4
# Looks like you failed 2 tests of 4.