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

__PACKAGE__->bitmask_length(3);

__PACKAGE__->init(
    r       => 0b100,
    w       => 0b010,
    x       => 0b001,
);

1;