- or download this
unless( $a ne $b ) {
- or download this
if( $a eq $b ) {
# or
if( $a ne $b ) {
- or download this
croak( "You must pass foo() a non-empty array ref" )
unless $arg && 'ARRAY' eq ref($arg) && 0 < @$arg;
- or download this
croak( "You must pass foo() a non-empty array ref" )
if ! $arg || 'ARRAY' ne ref($arg) || 0 == @$arg;
- or download this
croak( "You must pass foo() a non-empty array ref or hash ref" )
unless 'ARRAY' eq ref($arg) && 0 < @$arg
|| 'HASH' eq ref($arg) && 0 < keys %$arg;
- or download this
croak( "You must pass foo() a non-empty array ref or hash ref" )
if( ( 'ARRAY' ne ref($arg) || 0 == @$arg )
&& ( 'HASH' ne ref($arg) || 0 == keys %$arg )
);
- or download this
croak( "You didn't pass foo() a reference" )
if ! $arg || ! ref $arg;
...
" ref (must be ARRAY or HASH)",
);
}