Help for this page
sub foo { my ($foo,$bar,@baz) = @_;
public void set_foo(int bar) { ... } public void set_foo(int bar, int length) { ... }
sub foo { my ($bar,$baz,$quux) = @_; ... # now test $quux # do our stuff }
+-----+ +-----+ +-----+ +-----+ +-----+ | | AB | | BC | | CD | | DE | | | A |----->| B |----->| C |----->| D |----->| E | | | | | | | | | | | +-----+ +-----+ +-----+ +-----+ +-----+
sub assign_contract { my ($function_name, %contract) = @_; ... } return @results; }
use Test::More tests => 32; use Test::Contract 'contract_file';
package Foo::Bar; use Contract::File 'Foo::Bar::Contract'; # I don't quite like this
www.com | www.net | www.org
No recent polls found