File Coverage

blib/lib/Getopt/EX/Util.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch			n/a
condition	0	4	0.0
subroutine	4	8	50.0
pod			n/a
total	15	37	40.5

package Getopt::EX::Util;
use version; our $VERSION = version->declare("2.1.3");

use v5.14;
use warnings;

use Exporter 'import';
our @EXPORT      = qw();
our %EXPORT_TAGS = ();
our @EXPORT_OK   = qw();
our @ISA         = qw();

package Getopt::EX::ToggleValue {
    sub new {
	my $class = shift;
	my $obj = bless {}, $class;
	my %opt = @_;
	$obj->{VALUE} = $opt{value} // 1;
	$obj->{CURRENT} = $obj->{INIT} = $opt{init} // 0;
	$obj;
    }
    sub toggle {
	my $obj = shift;
	my $prev = $obj->{CURRENT};
	$obj->{CURRENT} ^= $obj->{VALUE};
	$prev;
    }
    sub value {
	my $obj = shift;
	$obj->{CURRENT};
    }
    sub reset {
	my $obj = shift;
	$obj->{CURRENT} = $obj->{INIT};
    }
}

1;