Select Code to Download

package src::bo::behaviour::FlyBehaviour;

...
}

1;

package src::bo::behaviour::QuackBehaviour;

...
}

1;

package src::bo::behaviour::fly::CanFly;

...
}

1;

package src::bo::behaviour::fly::CannotFly;

...
}

1;

package src::bo::behaviour::quack::CanQuack;

...
}

1;

package src::bo::behaviour::quack::CannotQuack;

...
}

1;

package src::bo::behaviour::quack::CanSqeek;

...
}

1;

package src::bo::Duck;

...
}

1;

package src::bo::Rubber;

...
}

1;

package src::bo::Whistle;

...
}

1;

#!/usr/bin/perl

...

$rubber->setColor("red");
is ( $rubber->getColor(), "red", "rubber is a red color" );

bash-3.00$ prove -v -r
t/bo/Duck....ok 1 - A duck object
...
ok
All tests successful.
Files=1, Tests=13,  1 wallclock secs ( 0.28 cusr +  0.35 csys =  0.63 
+CPU)