File Coverage

blib/lib/Rope/Handles/Bool.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	1	2	50.0
condition			n/a
subroutine	7	8	87.5
pod	5	6	83.3
total	30	34	88.2

package Rope::Handles::Bool;

use strict;
use warnings;

sub new {
	my ($class, $str) = @_;
	bless \$str, __PACKAGE__;
}

sub set { ${$_[0]} = 1 }

sub unset { ${$_[0]} = 0 }

sub toggle { ${$_[0]} = ${$_[0]} ? 0 : 1; }

sub not { !${$_[0]} }

sub clear { $_[0]->unset }

1;

__END__