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

use strict;

package LittleORM::Model::Value;
use Moose;

has 'db_field_type' => ( is => 'rw',
			 isa => 'Str' );

has 'value' => ( is => 'rw',
		 isa => 'Any' );

has 'orm_coerce' => ( is => 'rw',
		      isa => 'Bool',
		      default => 1 );

sub this_is_value
{
	my ( $self, $attr ) = @_;

	my $rv = 0;

	if( blessed( $attr ) and ( $attr -> isa( 'LittleORM::Model::Value' ) ) )
	{
		$rv = 1;
	}
	return $rv;
}

434445;