File Coverage

blib/lib/IO/Iron/PolicyBase/CharacterGroup.pm

Criterion	Covered	Total	%
statement	23	31	74.1
branch	8	12	66.6
condition			n/a
subroutine	10	15	66.6
pod	7	7	100.0
total	48	65	73.8

package IO::Iron::PolicyBase::CharacterGroup;

## no critic (Documentation::RequirePodAtEnd)
## no critic (Documentation::RequirePodSections)
## no critic (Subroutines::RequireArgUnpacking)
## no critic (Variables::ProhibitPunctuationVars)

use 5.010_000;
use strict;
use warnings;

# Global creator
BEGIN {
    # Inherit nothing
}

# Global destructor
END {
}


# ABSTRACT: Base package (inherited) for IO::Iron::IronMQ/Cache/Worker::Policy packages.

our $VERSION = '0.12_01'; # TRIAL VERSION: generated by DZP::OurPkgVersion

use Log::Any  qw{$log};
use Params::Validate qw(:all);



sub group {
    my %params = validate(
        @_, {
            'character_group' => { type => SCALAR, regex => qr/^[[:graph:]]+$/msx, }, # character group name.
        },
    );
    my ($group_name) = $params{'character_group'} =~ /\[:([[:graph:]]+):\]/msx;
    $log->tracef('group_name=%s;', $group_name);
    if($group_name eq 'alpha') { return alpha(); } ## no critic (ControlStructures::ProhibitCascadingIfElse)
    elsif($group_name eq 'alnum') { return alnum(); }
    elsif($group_name eq 'digit') { return digit(); }
    elsif($group_name eq 'lower') { return lower(); }
    elsif($group_name eq 'upper') { return upper(); }
    elsif($group_name eq 'word') { return word(); }
    else { return; }
}


sub alpha {
    return 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            .'abcdefghijklmnopqrstuvwxyz';
}


sub alnum {
    return 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
        .'abcdefghijklmnopqrstuvwxyz'
        .'0123456789';
}


sub digit {
    return '0123456789';
}


sub lower {
    return 'abcdefghijklmnopqrstuvwxyz';
}


sub upper {
    return 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
}


sub word {
    return 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            .'abcdefghijklmnopqrstuvwxyz'
            .'0123456789_';
}

1;

__END__