Select Code to Download

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