File Coverage

blib/lib/Rope/Handles/Bool.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	5	6	83.3
total	33	34	97.0

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__