use warnings;
use strict;

use Mock::Sub;

my $m = Mock::Sub->new;

sub foo ($$$){
    return undef;
}

my $foo_sub = $m->mock('foo');