sub contains
{
    my $self = shift;
    my %args = @_ == 1 ? ( date => shift ) : @_;

    $args{date} ||= 'today';
    $args{style} ||= $self->{_style};

    croak 'Unknown parameter present' if scalar(keys(%args)) > 2;

    ...
}