/ 
Syntax-Operator-ExistsOr-0.03
River stage zero No dependents
/ Syntax::Operator::ExistsOr

NAME

Syntax::Operator::ExistsOr - an infix operator sensitive to hash element existence

SYNOPSIS

On a suitable perl version:

use Syntax::Operator::ExistsOr;

sub func ( %args ) {
   my $count = $args{count} \\ 10;

   say "Count is ", $count // "<undef>";
}

func( count => 20 );
func();

func( count => undef );

DESCRIPTION

This module provides an infix operator that similar to the defined-or // core perl operator, but which cares about hash element existence rather than definedness.

Support for custom infix operators was added in the Perl 5.37.x development cycle and is available from development release v5.37.7 onwards, and therefore in Perl v5.38 onwards. The documentation of XS::Parse::Infix describes the situation in more detail.

While Perl versions before this do not support custom infix operators, they can still be used via XS::Parse::Infix and hence XS::Parse::Keyword. Custom keywords which attempt to parse operator syntax may be able to use these.

This module does not provide wrapper functions for the operators, as their inherent short-circuiting behaviour would appear confusing when expressed in function-like syntax.

OPERATORS

\\

my $value = $hash{$key} \\ EXPR;

The lefthand operand must be a hash element access (i.e. $hash{$key} or $href->{$key} for some expressions yielding a key and a hashref).

If the hash contains the given key then the operator yields its value (even if that value is undef). If the key does not exist in the hash, then the righthand operand will be evaluated in scalar context and its value returned.

This is a short-circuiting operator; if the hash does contain the key then the righthand side expression is not evaluated at all.

This operator parses at the same precedence level as the logical-or operators (|| and //).

existsor

do {
   $hash{$key} existsor EXPR;
};

Similar to the \\ operator but parses at the same level as the low-precedence or operator (or). This is unlikely to be very useful, as normally or would be used for value-less control flow. Such a potential use for this operator would be neater written

exists $hash{$key} or EXPR;

It is included largely for completeness.

AUTHOR

Paul Evans <leonerd@leonerd.org.uk>