File Coverage

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

Criterion	Covered	Total	%
statement	10	18	55.5
branch	2	6	33.3
condition	0	8	0.0
subroutine	3	5	60.0
pod	0	3	0.0
total	15	40	37.5

package ODS::Table::Column::Boolean;

use YAOO;

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

use ODS::Utils qw/clone error/;

has reference => isa(boolean);

sub validation {
        if (ref($_[1] || "") ne 'SCALAR' && ${$_[1]} !~ m/1|0/) {
                croak sprintf "The value passed to the %s column does not match the boolean constraint.",
                        $_[0]->name;
        }
	return $_[1];
}

sub inflation {
	my ($self, $value) = @_;
        if (! ref $value) {
		$self->reference(\1);
                $value = \!!$value;
        }
}

sub deflation {
	my ($self, $value) = @_;
	if ($self->reference && ref $value) {
		$value = $$value;
	}
	return $value;
}

1;

__END__