Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Koschei's scratchpad

by Koschei (Monk)
on Jun 13, 2004 at 10:26 UTC ( [id://363784] : scratchpad . print w/replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; use Test::More qw/no_plan/; ok $self->gf->nice => "Yahoo!"; ok ($self->accommodation->rent != NOT_TOO_BAD) => "Yahoo!"; ok defined($job), "Yahoo!"; ok ($job->money >= $GOOD_PAY), "Yahoo!"; TODO: { ok defined($plan), "Must have plan."; ok ( @books > 2 => "Must get around to writing books."; }
yada, yada, yada.