Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

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;