File Coverage

blib/lib/Whelk/Schema/Definition/Empty.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	3	3	100.0
total	17	20	85.0

package Whelk::Schema::Definition::Empty;
$Whelk::Schema::Definition::Empty::VERSION = '1.04';
use Whelk::StrictBase 'Whelk::Schema::Definition';

sub inhale
{
	my ($self, $value) = @_;
	return 'empty' if defined $value && length $value;
	return undef;
}

sub exhale
{
	return '';
}

sub empty
{
	return !!1;
}

1;