File Coverage

blib/lib/Spp/Grammar.pm

Criterion	Covered	Total	%
statement	8	9	88.8
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	11	14	78.5

package Spp::Grammar;

use 5.012;
no warnings "experimental";

use Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw(get_grammar);

sub get_grammar {
   return << 'EOF'

  spp       = |_ Spec|+ $ ;

  _         = |\s+ _comm|+ ;
  _comm     = '//' ~ $$ ;

  Spec      = Token \s* '=' |_ Branch @rule|+ |';' $| ;

  @rule      = |
               Group In Out Qstr Qint
               Token Str String Kstr Point
               Cclass Char Chclass
               Sym Expr Assert Any
               Look Not Till Int
              | ;

  Branch    = '|'  |_ @rule|+ '|' ;
  Group     = '{'  |_ Branch @rule|+ '}' ;

  In        = '<' ;
  Out       = '>' ;
  Qstr      = '#' ;
  Qint      = '&' ;

  Token     = [@\a\-]+ ;
  Kstr      = ':' [\a\-]+ ;
  Point     = '0x' \x+ ;

  Str       = \' |Chars Char|+ \' ;
  Chars     = [^\\']+ ;

  String    = \" |Schars Char|+ \" ;
  Schars    = [^\\"]+ ;

  Cclass    = \\ [ adhlsuvwxADHLSUVWX] ;
  Char      = \\ . ;

  Chclass   = \[ Flip? |_ Cclass Char Range Cchar|+ \] ;
  Flip      = '^' ;
  Range     = \w \- \w ;
  Cchar     = [^ \s \] \/ \\] ;

  Assert    = | '^^' '$$' '^' '$' | ;
  Any       = '.' ;

  Look      = Rept Flag? ;
  Rept      = [?*+] ;
  Flag      = '?' ;
  Not       = '!' ;
  Till      = '~' ;

  Sym       = '$' [\a\-]+ ;
  Expr      = '(' |_ @atom|+ ')' ;
  Array     = '[' |_ @atom|* ']' ;
  Sub       = [\a\-]+ ;
  Int       = \d+ ;
  @atom     = | Expr Array Str Sub Sym Kstr Int | ;

EOF
}

1;