File Coverage

blib/lib/Term/ANSIColor/Concise/Util.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition	2	4	50.0
subroutine	5	6	83.3
pod			n/a
total	24	29	82.7

# -*- indent-tabs-mode: nil -*-

package #
ToggleValue {

    use v5.14;
    use warnings;

    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;