
No such thing as a small change
	PerlMonks

Re^6: inheritance: constructors (unless)

by tye (Cardinal)

on Dec 03, 2012 at 15:41 UTC ( #1006898=note: print w/ replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this
```
unless( $a ne $b ) {
```

Select or download this

if( $a eq $b ) {

# or

if( $a ne $b ) {

Select or download this

    croak( "You must pass foo() a non-empty array ref" )
        unless  $arg  &&  'ARRAY' eq ref($arg)  &&  0 < @$arg;

Select or download this

    croak( "You must pass foo() a non-empty array ref" )
        if  ! $arg  ||  'ARRAY' ne ref($arg)  ||  0 == @$arg;

Select 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;

Select 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  )
        );

Select or download this

    croak( "You didn't pass foo() a reference" )
        if  ! $arg  ||  ! ref $arg;
...
            " ref (must be ARRAY or HASH)",
        );
    }

Node Status^?

node history
Node Type: note [id://1006898]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (10)

As of 2013-06-19 09:37 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

How many continents have you visited?

Results (653 votes), past polls