File Coverage

blib/lib/MarpaX/Database/Terminfo/Grammar/CharacterClasses.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition			n/a
subroutine	11	13	84.6
pod	11	11	100.0
total	37	41	90.2

use strict;
use warnings FATAL => 'all';

package MarpaX::Database::Terminfo::Grammar::CharacterClasses;

# ABSTRACT: Terminfo character classes

our $VERSION = '0.010'; # VERSION


our $COMMA_HEX  = sprintf('%x', ord(','));
our $SLASH_HEX  = sprintf('%x', ord('/'));
our $PIPE_HEX   = sprintf('%x', ord('|'));
our $EQUAL_HEX  = sprintf('%x', ord('='));
our $POUND_HEX  = sprintf('%x', ord('#'));


sub InCommaSlashPipe {
    return <
$COMMA_HEX
$SLASH_HEX
$PIPE_HEX
END
}


sub InCommaPipe {
    return <
$COMMA_HEX
$PIPE_HEX
END
}


sub InPipe {
    return <
$PIPE_HEX
END
}


sub InCommaEqualPound {
    return <
$COMMA_HEX
$EQUAL_HEX
$POUND_HEX
END
}


sub InComma {
    return <
$COMMA_HEX
END
}


sub InAlias {
    return <
+utf8::IsGraph
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaSlashPipe
END
}


sub InLongname {
    return <
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaPipe
END
}


sub InNcursesLongname {
    return <
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InPipe
END
}


sub InName {
    return <
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaEqualPound
END
}


sub InIsPrintExceptComma {
    return <
+utf8::IsPrint
-MarpaX::Database::Terminfo::Grammar::CharacterClasses::InComma
END
}


sub InIsPrintAndIsGraph {
    return <
+utf8::IsPrint
+utf8::IsGraph
END
}

1;

__END__