File Coverage

blib/lib/SQL/Wizard/Expr/Case.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package SQL::Wizard::Expr::Case;
2              
3 14     14   78 use strict;
  14         20  
  14         500  
4 14     14   57 use warnings;
  14         18  
  14         747  
5 14     14   63 use parent 'SQL::Wizard::Expr';
  14         19  
  14         57  
6              
7             sub new {
8 6     6 0 14 my ($class, %args) = @_;
9             # args:
10             # whens => [ { condition => ..., then => ... }, ... ]
11             # else => $expr (optional)
12             # operand => $expr (optional, for CASE ON)
13 6         18 $class->SUPER::new(%args);
14             }
15              
16             1;