The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Testmask6;
use strict;
use warnings;
use parent qw(Bitmask::Data);

__PACKAGE__->bitmask_length(100);
__PACKAGE__->bitmask_lazyinit(1);
__PACKAGE__->init(
    map { 'value'.$_ } (1..100)
);

1;