sub new {
    my $class = shift;
    croak "incorrect number of arguments" if @_ % 2;
    ...
}

##</code><code>##

print "$foo is divisible by $bar" if $foo % $bar == 0;