The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

TOBYINK / Type-Tiny-2.008000 / t / 20-modules / Type-Tiny-Bitfield / import-options.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
use strict;
use warnings;
use Test::More;
use Type::Tiny::Bitfield (
        Colour  => { RED => 0x01, BLUE => 0x02, GREEN => 0x04, -prefix => 'My' },
);
is( MyColour->display_name, 'Colour' );
is( MyCOLOUR_RED, 1 );
done_testing;