gistfile1.txt

sub EXPORT(+@a) {
        # cw: Implement SELECTIVE loading if necessary.
        @color_list = @a.elems > 0 ??
                @color_lists_found.grep(@a.any)
                !!
                @color_lists_found;

        #if $color_support {
        #       require Color;
        #}
        #for @color_list -> $cl {
        #       say "L: $cl";
        #       require ::("Color::Names::{$cl}");
        #}

        # cw: What we always export.
        #
        #     Is there any way to get EXPORT::DEFAULT from the module block?
        {
                '&lists_available'      => ::('&Color::Names::lists_available'),
                '&lists_loaded'         => ::('&Color::Names::lists_loaded'),
                '&location'                     => ::('&Color::Names::location'),
                '&color'                        => ::('&Color::Names::color'),
                '&hex'                          => ::('&Color::Names::hex'),
                '&rgb'                          => ::('&Color::Names::rgb'),
        @color_list = @a.elems > 0 ??
                @color_lists_found.grep(@a.any)
                !!
                @color_lists_found;

        #if $color_support {
        #       require Color;
        #}
        #for @color_list -> $cl {
        #       say "L: $cl";
        #       require ::("Color::Names::{$cl}");
        #}

        #     Is there any way to get EXPORT::DEFAULT from the module block?
        {
                '&lists_available'      => ::('&Color::Names::lists_available'),
                '&lists_loaded'         => ::('&Color::Names::lists_loaded'),
                '&location'                     => ::('&Color::Names::location'),
                '&color'                        => ::('&Color::Names::color'),
                '&hex'                          => ::('&Color::Names::hex'),
                '&rgb'                          => ::('&Color::Names::rgb'),
        }
}