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

__PACKAGE__->bitmask_length(5);
__PACKAGE__->bitmask_lazyinit(1);
__PACKAGE__->init(
    'value1',
    'value2',
    'value3',
    'value4',
    'value5'
);

1;