Eagle Legacy Modernization, LLC

Perl Grammar

Main program: Perl_Program

Perl syntax:

 Count  Terminals:
2 Perl_Class_Definition: An identifier
1,387 Perl_Comment: /* comment */ or # or // comment to end of line
422 Perl_Function_Definition: An identifier
4 Perl_HexNumber: A hex number
48,077 Perl_Identifier_Reference: An identifier
1 Perl_Label_Definition: An identifier
1 Perl_Label_Reference: An identifier
48,355 Perl_Literal: perl literal depends on << and <<<
1,916 Perl_Number: exponent_chars:Ee suffix_chars:none trailing_period:yes ignore_char:none
1 Perl_OctalNumber: A octal number
  Perl_Package_Definition: An identifier
78 Perl_RegularCondition: A regular expression
  Perl_RegularMatch: A regular expression
  Perl_RegularQuery: A regular expression
  Perl_RegularSubstitution: A regular expression
2 Perl_RegularTranslation: A regular expression
  Perl_Use_Definition: An identifier
862 Perl_Variable_Definition: An identifier
 Count  Statistics(*) Tokens:
263 all all all Perl_AdditiveExpression: Perl_Expression ("+"|"-") Perl_Expression
2 all all Perl_AddressOfExpression: '\' Perl_Expression
20 all all all Perl_ArrowExpression: Perl_Expression "->" Perl_Expression
10,304 all all all Perl_AssignmentExpression: Perl_Expression ("="|"*="|"/="|"%="|"+="|"-="|"<<="|">>="|">>>="|"&="|"^="|"|="|".=") Perl_Expression
132 all all all Perl_BitwiseExpression: Perl_Expression ("&"|"|"|"^") Perl_Expression
    Perl_BitwiseNotExpression: '~' Perl_Expression
2 all all all all Perl_BracesInvocation: Perl_Variable '{' [Perl_ArgumentList] '}'
    Perl_BracketedExpression: '[' [Perl_Comment]* [Perl_ArgumentList] [','] [Perl_Comment]* ']'
397 all Perl_BuiltIn: ("FALSE"|"False"|"false"|"TRUE"|"True"|"true"|"NULL"|"null"|"T_CLASS"|"T_FUNCTION"|"T_INCLUDE"|"T_INCLUDE_ONCE"|"T_REQUIRE"|"T_REQUIRE_ONCE"|"T_USE"|"namespace")
2 all all all all Perl_ClassCastExpression: '(' Perl_Type ')' Perl_Expression
6 all all 1.00(all) all Perl_ClassCreationExpression: "new" ['$'] [Perl_MoreNamespace]* [Perl_ClassCreationParams]
6 all none 67% all |   Perl_ClassCreationParams: '(' [Perl_Comment]* [Perl_ArgumentList] ')'
6 all all |   Perl_MoreNamespace: ['\'] Perl_Identifier_Reference
    Perl_CloneExpression: "clone" Perl_Expression
    Perl_ColonColonExpression: Perl_Expression "::" Perl_Expression
7 all all Perl_DefinedExpression: "defined" Perl_Expression
12 all all Perl_DieExpression: "die" Perl_Expression
18,885 all all all Perl_DotExpression: Perl_Expression '.' Perl_Expression
    Perl_EachExpression: "each" '(' Perl_Variable ')'
1,533 all all all Perl_EqualityExpression: Perl_Expression Perl_EqualityOperator Perl_Expression
1,533 (8% | 92%) |   Perl_EqualityOperator: (("eq"|"ne") | ("==="|"!=="|"=="|"!="))
25 all all all Perl_ExistsExpression: '-' ("e"|"x") Perl_Expression
1 all Perl_Expression_List: Perl_ExpressionList
27 all 93% all Perl_FileIO: '<' [Perl_Identifier_Reference] '>'
12,951 all none 2.00(0%) all all 96% 1.41(38%) all Perl_FunctionCall: Perl_Identifier_Reference [Perl_MoreFunctionName]* [Perl_Method]* '(' ['@'] [Perl_Expression] [Perl_MoreFnArguments]* ')'
4 all all |   Perl_Method: "::" Perl_Identifier_Reference
7,008 all 0% all all |   Perl_MoreFnArguments: ',' [Perl_Comment] ['@'] Perl_Expression
    |   Perl_MoreFunctionName: '\' Perl_Identifier_Reference
    Perl_FunctionExpression: "function" Perl_Function_Parameters [Perl_FunctionUse] Perl_FunctionBlock
    |   Perl_FunctionUse: "use" '(' '&' Perl_Variable ')'
2 all all all all Perl_GrepExpression: "grep" Perl_Regular_Expression ',' Perl_Expression
    Perl_InstanceOfExpression: Perl_Expression "instanceof" ['\'] Perl_Identifier_Reference [Perl_MoreInstanceOf]*
    |   Perl_MoreInstanceOf: '\' Perl_Identifier_Reference
3 all 1.00 Perl_JoinExpression: "join" Perl_Expression*
150 all all all Perl_LogicalAndExpression: Perl_Expression Perl_AndOperator Perl_Expression
150 (19% | 81%) |   Perl_AndOperator: ("&&" | "and")
264 all all Perl_LogicalNotExpression: Perl_NotOperator Perl_Expression
264 (96% | 4%) |   Perl_NotOperator: ('!' | "not")
113 all all all Perl_LogicalOrExpression: Perl_Expression Perl_OrOperator Perl_Expression
113 (62% | 38%) |   Perl_OrOperator: ("||" | ("or"|"xor"))
69 all all all Perl_MapExpression: Perl_Expression "=>" Perl_Expression
59 all all 69% all Perl_MethodInvocation: Perl_Variable '(' [Perl_ArgumentList] ')'
172 all all all Perl_MultiplicativeExpression: Perl_Expression ("*"|"/"|"%") Perl_Expression
5 all all Perl_NegativeExpression: ("-"|"+") Perl_Expression
2,382 all 100% all Perl_ParenthesizedExpression: '(' [Perl_ArgumentList] ')'
1 all all Perl_PercentExpression: '%' Perl_Expression
236 all all Perl_PostIncrementExpression: Perl_Variable ("++"|"--")
    Perl_PowerExpression: Perl_Expression "**" Perl_Expression
8 all all Perl_PreIncrementExpression: ("++"|"--") Perl_Variable
    Perl_ReadExpression: "read" Perl_Identifier_Reference ',' Perl_Expression ',' Perl_Expression
27 all Perl_RegExExpression: Perl_Regular_Expression
51 all all all Perl_RegExTest: Perl_Expression ("=~"|"!~") Perl_Regular_Expression
401 all all all Perl_RelationalExpression: Perl_Expression ("<="|">="|"<"|">") Perl_Expression
3 all all all Perl_ShiftExpression: Perl_Expression ("<<"|">>"|">>>") Perl_Expression
    Perl_StarExpression: '*' Perl_Expression
29 all all all all Perl_SubscriptExpression: Perl_Expression '[' [Perl_Expression] ']'
109 all all all all all Perl_TrueFalseExpression: Perl_Expression '?' Perl_Expression ':' Perl_Expression
33,730 all Perl_VariableExpression: Perl_Variable
133 all all 7.81 all Perl_ArrayFunction: "array" '(' Perl_Expression* ')'
2 all all all all Perl_IntValFunction: "intval" '(' Perl_Expression ')'
43 all all all all Perl_StrLenFunction: "strlen" '(' Perl_Expression ')'
102 all all all all all all all all Perl_SubstrFunction: "substr" '(' Perl_Expression ',' Perl_Expression ',' Perl_Expression ')'
2,470 all none 5.85(1%) 0% none Perl_ArgumentList: Perl_Expression [Perl_Comment]* [Perl_MoreArguments]* [','] [Perl_Comment]*
193 all none all none |   Perl_MoreArguments: ',' [Perl_Comment]* Perl_Expression [Perl_Comment]*
132,829 (0% | 0% | 1% | 36% | 0% | 0% | 0% | none | 0% | 0% | 0% | 0% | 0% | 0% | 0% | none | 0% | none | 0% | none | 0% | 0% | 0% | 0% | 0% | 0% | 10% | 25% | 2% | none | none | 0% | 0% | none | 0% | 0% | 0% | 0% | 14% | none | 0% | 0% | none | 0% | 0% | 0% | 0% | 0% | none | 1% | 0% | 0% | 0% | 0% | 8%) Perl_Expression: (Perl_OctalNumber | Perl_HexNumber | Perl_Number | Perl_Literal | Perl_ClassCastExpression | Perl_Expression_List | Perl_ClassCreationExpression | Perl_CloneExpression | Perl_DefinedExpression | Perl_MethodInvocation | Perl_BracesInvocation | Perl_PreIncrementExpression | Perl_PostIncrementExpression | Perl_ExistsExpression | Perl_NegativeExpression | Perl_BitwiseNotExpression | Perl_LogicalNotExpression | Perl_StarExpression | Perl_GrepExpression | Perl_ReadExpression | Perl_BuiltIn | Perl_RegExExpression | Perl_ArrayFunction | Perl_IntValFunction | Perl_StrLenFunction | Perl_SubstrFunction | Perl_FunctionCall | Perl_VariableExpression | Perl_ParenthesizedExpression | Perl_BracketedExpression | Perl_EachExpression | Perl_DieExpression | Perl_AddressOfExpression | Perl_FunctionExpression | Perl_FileIO | Perl_PercentExpression | Perl_JoinExpression | Perl_SubscriptExpression | Perl_DotExpression | Perl_ColonColonExpression | Perl_ArrowExpression | Perl_MapExpression | Perl_PowerExpression | Perl_MultiplicativeExpression | Perl_AdditiveExpression | Perl_ShiftExpression | Perl_RelationalExpression | Perl_RegExTest | Perl_InstanceOfExpression | Perl_EqualityExpression | Perl_BitwiseExpression | Perl_LogicalAndExpression | Perl_LogicalOrExpression | Perl_TrueFalseExpression | Perl_AssignmentExpression)
43 all none all all Perl_ExpressionList: '{' [Perl_Comment]* Perl_ArgumentList '}'
400 none all all all none all Perl_Function: [Perl_FunctionPrefix]* "function" Perl_Function_Definition Perl_Function_Parameters [Perl_FunctionReturn] Perl_FunctionBlock
400 (none | all) |   Perl_FunctionBlock: (';' | Perl_StatementBlock)
    |   Perl_FunctionPrefix: ("abstract"|"const"|"final"|"private"|"protected"|"public"|"static"|"var")
    |   Perl_FunctionReturn: ':' Perl_Type
    |   Perl_FunctionTypeAndVariable: Perl_Type Perl_FunctionVariable
658 all all 4% |   Perl_FunctionVariable: ['&'] Perl_Variable_Definition [Perl_Variable_Initializer]
27 all all |   |   Perl_Variable_Initializer: '=' Perl_Expression
658 (all | none) |   Perl_FunctionVariableOrTypeVariable: (Perl_FunctionVariable | Perl_FunctionTypeAndVariable)
400 all 2.99(83%) all |   Perl_Function_Parameters: '(' [Perl_FunctionVariableOrTypeVariable]* ')'
    Perl_Include: "include" '(' Perl_Literal ')' ';'
1 all all Perl_Label: Perl_Label_Definition ':'
4 51.00 Perl_Program: Perl_StatementOrComment*
52,658 (13% | 33% | 0% | 1% | none | 1% | none | 0% | 0% | none | 31% | 22%) Perl_Statement: (Perl_CompundStatement | Perl_SimpleStatement | Perl_SubDeclaration | Perl_Comment | Perl_Include | Perl_Function | Perl_NamespaceStatement | Perl_ClassStatement | Perl_Label | ';' | Perl_ExpressionStatement | Perl_StatementBlock)
6,638 (1% | 1% | 95% | 0% | none | none | 3%) |   Perl_CompundStatement: (Perl_ForStatement | Perl_ForEachStatement | Perl_IfStatement | Perl_SwitchStatement | Perl_TraitStatement | Perl_TryStatement | Perl_WhileStatement)
17,393 all 0% 100% 1.30(1%) |   Perl_SimpleStatement: Perl_StatementList [Perl_StatementSuffixModifier] [';'] [Perl_Comment]*
22 all none all none all |   Perl_SubDeclaration: "sub" [Perl_SubMain] Perl_Function_Definition [Perl_Function_Parameters] Perl_StatementBlock
    |   |   Perl_SubMain: Perl_Identifier_Reference '''
17,405 (0% | 0% | 0% | none | 0% | 0% | 0% | 0% | 1% | none | 0% | 1% | 12% | 0% | 0% | 0% | none | 82% | 0% | 2% | none | 0% | none | 0% | 0% | 0%) Perl_StatementList: (Perl_BreakStatement | Perl_ChdirStatement | Perl_ChmodStatement | Perl_ChompCommand | Perl_CloseStatement | Perl_ContinueStatement | Perl_DieStatement | Perl_DoStatement | Perl_EchoStatement | Perl_EvalStatement | Perl_ExitStatement | Perl_GlobalStatement | Perl_IncludeStatement | Perl_MyStatement | Perl_NextStatement | Perl_OpenStatement | Perl_PackageStatement | Perl_PrintStatement | Perl_RequireStatement | Perl_ReturnStatement | Perl_ShiftStatement | Perl_SleepStatement | Perl_ThrowStatement | Perl_UnlinkStatement | Perl_UseStatement | Perl_VarStatement)
40,791 (all | none) Perl_StatementOrComment: (Perl_Statement | Perl_Comment)
92 (13% | 87% | none) Perl_StatementSuffixModifier: (Perl_StatementBarSuffix | Perl_StatementIfSuffix | Perl_StatementOrSuffix)
12 all all |   Perl_StatementBarSuffix: "||" Perl_StatementList
80 all 9% all |   Perl_StatementIfSuffix: ("if"|"unless"|"while") [Perl_MinusF] Perl_Expression
7 all all |   |   Perl_MinusF: '-' ("d"|"f")
    |   Perl_StatementOrSuffix: "or" Perl_StatementList
4,504 all all all Perl_Subscript: '[' Perl_Expression ']'
2 (none | all | none) Perl_Type: (Perl_CompoundType | ("array"|"bool"|"int"|"string") | Perl_Variable_Definition)
    |   Perl_CompoundType: '\' Perl_Variable_Definition [Perl_MoreTypeName]*
    |   |   Perl_MoreTypeName: '\' Perl_Variable_Definition
34,475 (0% | 0% | 0% | 0% | 0% | 0% | 0% | 0% | none | none | 0% | none | 0% | 0% | 99% | none) Perl_Variable: (Perl_AmpersandVariable | Perl_AtEachVariable | Perl_AtUnderscoreVariable | Perl_AtVariable | Perl_DollarBarVariable | Perl_DollarBraceVariable | Perl_DollarNumberVariable | Perl_DollarSignalVariable | Perl_DollarUnderscoreVariable | Perl_ListVariable | Perl_NamespaceVariable | Perl_PercentUTFVariable | Perl_PercentVariable | Perl_SpecialVariable | Perl_UserVariable | Perl_Identifier_Reference)
169 all all |   Perl_AmpersandVariable: '&' Perl_Identifier_Reference
3 all all |   Perl_AtEachVariable: '@' "each"
17 all all |   Perl_AtUnderscoreVariable: '@' '_'
42 all all |   Perl_AtVariable: '@' Perl_Identifier_Reference
3 all all |   Perl_DollarBarVariable: '$' '|'
11 all all |   Perl_DollarBraceVariable: '$' Perl_ExpressionList
9 all all |   Perl_DollarNumberVariable: '$' Perl_Number
2 all all all all all |   Perl_DollarSignalVariable: '$' "SIG" '{' Perl_Expression '}'
    |   Perl_DollarUnderscoreVariable: '$' '_'
    |   Perl_ListVariable: "list" '(' [','] Perl_Expression* ')'
6 all none all all all none |   Perl_NamespaceVariable: Perl_Identifier_Reference [Perl_More_NamespaceVars]* "::" ['$'] Perl_Identifier_Reference [Perl_NamespaceArrow]
    |   |   Perl_More_NamespaceVars: '\' Perl_Identifier_Reference
    |   |   Perl_NamespaceArrow: "->" "new" [Perl_Subscript]*
    |   Perl_PercentUTFVariable: '%' "utf8" "::" Perl_Identifier_Reference
9 all all |   Perl_PercentVariable: '%' Perl_Identifier_Reference
18 all all all |   Perl_SpecialVariable: '$' '^' ("O")
34,186 all 1.00(13%) 2% 1% 0% |   Perl_UserVariable: Perl_Identifier_Reference [Perl_Subscript]* [Perl_ClassField] [Perl_VarFunctionCall] [Perl_ExpressionList]
672 all all 1.59(13%) |   |   Perl_ClassField: "->" Perl_Identifier_Reference [Perl_Subscript]*
183 all none 1.90(68%) all |   |   Perl_VarFunctionCall: '(' [Perl_Comment] [Perl_Expression]* ')'
63 all none Perl_BreakStatement: "break" [Perl_Expression]
3 all all Perl_ChdirStatement: "chdir" Perl_Expression
1 all all all all Perl_ChmodStatement: "chmod" Perl_Expression ',' Perl_Expression
    Perl_ChompCommand: "chomp" Perl_Variable
2 none all all none all 107.50(all) all none Perl_ClassStatement: [Perl_ClassPrefix]* "class" Perl_Class_Definition [Perl_ClassExtends] '{' [Perl_StatementOrComment]* '}' [';']
    |   Perl_ClassExtends: ("extends"|"implements") Perl_ExtendsName* [Perl_MoreExtends]*
    |   |   Perl_ExtendsName: ['\'] Perl_Identifier_Reference
    |   |   Perl_MoreExtends: ',' Perl_ExtendsName*
    |   Perl_ClassPrefix: ("abstract"|"const"|"final"|"private"|"protected"|"public"|"static"|"var")
42 all all Perl_CloseStatement: "close" Perl_Expression
23 all Perl_ContinueStatement: "continue"
49 all all Perl_DieStatement: "die" [Perl_Expression]
1 all all all all Perl_DoStatement: "do" Perl_Statement "while" Perl_Expression
118 all 1.00 Perl_EchoStatement: "echo" Perl_Expression*
    Perl_EvalStatement: "eval" Perl_Expression
20 all Perl_ExitStatement: "exit"
16,245 all 0% 100% 1.22(2%) Perl_ExpressionStatement: Perl_Expression [Perl_StatementSuffixModifier] [';'] [Perl_Comment]*
40 (83% | 18%) Perl_ForEachStatement: (Perl_ForEachAsStatement | Perl_ForEachNoAsStatement)
33 all all all all all all 27% all all |   Perl_ForEachAsStatement: "foreach" '(' Perl_Expression "as" '$' Perl_Variable_Definition [Perl_ForEachArrow] ')' Perl_Statement
9 all all |   |   Perl_ForEachArrow: "=>" Perl_Variable
7 all 71% all all all all |   Perl_ForEachNoAsStatement: "foreach" [Perl_ForEachVariable] '(' Perl_Expression ')' Perl_Statement
5 all all all |   |   Perl_ForEachVariable: ["my"] '$' Perl_Variable_Definition
71 all all all Perl_ForStatement: "for" Perl_ForWhat Perl_Statement
71 all all all all all all all all all |   Perl_ForLikeC: '(' Perl_Variable '=' Perl_Expression ';' [Perl_Expression] ';' [Perl_Expression] ')'
    |   Perl_ForVarInSet: "my" Perl_Variable '(' Perl_Expression ')'
71 (none | all) |   Perl_ForWhat: (Perl_ForVarInSet | Perl_ForLikeC)
138 all 2.41 none Perl_GlobalStatement: ("global"|"local"|"our") Perl_Variable* [Perl_Global_Init]
    |   Perl_Global_Init: '=' Perl_Expression
6,294 all all all none all 1.00(0%) all 2.23(2%) 1.50(1%) 3.00(0%) 82% Perl_IfStatement: "if" '(' Perl_IfWhat [Perl_Comment]* ')' [Perl_Comment]* Perl_Statement [Perl_Comment]* [Perl_IfElseIfClause]* [Perl_Comment]* [Perl_IfElseClause]
5,177 all 1.00(0%) all |   Perl_IfElseClause: "else" [Perl_Comment]* Perl_Statement
66 all all all all none all |   Perl_IfElseIfClause: ("elseif"|"elsif") '(' Perl_Expression ')' [Perl_Comment]* Perl_Statement
6,294 (0% | 100%) |   Perl_IfWhat: (Perl_IfExists | Perl_Expression)
2 all all all all |   |   Perl_IfExists: ["not"] '-' ("d"|"f") Perl_Expression
2,074 all all all Perl_IncludeStatement: ['@'] ("include"|"include_once") Perl_Expression
30 all all 43% Perl_MyStatement: "my" Perl_MyWhat [Perl_MyEquals]
13 all all |   Perl_MyEquals: '=' Perl_Expression
30 (93% | 7%) |   Perl_MyWhat: (Perl_MyMany | Perl_MyOne)
28 all 5.29 all |   |   Perl_MyMany: '(' Perl_Variable* ')'
2 all |   |   Perl_MyOne: Perl_Variable
    Perl_NamespaceStatement: "namespace" [Perl_Identifier_Reference] [Perl_MoreSpace]* Perl_NamespaceBody
    |   Perl_MoreSpace: '\' Perl_Identifier_Reference
    |   Perl_NamespaceBody: (';' | Perl_StatementBlock)
14 all 7% none Perl_NextStatement: "next" [Perl_Label_Reference] [Perl_NextUnless]
    |   Perl_NextUnless: "unless" '-' "f"
35 all all Perl_OpenStatement: "open" Perl_OpenWhat
35 (none | all) |   Perl_OpenWhat: (Perl_OpenWithDirection | Perl_OpenWithoutDirection)
    |   |   Perl_OpenWithDirection: Perl_Variable ',' Perl_Literal ',' Perl_Expression
35 all all all all all |   |   Perl_OpenWithoutDirection: ['('] Perl_Variable ',' Perl_Expression [')']
    Perl_PackageStatement: "package" Perl_Package_Definition
14,319 all all Perl_PrintStatement: ("print"|"printf") Perl_PrintWhat
14,198 1.00 none |   Perl_PrintNormal: Perl_Expression* [',']
121 all all |   Perl_PrintRedirectInput: Perl_Variable_Definition Perl_Literal
14,319 (1% | 99%) |   Perl_PrintWhat: (Perl_PrintRedirectInput | Perl_PrintNormal)
2 all all Perl_RequireStatement: ("require"|"require_once") Perl_Expression
408 all 94% Perl_ReturnStatement: "return" [Perl_Expression]
    Perl_ShiftStatement: "shift" Perl_Variable
12 all all Perl_SleepStatement: "sleep" Perl_Expression
11,890 all 1.95(100%) all Perl_StatementBlock: '{' [Perl_StatementOrComment]* '}'
15 all all all all all 4.40 60% all Perl_SwitchStatement: "switch" '(' Perl_Expression ')' '{' Perl_CaseClause* [Perl_DefaultClause] '}'
66 all all all 2.53(89%) |   Perl_CaseClause: "case" Perl_Expression [':'] [Perl_StatementOrComment]*
9 all all 2.22 |   Perl_DefaultClause: ("default"|"else") [':'] Perl_StatementOrComment*
    Perl_ThrowStatement: "throw" ["new"] Perl_Expression
    Perl_TraitStatement: "trait" Perl_Class_Definition '{' [Perl_StatementOrComment]* '}'
    Perl_TryStatement: "try" '{' Perl_Statement* '}' [Perl_Comment]* [Perl_CatchBlock]* [Perl_FinallyBlock]
    |   Perl_CatchBlock: "catch" '(' ['\'] Perl_Identifier_Reference ['$'] Perl_Variable_Definition ')' Perl_Statement
    |   Perl_FinallyBlock: "finally" Perl_Statement
7 all all Perl_UnlinkStatement: "unlink" Perl_Expression
1 all all none Perl_UseStatement: "use" Perl_UseWhat [Perl_UseAs]
    |   Perl_UseAs: "as" Perl_Use_Definition
1 (all | none) |   Perl_UseWhat: (Perl_UseLocal | Perl_UseRemote)
1 all all none |   |   Perl_UseLocal: ['\'] Perl_Identifier_Reference [Perl_MoreUse]*
    |   |   |   Perl_MoreUse: ("\"|"::") Perl_Identifier_Reference
    |   |   Perl_UseRemote: ("File"|"Getopt"|"IPC"|"List"|"MIME"|"Net"|"Time"|"Win32") ["::"] [Perl_Identifier_Reference]
45 1.00 all all 91% Perl_VarStatement: Perl_VarPrefix* ['$'] Perl_Variable_Definition [Perl_Variable_Init]
45 (all) |   Perl_VarPrefix: (("abstract"|"const"|"final"|"private"|"protected"|"public"|"static"|"var"))
41 all all |   Perl_Variable_Init: '=' Perl_Expression
218 all all all all all 1.00(1%) all Perl_WhileStatement: "while" '(' ["my"] Perl_Expression ')' [Perl_Comment]* Perl_Statement
80 (98% | none | none | none | 3%) Perl_Regular_Expression: (Perl_RegularCondition | Perl_RegularMatch | Perl_RegularQuery | Perl_RegularSubstitution | Perl_RegularTranslation)

Terminals = 18 (instances=101,108)
Tokens = 192 (instances=532,178)

(*) Statistics are shown in the same order as the Tokens.
Percentages are rounded; 'all' and 'none' mean 100% and 0% before rounding.
For lists, it shows the average number of occurrences, excluding empty lists.