Cond::Expr - Conditionals as expressions
version 0.05
my %args = (
foo => 'bar',
(cond
($answer == 42) { answer => $answer }
($answer) { wrong_answer => 1 }
otherwise { no_answer => 1 }
),
);
This module implements a Lisp-alike cond
control structure.
given
/when
given
is a statement, not an expression, and is therefore not readily usable as part of an expression unless its use is wrapped within ado
block, which is cumbersome.Additionally, this module avoids all the, possibly unwanted, side effects
given
/when
and its underlying smart matching mechanism happen to impose.if
/elsif
/else
Similar to
given
,if
is a statement, needing special care in order to be useful as part of a surrounding expression.Nested ternary
?:
Using nested ternary
?:
expressions, such as inmy %args = ( foo => 'bar', ( ($answer == 42) ? (answer => $answer) : ($answer) ? (wrong_answer => 1) : (no_answer => 1) ), );
can be used to achieve functionality similar to what this module provides. In fact, the above use of
?:
is exactly what the "SYNOPSIS" for this module will compile into. The main difference is thecond
syntax provided by this module being easier on the eye.
Takes a set of test/expression pairs. It evaluates each test one at a time. If a test returns logical true, cond
evaluates and returns the value of the corresponding expression and doesn't evaluate any of the other tests or expressions. When none of the provided tests yield a true value, ()
or undef
is returned in list and scalar context, respectively.
Due to the particular XS interfaces being used, this module requires a minimum Perl version of 5.014.
Bugs may be submitted through the RT bug tracker (or bug-Cond-Expr@rt.cpan.org).
Florian Ragwitz <rafl@debian.org>
Karen Etheridge <ether@cpan.org>
David Mitchell <davem@iabyn.com>
Olivier Mengué <dolmen@cpan.org>
Sawyer X <xsawyerx@cpan.org>
This software is copyright (c) 2012 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.