File Coverage

blib/lib/LittleORM/Db/Field.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	23	52.1

use strict;

use LittleORM::Db::Field::Default;
use LittleORM::Db::Field::XML;

package LittleORM::Db::Field;

sub by_type
{
	my ( $self, $type ) = @_;

	$type = lc( $type );

	my $rv = undef;

	if( $type eq 'xml' )
	{
		$rv = LittleORM::Db::Field::XML -> new();
	} else
	{
		$rv = LittleORM::Db::Field::Default -> new();
	}

	return $rv;
}

42;