File Coverage

blib/lib/Data/MuForm/Model/Object.pm
Criterion Covered Total %
statement 3 10 30.0
branch 0 4 0.0
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 17 23.5


line stmt bran cond sub pod time code
1             package Data::MuForm::Model::Object;
2             # ABSTRACT: stub for Object model
3              
4 1     1   944 use Moo::Role;
  1         1  
  1         7  
5              
6             sub update_model {
7 0     0 0   my $self = shift;
8              
9 0           my $model = $self->model;
10 0 0         return unless $model;
11 0           foreach my $field ( $self->sorted_fields ) {
12 0           my $name = $field->name;
13 0 0         next unless $model->can($name);
14 0           $model->$name( $field->value );
15             }
16             }
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             Data::MuForm::Model::Object - stub for Object model
29              
30             =head1 VERSION
31              
32             version 0.03
33              
34             =head1 AUTHOR
35              
36             Gerda Shank
37              
38             =head1 COPYRIGHT AND LICENSE
39              
40             This software is copyright (c) 2017 by Gerda Shank.
41              
42             This is free software; you can redistribute it and/or modify it under
43             the same terms as the Perl 5 programming language system itself.
44              
45             =cut