sub connect() {
  my $self = shift;
  my ($ip, $port) = @_;
  # more code
}


##</code><code>##

Wrong number of parameters: expected 0, got 3.
Foo::connect('Foo=HASH(0xca3df0)', $ipaddr, $portno) called at test_connect.pl line 10