File Coverage

blib/lib/LittleORM/Db/Field/Default.pm
Criterion Covered Total %
statement 6 10 60.0
branch 0 2 0.0
condition 0 3 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 19 42.1


line stmt bran cond sub pod time code
1 1     1   3 use strict;
  1         1  
  1         33  
2              
3             package LittleORM::Db::Field::Default;
4              
5 1     1   6 use Moose;
  1         1  
  1         8  
6              
7             sub appropriate_op
8             {
9 0     0 0   my ( $self, $op, $val ) = @_;
10              
11 0 0 0       if( ( $op eq '=' ) and ( not defined $val ) )
12             {
13 0           $op = 'IS';
14             }
15              
16 0           return $op;
17             }
18              
19             42;