
There's more than one way to do things
	PerlMonks

Re^6: inheritance: constructors (unless)

by tye (Sage)

on Dec 03, 2012 at 15:41 UTC ( [id://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)",
        );
    }

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others scrutinizing the Monastery: (3)

As of 2024-04-25 16:25 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found