perlquestion
cxw
<p>Would you please reply if you know of a module fitting the below use case? I have searched Google and MetaCPAN and can't find one --- I'm pretty sure I'm missing something obvious in my search terms!</p>
<p>I am looking for a 5.14-compatible module that will, given a list of strings, permit me to test for case-insensitive membership in the list of strings, and to move from one item to the next. I would like to do things like:</p>
<code>
$set = Some::Module->new(qw(foo bar bat));
$set->contains('foo'); # true
$set->contains('FOO'); # true
$set->after('foo') # 'bar'
$set->is_last('bar') # false
$set->is_last('bat') # true
</code>
I already have an implementation based on an array (<a href="https://github.com/hopenbuild/App-hopen/blob/108910505e5b543bf92ea634228eb8bb992ca945/lib/App/hopen/Phases.pm#L66">here</a> et seq.). However, it is very clumsy and requires me to lc()/fc() everywhere to get case-insensitivity. Before I spend the time making a new module, I'd like to see if there already is one.
Thanks for your help with this!