File Coverage

blib/lib/Cond/Expr.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

use strict;
use warnings;

package Cond::Expr; # git description: 0.04-25-gb42799c
# ABSTRACT: Conditionals as expressions

our $VERSION = '0.05';

use Sub::Exporter -setup => {
    exports => ['cond'],
    groups  => { default => ['cond'] },
};

use Devel::CallParser;
use Devel::CallChecker;

use XSLoader;

XSLoader::load(
    __PACKAGE__,
    $VERSION,
);

#pod =head1 SYNOPSIS
#pod
#pod     my %args = (
#pod         foo => 'bar',
#pod         (cond
#pod             ($answer == 42) { answer => $answer }
#pod             ($answer)       { wrong_answer => 1 }
#pod             otherwise       { no_answer    => 1 }
#pod         ),
#pod     );
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module implements a Lisp-alike C control structure.
#pod
#pod =head2 How is this different from…
#pod
#pod =over 4
#pod
#pod =item * C/C
#pod
#pod C is a statement, not an expression, and is therefore not readily usable
#pod as part of an expression unless its use is wrapped within a C block, which
#pod is cumbersome.
#pod
#pod Additionally, this module avoids all the, possibly unwanted, side effects
#pod C/C and its underlying smart matching mechanism happen to impose.
#pod
#pod =item * C/C/C
#pod
#pod Similar to C, C is a statement, needing special care in order to be
#pod useful as part of a surrounding expression.
#pod
#pod =item * Nested ternary C
#pod
#pod Using nested ternary C expressions, such as in
#pod
#pod   my %args = (
#pod       foo => 'bar',
#pod       (
#pod             ($answer == 42) ? (answer => $answer)
#pod           : ($answer)       ? (wrong_answer => 1)
#pod           :                   (no_answer => 1)
#pod       ),
#pod   );
#pod
#pod can be used to achieve functionality similar to what this module provides. In
#pod fact, the above use of C is exactly what the L for this module
#pod will compile into. The main difference is the C syntax provided by this
#pod module being easier on the eye.
#pod
#pod =back
#pod
#pod =func C
#pod
#pod Takes a set of test/expression pairs. It evaluates each test one at a time. If a test
#pod returns logical true, C evaluates and returns the value of the corresponding
#pod expression and doesn't evaluate any of the other tests or expressions. When none of the
#pod provided tests yield a true value, C<()> or C is returned in list and
#pod scalar context, respectively.
#pod
#pod =head1 PERL REQUIREMENTS
#pod
#pod Due to the particular XS interfaces being used, this module requires a minimum
#pod Perl version of 5.014.
#pod
#pod =cut

1;

__END__