File Coverage

blib/lib/Iterator/Flex/Gather/Constants.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package Iterator::Flex::Gather::Constants;

# ABSTRACT: Constants for Gather

use v5.28;
use strict;
use warnings;

our $VERSION = '0.33';

use Exporter 'import';

use constant {
    GATHER_ELEMENT_MASK    => 0b0000111,
    GATHER_ELEMENT_EXCLUDE => 0b0000001,
    GATHER_ELEMENT_INCLUDE => 0b0000010,
    GATHER_ELEMENT_CACHE   => 0b0000100,
    GATHER_CYCLE_MASK      => 0b1111000,
    GATHER_CYCLE_CONTINUE  => 0b0001000,
    GATHER_CYCLE_RESTART   => 0b0010000,
    GATHER_CYCLE_STOP      => 0b0100000,
    GATHER_CYCLE_ABORT     => 0b1000000,
    GATHER_CYCLE_CHOOSE    => 0b1000001,    # not a bit value, just not one
                                            # of GATHER_CYCLE_STOP or
                                            # GATHER_CYCLE_ABORT
    GATHER_GATHERING       => 1,
    GATHER_SRC_EXHAUSTED   => 2,
};

our %EXPORT_TAGS = (
    all => [ qw(
          GATHER_ELEMENT_MASK
          GATHER_ELEMENT_EXCLUDE
          GATHER_ELEMENT_INCLUDE
          GATHER_ELEMENT_CACHE
          GATHER_CYCLE_CHOOSE
          GATHER_CYCLE_MASK
          GATHER_CYCLE_CONTINUE
          GATHER_CYCLE_RESTART
          GATHER_CYCLE_STOP
          GATHER_CYCLE_ABORT
          GATHER_GATHERING
          GATHER_SRC_EXHAUSTED
        ),
    ],
);

our @EXPORT_OK = ( map { @{$_} } values %EXPORT_TAGS );

1;

__END__