use strict;
use warnings;

package TestClass;

sub _has_params {
    return @_ > 1 ? scalar(@_) - 1 : 0;
}


sub mytest {
    die "@_\n" if &_has_params;
    print "We're ok.\n";
}

1;

package main;

print "Testing with no parameters.\n\t";
TestClass->mytest( );

print "Testing with one parameter.\n\t";
TestClass->mytest( "Hello" );