File Coverage

blib/lib/ODS/Table/Column/Email.pm

Criterion	Covered	Total	%
statement	6	9	66.6
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	18	44.4

package ODS::Table::Column::Email;

use YAOO;

use ODS::Utils qw/error valid_email/;

extends 'ODS::Table::Column::Base';

sub validation {
	if (ref($_[1]) || ! valid_email($_[1])) {
		croak sprintf "The value passed to the %s column does not match the email constraint.",
			$_[0]->name;
	}
	return $_[1];
}

#sub inflation { return $_[1]; }

#sub deflation { return $_[1]; }

#sub coercion { return $_[1]; }

1;

__END__