Select Code to Download

# -*- perl -*-

...

my $list = $object->foundation_list();
eq_array( $list );

$object->foundation_list returns, and this may be important, an arrayr
+ef containing the list elements.  that's been verified (with Data::Du
+mper ... it's an array of hashrefs intended to be passed into some op
+tions menus.)
<p>
but ... the 'eq_array' test is failing .. sort of:
...
t/005_listall......ok                                                 
+       
All tests successful.
Files=5, Tests=17,  0 wallclock secs ( 0.28 cusr +  0.06 csys =  0.34 
+CPU)

ok( ref( $list ) eq 'ARRAY', 'returned a list' );
ok( scalar( @$list ), 'returned a populated list' );
ok( ref( $list->[0] ) eq 'HASH', 'first element is a hashref ...' );