Geminiphobic.pm

package Queue::Geminiphobic;
use Modern::Perl;
use Set::Scalar;

sub new {
    my ($class, @elements) = @_;
    bless { elements => \@elements, had => Set::Scalar->new() }, $class;
}

sub enqueue {
    my ($self, @values) = @_;
    foreach my $value (@values) {
        unless ($self->{had}->has($value)) {
            $self->{had}->insert($value);
            push @{$self->{elements}}, $value;
        }
    }
}

sub dequeue {
    shift @{shift->{elements}};
}

sub is_empty {
    !@{shift->{elements}};
}

1;