File Coverage

blib/lib/Ukigumo/Helper.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	4	0.0
condition			n/a
subroutine	5	8	62.5
pod	2	3	66.6
total	22	37	59.4

use strict;
use warnings;
use utf8;

package Ukigumo::Helper;
use parent qw(Exporter);
use Ukigumo::Constants;

our @EXPORT = qw(status_str status_color normalize_path);

sub status_str {
    my $status = shift;
    +{
        STATUS_SUCCESS() => 'SUCCESS',
        STATUS_FAIL()    => 'FAIL',
        STATUS_NA()      => 'NA',
        STATUS_SKIP()    => 'SKIP',
        STATUS_PENDING() => 'PENDING',
        STATUS_TIMEOUT() => 'TIMEOUT',
    }->{$status} || "Unknown: $status";
}

sub status_color {
    my $status = shift;
    +{
        STATUS_SUCCESS() => 'green',
        STATUS_FAIL()    => 'red',
        STATUS_NA()      => 'yellow',
        STATUS_SKIP()    => 'gray',
        STATUS_PENDING() => 'yellow',
        STATUS_TIMEOUT() => 'red',
    }->{$status} || "cyan";
}

sub normalize_path {
    my $path = shift;
    $path =~ s/[^a-zA-Z0-9-_]/_/g;
    return $path;
}

1;
__END__