File Coverage

blib/lib/EntityModel/Query/UpdateField.pm
Criterion Covered Total %
statement 17 19 89.4
branch 1 4 25.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 22 27 81.4


line stmt bran cond sub pod time code
1             package EntityModel::Query::UpdateField;
2             {
3             $EntityModel::Query::UpdateField::VERSION = '0.102';
4             }
5             use EntityModel::Class {
6 16         162 '_isa' => [qw(EntityModel::Query::Field)],
7             'value' => 'string',
8 16     16   83 };
  16         31  
9 16     16   13924 no if $] >= 5.017011, warnings => "experimental::smartmatch";
  16         35  
  16         118  
10              
11             =head1 NAME
12              
13             EntityModel::Query::UpdateField - field to be updated in an update statement
14              
15             =head1 VERSION
16              
17             version 0.102
18              
19             =head1 SYNOPSIS
20              
21             See L.
22              
23             =head1 DESCRIPTION
24              
25             See L.
26              
27             =cut
28              
29             =head1 METHODS
30              
31             =cut
32              
33             sub new {
34 2     2 1 153 my $class = shift;
35 2         8 my $self = bless { }, $class;
36 2         3 my $args = shift;
37 2         3 my @spec;
38 2 50       8 if(ref $args ~~ 'HASH') {
    0          
39 2         8 push @spec, %$args;
40             } elsif(ref $args ~~ 'ARRAY') {
41 0         0 push @spec, @$args;
42             } else {
43 0         0 die "no idea what $args is";
44             }
45              
46 2         7 while(@spec) {
47 4         35 my $k = shift(@spec);
48 4         7 my $v = shift(@spec);
49 4         21 $self->$k($v);
50             }
51 2         27 return $self;
52             }
53              
54             1;
55              
56             __END__