File Coverage

blib/lib/Set/Select.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition	6	6	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	46	47	97.8

package Set::Select;

use strict;
use warnings;
use Carp;

our $VERSION = '1.01';

sub new {
	my $class = shift;

	my $self = {};
	for my $i (0..$#_) {
		croak "Arguments must be array references (argument $i is not)" if not ref $_[$i] eq 'ARRAY';
		for my $elem (@{$_[$i]}) {
			my $key = $elem;
			$self->{$key}->[1] //= $elem;
			$self->{$key}->[0] //= '0' x @_;
			vec($self->{$key}->[0], $i, 8) = 0x31;
		}
	}
	bless $self, $class;
}

sub select {
    my ($self, $bits) = @_;
    return [map { $self->{$_}->[1] } grep { $self->{$_}->[0] =~ /^$bits$/ } keys %$self];
}

sub all_subsets {
	my $self = shift;
	my %keys;
	for my $e (values %$self) {
		push @{$keys{$e->[0]}}, $e->[1];
	}
	return \%keys;
}

1;

__END__