File Coverage

blib/lib/EntityModel/Definition/Perl.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 1 1 100.0
total 10 10 100.0


line stmt bran cond sub pod time code
1             package EntityModel::Definition::Perl;
2             {
3             $EntityModel::Definition::Perl::VERSION = '0.102';
4             }
5             use EntityModel::Class {
6 4         51 _isa => [qw{EntityModel::Definition}],
7 4     4   3305 };
  4         9  
8              
9             =head1 NAME
10              
11             EntityModel::Definition::Perl - definition support for L
12              
13             =head1 VERSION
14              
15             version 0.102
16              
17             =head1 SYNOPSIS
18              
19             See L.
20              
21             =head1 DESCRIPTION
22              
23             See L.
24              
25             =head1 METHODS
26              
27             =cut
28              
29             =head2 load
30              
31             Perl is simple - give it a hashref, let it sort things out for itself.
32              
33             =cut
34              
35             sub load {
36 4     4 1 99 my $self = shift;
37 4         19 my %args = @_;
38 4         12 my $src = delete $args{source};
39 4         30 return $self->apply_model_from_structure(
40             model => $args{model},
41             structure => $src
42             );
43             }
44              
45             1;
46              
47             __END__