File Coverage

lib/Mojolicious/Plugin/MoreHTMLHelpers.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	6	83.3
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	40	42	95.2

package Mojolicious::Plugin::MoreHTMLHelpers;

# ABSTRACT: Some general helpers

use strict;
use warnings;

use parent 'Mojolicious::Plugin';

our $VERSION = 0.01;

sub register {
    my ($self, $app, $config) = @_;

    $app->helper( textcolor => sub {
        my $c = shift;

        my $color = shift // '#000000';

        my ($red, $green, $blue);

        if ( length $color == 7 ) {
            ($red, $green, $blue) = $color =~ m{\#(..)(..)(..)};
        }
        elsif ( length $color == 4 ) {
            ($red, $green, $blue) = $color =~ m{\#(.)(.)(.)};
            for ( $red, $green, $blue ) {
                $_ = $_ x 2;
            }
        }

        my $brightness = _perceived_brightness( $red, $green, $blue );

        return $brightness > 130 ? '#000000' : '#ffffff';
    } );
}

sub _perceived_brightness {
    my ($red, $green, $blue) = @_;

    $red   = hex $red;
    $green = hex $green;
    $blue  = hex $blue;

    my $brightness = int ( sqrt (
        ( $red   * $red   * .299 ) +
        ( $green * $green * .587 ) +
        ( $blue  * $blue  * .114 )
    ));

    return $brightness;
}

1;

__END__