From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SKIM / Mo-utils-CSS-0.09 / examples / check_array_css_color_ok.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

              
#!/usr/bin/env perl
use strict;
use warnings;
use Mo::utils::CSS qw(check_array_css_color);
my $self = {
        'key' => [
                'red',
                '#F00', '#FF0000', '#FF000000',
                'rgb(255,0,0)', 'rgba(255,0,0,0.3)',
                'hsl(120, 100%, 50%)', 'hsla(120, 100%, 50%, 0.3)',
        ],
};
check_array_css_color($self, 'key');
# Print out.
print "ok\n";
# Output:
# ok