File Coverage

blib/lib/LittleORM/Model/Value.pm
Criterion Covered Total %
statement 6 11 54.5
branch 0 2 0.0
condition 0 3 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 20 40.0


line stmt bran cond sub pod time code
1 1     1   4 use strict;
  1         1  
  1         42  
2              
3             package LittleORM::Model::Value;
4 1     1   5 use Moose;
  1         1  
  1         5  
5              
6             has 'db_field_type' => ( is => 'rw',
7             isa => 'Str' );
8              
9             has 'value' => ( is => 'rw',
10             isa => 'Any' );
11              
12             has 'orm_coerce' => ( is => 'rw',
13             isa => 'Bool',
14             default => 1 );
15              
16             sub this_is_value
17             {
18 0     0 0   my ( $self, $attr ) = @_;
19              
20 0           my $rv = 0;
21              
22 0 0 0       if( blessed( $attr ) and ( $attr -> isa( 'LittleORM::Model::Value' ) ) )
23             {
24 0           $rv = 1;
25             }
26 0           return $rv;
27             }
28              
29             434445;
30