File Coverage

blib/lib/String/Incremental/Types.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package String::Incremental::Types;
use 5.008005;
use strict;
use warnings;
use MouseX::Types -declare => [qw(
    Char
    CharOrderStr
    CharOrderArrayRef
)];
use MouseX::Types::Mouse qw( Str ArrayRef );

subtype Char, as Str, where {
    /^\S$/;
};

subtype CharOrderStr, as Str, where {
    my $val = shift;
    my %c;
    ( grep $c{$_}++, ( split //, $val ) ) ? 0 : 1;
};

subtype CharOrderArrayRef, as ArrayRef, where {
    my $val = shift;
    my %c;
    ( grep $c{$_}++, @$val ) ? 0 : 1;
};

1;
__END__