The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;

package LittleORM::Db::Field::Default;

use Moose;

sub appropriate_op
{
	my ( $self, $op, $val ) = @_;

	if( ( $op eq '=' ) and ( not defined $val ) )
	{
		$op = 'IS';
	}

	return $op;
}

42;