Help for this page
#!/usr/bin/perl ... my $thing = $cup_holder->things->pop; is ($cup_holder->things->length, 4, "there should be four things in th +e cupboard"); is ($thing, "red", "the cup should be red");
$ prove -v t/test_holder...... ... All tests successful. Files=1, Tests=6, 3 wallclock secs ( 0.01 usr 0.00 sys + 2.52 cusr + 0.03 csys = 2.56 CPU) Result: PASS