Branch Coverage

lib/SNMP/MIB/Compiler.pm

Criterion	Covered	Total	%
branch	249	1092	22.8

line	true	false	branch
245	0	473	if $c eq ''
246	22	451	if ($c eq '-') { }
248	0	22	if ($c eq '')
253	21	1	if ($c eq '-') { }
257	0	28	if $c eq ''
258	13	15	if ($c eq '-')
260	0	13	if $c eq ''
261	5	7	if $c eq "\n" or $c eq "\r" or $c eq '-'
264	15	7	if $c eq "\n"
281	0	452	if $c eq ''
282	128	324	if ($c =~ /^$ITEM_SINGLECHARACTER$/o)
286	9	315	if ($c =~ /^[>|]/o)
290	0	315	if ($c eq q['])
297	0	0	if $c eq ''
299	0	0	if ($c eq q['])
302	0	0	if $c eq ''
306	0	0	if $c eq 'b' and $$self{'allow_lowcase_bstrings'}
307	0	0	if ($c =~ /[hH]/o and $$self{'allow_lowcase_hstrings'})
311	0	0	if ($c eq 'B' and $val =~ /^$ITEM_BINARYSTRING$/o)
314	0	0	if ($c eq 'H' and $val =~ /^$ITEM_HEXADECIMALSTRING$/o)
323	27	288	if ($c eq '"')
329	0	27	if $c eq ''
333	27	0	if ($c eq '' or $c ne '"')
334	27	0	if $c
340	8	280	if ($c eq ':')
343	0	8	if $c eq ''
345	0	8	if ($c ne ':') { }
346	0	0	if $c
351	0	8	if $c eq ''
353	0	8	unless $c eq '='
359	44	236	if ($c =~ /\d/o)
364	44	0	if $c
365	0	44	unless $val =~ /^$ITEM_NUMBER$/
369	236	0	if ($c =~ /[a-zA-Z]/o)
376	61	233	if ($c eq '-')
379	0	61	if $c eq '' or $c eq "\n" or $c eq "\r"
382	3	58	if ($c eq '-')
386	2	2	if $c eq '' or $c eq "\n" or $c eq "\r"
389	1	1	if $c eq '' or $c eq "\n" or $c eq "\r" or $c eq '-'
394	1	2	if $val =~ /^$ITEM_TYPEREFERENCE$/o
397	1	1	if $val =~ /^$ITEM_IDENTIFIER$/o
398	0	1	if $val =~ /^$ITEM_IDENTIFIER2$/o and $$self{'allow_underscore'}
400	1	0	if $val eq 'PLUS-INFINITY'
401	0	0	if $val eq 'MINUS-INFINITY'
405	58	0	if $c ne ''
408	233	58	unless ($c =~ /[A-Za-z0-9]/o)
409	233	0	if $c
412	33	200	if defined $$keywords{$val}
416	102	98	if $val =~ /^$ITEM_TYPEREFERENCE$/o
418	96	2	if $val =~ /^$ITEM_IDENTIFIER$/o
419	1	1	if $val =~ /^$ITEM_IDENTIFIER2$/o and $$self{'allow_underscore'}
421	0	1	if $val eq 'PLUS-INFINITY'
422	1	0	if $val eq 'MINUS-INFINITY'
493	0	0	if (defined $level) { }
494	0	0	unless defined $$self{'msg'}
507	0	0	if (wantarray) { }
512	0	0	$SNMP::MIB::Compiler::DEBUG ? :
516	0	0	if defined $$self{'msg'}
528	66	435	if (@{$$self{'token_list'};}) { }
536	0	435	unless $res
538	0	0	$res ? :
	0	0	defined $k ? :
	0	501	if $$self{'debug_lexer'}
540	0	114	if defined $needed and $res and $$TOKEN[$res] ne $needed
553	0	66	if $$self{'debug_lexer'}
554	66	0	if (defined $$self{'current_token'}) { }
580	0	0	unless $file
582	0	0	if $$self{'make_dump'} and not $outdir
585	0	0	if ($file =~ m[/([^/]+)$]) { }
586	0	0	unless -e $file
601	0	0	if -e "$d/$file$e"
604	0	0	unless $windir
611	0	0	if ($$self{'use_dump'} and -e "$outdir/$file$$self{'dumpext'}")
612	0	0	if (-M $filename < -M "$outdir/$file$$self{'dumpext'}") { }
620	0	0	if (defined $fh)
623	0	0	if ($v)
636	0	0	if $v
642	0	0	unless (defined $fh)
652	0	0	if defined $$self{'msg'}
662	0	0	if ($$self{'debug_recursive'})
671	0	0	if defined $$mib{'msg'}
677	0	0	unless $r
682	0	0	if ($$self{'make_dump'})
689	0	0	if (defined $fh) { }
726	0	0	unless $file
728	0	0	unless $outdir
729	0	0	if ($$self{'use_dump'} and -e "$outdir/$file$$self{'dumpext'}") { }
732	0	0	if (defined $fh)
735	0	0	if ($v)
751	0	0	if $$self{'debug_lexer'}
761	0	2	unless ($token, $mibname) = $self->get_token('TYPEMODREFERENCE')
763	0	2	unless $self->get_token('DEFINITIONS')
764	0	2	unless $self->get_token('ASSIGNMENT')
765	0	2	unless $self->get_token('BEGIN')
766	0	2	unless ($token, $value) = $self->get_token
768	0	2	if ($token == $IMPORTS) { }
	0	2	elsif ($token == $EXPORTS) { }
	2	0	elsif ($token == $IDENTIFIER) { }
	0	0	elsif ($token == $TYPEMODREFERENCE) { }
770	0	0	if $$self{'do_imports'}
777	0	2	unless ($token, $value) = $self->get_token
778	0	2	unless $token
780	0	2	if ($token == $OBJECT) { }
	0	2	elsif ($token == $INTEGER) { }
	2	0	elsif ($value eq 'OBJECT-TYPE') { }
	0	0	elsif ($value eq 'OBJECT-IDENTITY') { }
	0	0	elsif ($value eq 'MODULE-IDENTITY') { }
	0	0	elsif ($value eq 'MODULE-COMPLIANCE') { }
	0	0	elsif ($value eq 'OBJECT-GROUP') { }
	0	0	elsif ($value eq 'NOTIFICATION-GROUP') { }
	0	0	elsif ($value eq 'AGENT-CAPABILITIES') { }
	0	0	elsif ($value eq 'TRAP-TYPE') { }
	0	0	elsif ($value eq 'NOTIFICATION-TYPE') { }
781	0	0	unless $self->get_token('IDENTIFIER')
782	0	0	unless $self->get_token('ASSIGNMENT')
788	0	0	unless $self->get_token('ASSIGNMENT')
789	0	0	unless ($token, $value) = $self->get_token
798	0	0	unless $$self{'accept_smiv2'}
804	0	0	unless $$self{'accept_smiv2'}
811	0	0	unless $$self{'accept_smiv2'}
818	0	0	unless $$self{'accept_smiv2'}
825	0	0	unless $$self{'accept_smiv2'}
832	0	0	unless $$self{'accept_smiv2'}
840	0	0	unless $$self{'accept_smiv1'}
847	0	0	unless $$self{'accept_smiv2'}
860	0	0	unless ($token, $value) = $self->get_token
861	0	0	if ($token == $ASSIGNMENT) { }
	0	0	elsif ($token == $MACRO) { }
869	0	0	unless ($token, $value) = $self->get_token('ASSIGNMENT')
871	0	0	unless ($token, $value) = $self->get_token
884	0	2	unless ($token, $value) = $self->get_token
886	0	2	unless $token == $END
897	0	0	if $type =~ /^(SEQUENCE|CHOICE|INTEGER|OCTET\ STRING|  OBJECT\ IDENTIFIER|NULL)$/ox
900	0	0	if $type =~ /^(IpAddress|Counter|Gauge|TimeTicks|Opaque)$/o
902	0	0	if $type =~ /^(Integer32|Counter32|Gauge32|Unsigned32|  Counter64)$/ox
904	0	0	defined $$self{'types'}{$type}{'syntax'} ? :
	0	0	defined $$self{'types'}{$type} ? :
914	0	0	unless defined $node
918	0	0	unless defined $$self{'nodes'}{$node} and scalar keys %{$$self{'nodes'}{$node};} or defined $$self{'root'}{$node} and scalar keys %{$$self{'root'}{$node};}
920	0	0	if (defined $$self{'nodes'}{$node}{'oid'} and not defined $$self{'nodes'}{$node}{'OID'})
930	0	0	if (defined $$self{'nodes'}{$$list[0]} and defined $$self{'nodes'}{$$list[0]}{'oid'} and not defined $$self{'nodes'}{$$list[0]}{'OID'})
938	0	0	if (defined $$self{'nodes'}{$$list[0]})
940	0	0	if ($#{$$self{'nodes'}{$$list[0]}{'OID'};} == $#{$$self{'nodes'}{$$list[0]}{'oid'};})
946	0	0	unless ${$$self{'nodes'}{$$list[0]}{'OID'};}[$i] eq ${$$self{'nodes'}{$$list[0]}{'oid'};}[$i]
948	0	0	unless ($eq)
954	0	0	unless $elem =~ /^\d+$/o
958	0	0	if scalar @a == 1
965	0	0	defined $$self{'nodes'}{$$list[0]} && scalar keys %{$$self{'nodes'}{$$list[0]};} ? :
968	0	0	if (defined $$self{'nodes'}{$l})
970	0	0	if (defined $$self{'nodes'}{$l} and defined $$self{'nodes'}{$l}{'oid'} and not defined $$self{'nodes'}{$l}{'OID'})
979	0	0	if (defined $$self{'root'}{$l})
995	0	0	unless $l[0] =~ /^\d+$/o
996	0	0	if $l[0] == $$self{'root'}{$id}{'oid'}[0]
1001	0	0	unless defined $$self{'tree'}{$node}{$elem}
1011	0	30	if $$self{'debug_lexer'}
1016	0	30	unless my($token, $value) = $self->get_token
1017	0	30	if ($value eq '-')
1018	0	0	unless ($token, $value) = $self->get_token
1019	0	0	unless $token == $NUMBER
1024	0	30	unless ($token, $value) = $self->get_token
1025	8	22	if ($value eq '.') { }
1026	0	8	unless $self->get_token('.')
1027	0	8	unless ($token, $value) = $self->get_token
1028	0	8	if ($value eq '-')
1029	0	0	unless ($token, $value) = $self->get_token
1030	0	0	unless $token == $NUMBER
1045	0	33	if $$self{'debug_lexer'}
1046	0	33	unless my($token, $value) = $self->get_token
1047	22	11	if ($token and $value eq '(') { }
	8	3	elsif ($token and $value eq '{') { }
1048	0	22	unless ($token, $value) = $self->get_token
1049	1	21	if ($token == $SIZE) { }
1051	0	1	unless $subtype
1052	0	1	unless $self->get_token(')')
1060	0	30	unless defined $v
1062	0	30	unless ($token, $value) = $self->get_token
1063	0	30	unless $value eq ')' or $value eq '|'
1069	14	7	scalar @$list == 1 ? :
1075	0	11	unless ($token, $value) = $self->get_token
1076	11	0	if ($token == $IDENTIFIER) { }
1078	0	11	unless defined $res
1086	0	11	unless ($token, $value) = $self->get_token
1087	0	11	unless $value eq '}' or $value eq ','
1102	0	10	if $$self{'debug_lexer'}
1103	0	10	unless my($token, $value) = $self->get_token
1104	0	10	if ($token == $IMPLICIT) { }
	10	0	elsif ($token == $INTEGER) { }
	0	0	elsif ($token == $OCTET) { }
	0	0	elsif ($token == $OBJECT) { }
	0	0	elsif ($token == $NULL) { }
	0	0	elsif ($token == $ANY and $$self{'allow_keyword_any'}) { }
	0	0	elsif ($token == $CHOICE) { }
	0	0	elsif ($token == $SEQUENCE) { }
	0	0	elsif ($value eq '[') { }
	0	0	elsif ($value eq 'TEXTUAL-CONVENTION') { }
	0	0	elsif ($token == $IDENTIFIER or $token == $TYPEMODREFERENCE) { }
1107	0	0	if (defined $ref and $ref eq 'HASH') { }
1120	9	1	if (defined $ref and $ref eq 'HASH') { }
1125	0	1	if (defined $subtype) { }
1135	0	0	unless ($token, $value) = $self->get_token
1136	0	0	if ($token == $STRING) { }
1148	0	0	unless ($token, $value) = $self->get_token
1149	0	0	if ($token == $IDENTIFIER) { }
1170	0	0	unless ($token, $value) = $self->get_token('{')
1173	0	0	unless ($token, $value) = $self->get_token
1176	0	0	if (defined $ref and $ref eq 'HASH') { }
1182	0	0	unless ($token, $value) = $self->get_token
1183	0	0	unless $value eq '}' or $value eq ','
1194	0	0	unless ($token, $value) = $self->get_token
1195	0	0	if ($value eq '(')
1198	0	0	unless ($token, $value) = $self->get_token
1200	0	0	if ($token == $OF)
1202	0	0	unless my($t1, $t2) = $self->get_token
1209	0	0	if (defined $subtype)
1214	0	0	if ($value eq '{') { }
1217	0	0	unless ($token, $value) = $self->get_token
1219	0	0	if ($token == $CHOICE) { }
1227	0	0	if (defined $ref and $ref eq 'HASH') { }
1235	0	0	unless ($token, $value) = $self->get_token
1236	0	0	unless $value eq '}' or $value eq ','
1251	0	0	unless ($token, $value) = $self->get_token
1252	0	0	unless $value eq ']'
1277	0	0	unless my($token, $value) = $self->get_token
1278	0	0	if ($value eq 'DISPLAY-HINT')
1279	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1281	0	0	unless ($token, $value) = $self->get_token
1283	0	0	if ($value eq 'STATUS') { }
1284	0	0	unless ($token, $value) = $self->get_token
1285	0	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1292	0	0	unless ($token, $value) = $self->get_token
1298	0	0	if ($value eq 'DESCRIPTION') { }
1299	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1301	0	0	unless ($token, $value) = $self->get_token
1307	0	0	if ($value eq 'REFERENCE')
1308	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1310	0	0	unless ($token, $value) = $self->get_token
1312	0	0	if ($value eq 'SYNTAX') { }
1314	0	0	unless ($token, $value) = $self->get_token
1315	0	0	if ($value eq 'BITS') { }
1317	0	0	unless $self->get_token('{')
1319	0	0	unless ($token, $value) = $self->get_token
1321	0	0	unless $self->get_token('(')
1322	0	0	unless ($token, $value) = $self->get_token('NUMBER')
1324	0	0	unless $self->get_token(')')
1326	0	0	unless ($token, $value) = $self->get_token
1347	0	0	unless ($token, $value) = $self->get_token
1348	0	0	if ($value eq 'STATUS') { }
1349	0	0	unless ($token, $value) = $self->get_token
1350	0	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1357	0	0	unless ($token, $value) = $self->get_token
1363	0	0	if ($value eq 'DESCRIPTION') { }
1364	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1366	0	0	unless ($token, $value) = $self->get_token
1372	0	0	if ($value eq 'REFERENCE')
1373	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1375	0	0	unless ($token, $value) = $self->get_token
1377	0	0	unless $token == $ASSIGNMENT
1389	0	0	unless ($token, $value) = $self->get_token
1390	0	0	if ($value eq 'LAST-UPDATED') { }
1391	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1393	0	0	unless ($token, $value) = $self->get_token
1399	0	0	if ($value eq 'ORGANIZATION') { }
1400	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1402	0	0	unless ($token, $value) = $self->get_token
1408	0	0	if ($value eq 'CONTACT-INFO') { }
1409	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1411	0	0	unless ($token, $value) = $self->get_token
1417	0	0	if ($value eq 'DESCRIPTION') { }
1418	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1420	0	0	unless ($token, $value) = $self->get_token
1427	0	0	unless defined $$data{'revision'}
1428	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1430	0	0	unless ($token, $value) = $self->get_token
1431	0	0	unless $value eq 'DESCRIPTION'
1434	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1437	0	0	unless ($token, $value) = $self->get_token
1439	0	0	unless $token == $ASSIGNMENT
1451	0	0	unless ($token, $value) = $self->get_token
1452	0	0	if ($value eq 'OBJECTS')
1454	0	0	unless ($token, $value) = $self->get_token('{')
1456	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1459	0	0	unless ($token, $value) = $self->get_token
1462	0	0	unless ($token, $value) = $self->get_token
1464	0	0	if ($value eq 'STATUS') { }
1465	0	0	unless ($token, $value) = $self->get_token
1466	0	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1473	0	0	unless ($token, $value) = $self->get_token
1479	0	0	if ($value eq 'DESCRIPTION') { }
1480	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1482	0	0	unless ($token, $value) = $self->get_token
1488	0	0	if ($value eq 'REFERENCE')
1489	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1491	0	0	unless ($token, $value) = $self->get_token
1493	0	0	unless $token == $ASSIGNMENT
1505	0	3	unless ($token, $value) = $self->get_token
1507	3	0	if ($value eq 'STATUS') { }
1508	0	3	unless ($token, $value) = $self->get_token
1509	3	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1516	0	3	unless ($token, $value) = $self->get_token
1522	3	0	if ($value eq 'DESCRIPTION') { }
1523	0	3	unless ($token, $value) = $self->get_token('CSTRING')
1525	0	3	unless ($token, $value) = $self->get_token
1531	0	3	if ($value eq 'REFERENCE')
1532	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1534	0	0	unless ($token, $value) = $self->get_token
1538	0	5	unless ($token, $value) = $self->get_token
1540	5	14	if ($value eq 'MANDATORY-GROUPS') { }
	2	12	elsif ($value eq 'GROUP') { }
	10	2	elsif ($value eq 'OBJECT') { }
	2	0	elsif ($token == $TYPEMODREFERENCE) { }
1542	0	5	unless ($token, $value) = $self->get_token('{')
1544	0	9	unless ($token, $value) = $self->get_token('IDENTIFIER')
1547	0	9	unless ($token, $value) = $self->get_token
1552	0	2	unless ($token, $value) = $self->get_token('IDENTIFIER')
1554	0	2	unless ($token, $value) = $self->get_token
1555	0	2	unless $value eq 'DESCRIPTION'
1558	0	2	unless ($token, $value) = $self->get_token('CSTRING')
1562	0	10	unless ($token, $value) = $self->get_token('IDENTIFIER')
1564	0	10	unless ($token, $value) = $self->get_token
1565	5	5	if ($value eq 'SYNTAX')
1568	0	5	unless ($token, $value) = $self->get_token
1570	0	10	if ($value eq 'WRITE-SYNTAX')
1573	0	0	unless ($token, $value) = $self->get_token
1575	10	0	if ($value eq 'MIN-ACCESS')
1576	0	10	unless ($token, $value) = $self->get_token
1577	10	0	if ($value =~ /^(read-(only|write|create)|not-accessible|  accessible-for-notify)$/ox) { }
1585	0	10	unless ($token, $value) = $self->get_token
1587	10	0	if ($value eq 'DESCRIPTION')
1588	0	10	unless ($token, $value) = $self->get_token('CSTRING')
1590	0	10	unless ($token, $value) = $self->get_token
1597	0	2	unless ($token, $value) = $self->get_token
1598	0	2	if ($token == $IDENTIFIER) { }
1609	0	19	unless ($token, $value) = $self->get_token
1612	0	3	unless $token == $ASSIGNMENT
1624	0	0	unless ($token, $value) = $self->get_token
1625	0	0	if ($value eq 'OBJECTS') { }
1629	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1632	0	0	unless ($token, $value) = $self->get_token
1635	0	0	unless ($token, $value) = $self->get_token
1641	0	0	if ($value eq 'STATUS') { }
1642	0	0	unless ($token, $value) = $self->get_token
1643	0	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1650	0	0	unless ($token, $value) = $self->get_token
1656	0	0	if ($value eq 'DESCRIPTION') { }
1657	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1659	0	0	unless ($token, $value) = $self->get_token
1665	0	0	if ($value eq 'REFERENCE')
1666	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1668	0	0	unless ($token, $value) = $self->get_token
1670	0	0	unless $token == $ASSIGNMENT
1682	0	0	unless ($token, $value) = $self->get_token
1683	0	0	if ($value eq 'NOTIFICATIONS') { }
1685	0	0	unless ($token, $value) = $self->get_token('{')
1687	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1690	0	0	unless ($token, $value) = $self->get_token
1693	0	0	unless ($token, $value) = $self->get_token
1699	0	0	if ($value eq 'STATUS') { }
1700	0	0	unless ($token, $value) = $self->get_token
1701	0	0	if ($value =~ /^(current|deprecated|obsolete)$/o) { }
1708	0	0	unless ($token, $value) = $self->get_token
1714	0	0	if ($value eq 'DESCRIPTION') { }
1715	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1717	0	0	unless ($token, $value) = $self->get_token
1723	0	0	if ($value eq 'REFERENCE')
1724	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1726	0	0	unless ($token, $value) = $self->get_token
1728	0	0	unless $token == $ASSIGNMENT
1741	0	1	unless $token
1743	1	0	if ($value eq 'PRODUCT-RELEASE') { }
1744	0	1	unless ($token, $value) = $self->get_token('CSTRING')
1746	0	1	unless ($token, $value) = $self->get_token
1753	1	0	if ($value eq 'STATUS') { }
1754	0	1	unless ($token, $value) = $self->get_token
1755	1	0	if ($value =~ /^(current|obsolete)$/o) { }
1757	0	1	unless ($token, $value) = $self->get_token
1769	1	0	if ($value eq 'DESCRIPTION') { }
1770	0	1	unless ($token, $value) = $self->get_token('CSTRING')
1772	0	1	unless ($token, $value) = $self->get_token
1779	0	1	if ($value eq 'REFERENCE')
1780	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1782	0	0	unless ($token, $value) = $self->get_token
1787	6	0	if ($value eq 'INCLUDES')
1789	0	6	unless ($token, $value) = $self->get_token('{')
1791	0	12	unless ($token, $value) = $self->get_token('IDENTIFIER')
1794	0	12	unless ($token, $value) = $self->get_token
1797	0	6	unless ($token, $value) = $self->get_token
1800	0	8	unless ($token, $value) = $self->get_token('IDENTIFIER')
1802	0	8	unless ($token, $value) = $self->get_token
1803	3	5	if ($value eq 'SYNTAX')
1806	0	3	unless ($token, $value) = $self->get_token
1808	0	8	if ($value eq 'WRITE-SYNTAX')
1811	0	0	unless ($token, $value) = $self->get_token
1813	2	6	if ($value eq 'ACCESS')
1814	0	2	unless ($token, $value) = $self->get_token
1815	2	0	if ($value =~ /^(not-implemented|accessible-for-notify|  read-(only|write|create)|write-only)$/ox) { }
1823	0	2	unless ($token, $value) = $self->get_token
1825	2	6	if ($value eq 'CREATION-REQUIRES')
1827	0	2	unless ($token, $value) = $self->get_token('{')
1829	0	2	unless ($token, $value) = $self->get_token('IDENTIFIER')
1832	0	2	unless ($token, $value) = $self->get_token
1836	0	2	unless ($token, $value) = $self->get_token
1838	0	8	if ($value eq 'DEFVAL')
1839	0	0	unless ($token, $value) = $self->get_token('{')
1840	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1842	0	0	unless ($token, $value) = $self->get_token('}')
1843	0	0	unless ($token, $value) = $self->get_token
1845	8	0	if ($value eq 'DESCRIPTION') { }
1846	0	8	unless ($token, $value) = $self->get_token('CSTRING')
1848	0	8	unless ($token, $value) = $self->get_token
1856	6	1	if ($value eq 'SUPPORTS')
1858	0	6	unless ($token, $value) = $self->get_token
1860	0	6	unless ($token, $value) = $self->get_token
1861	0	6	if ($token == $IDENTIFIER) { }
1868	6	1	unless $token == $ASSIGNMENT
1881	0	0	unless ($token, $value) = $self->get_token
1882	0	0	if ($value eq 'ENTERPRISE') { }
1883	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1885	0	0	unless ($token, $value) = $self->get_token
1891	0	0	if ($value eq 'VARIABLES')
1893	0	0	unless ($token, $value) = $self->get_token('{')
1895	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
1898	0	0	unless ($token, $value) = $self->get_token
1901	0	0	unless ($token, $value) = $self->get_token
1903	0	0	if ($value eq 'DESCRIPTION')
1904	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1906	0	0	unless ($token, $value) = $self->get_token
1908	0	0	if ($value eq 'REFERENCE')
1909	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1911	0	0	unless ($token, $value) = $self->get_token
1913	0	0	if ($token == $ASSIGNMENT) { }
1914	0	0	unless my $value = $self->get_token('NUMBER')
1930	0	2	unless ($token, $value) = $self->get_token
1931	2	0	if ($value eq 'SYNTAX') { }
1934	0	2	unless ($token, $value) = $self->get_token
1935	0	2	if ($$self{'accept_smiv2'} and $value eq 'BITS') { }
1937	0	0	unless $self->get_token('{')
1939	0	0	unless ($token, $value) = $self->get_token
1941	0	0	unless $self->get_token('(')
1942	0	0	unless ($token, $value) = $self->get_token('NUMBER')
1944	0	0	unless $self->get_token(')')
1946	0	0	unless ($token, $value) = $self->get_token
1955	2	0	if (defined $ref and $ref eq 'HASH') { }
1963	0	2	if ($subtype)
1969	0	2	unless ($token, $value) = $self->get_token
1975	0	2	if ($$self{'accept_smiv2'} and $value eq 'UNITS')
1976	0	0	unless ($token, $value) = $self->get_token('CSTRING')
1978	0	0	unless ($token, $value) = $self->get_token
1980	2	0	if ($value eq 'ACCESS' or $value eq 'MAX-ACCESS') { }
1981	0	2	if ($value eq 'MAX-ACCESS') { }
1982	0	0	unless $$self{'accept_smiv2'}
1984	0	0	unless ($token, $value) = $self->get_token
1985	0	0	if ($value =~ /^(read-(only|write)|not-accessible|  accessible-for-notify|read-create)$/ox) { }
1996	0	2	unless $$self{'accept_smiv1'}
1998	0	2	unless ($token, $value) = $self->get_token
1999	2	0	if ($value =~ /^(read-(only|write)|write-only|not-accessible)$/o) { }
2008	0	2	unless ($token, $value) = $self->get_token
2011	0	0	if ($$self{'accept_smiv1'} and not $$self{'accept_smiv2'}) { }
	0	0	elsif (not $$self{'accept_smiv1'} and $$self{'accept_smiv2'}) { }
2024	2	0	if ($value eq 'STATUS') { }
2025	0	2	unless ($token, $value) = $self->get_token
2026	2	0	if ($$self{'accept_smiv1'} and $value =~ /^(mandatory|optional|obsolete|deprecated)$/o) { }
	0	0	elsif ($$self{'accept_smiv2'} and $value =~ /^(current|obsolete|deprecated)$/o) { }
2041	0	2	unless ($token, $value) = $self->get_token
2047	2	0	if ($value eq 'DESCRIPTION') { }
2048	0	2	unless ($token, $value) = $self->get_token('CSTRING')
2050	0	2	unless ($token, $value) = $self->get_token
2053	0	0	unless $$self{'accept_smiv1'}
2056	0	2	if ($value eq 'REFERENCE')
2057	0	0	unless ($token, $value) = $self->get_token('CSTRING')
2059	0	0	unless ($token, $value) = $self->get_token
2061	0	2	if ($value eq 'INDEX')
2063	0	0	unless ($token, $value) = $self->get_token('{')
2065	0	0	unless ($token, $value) = $self->get_token
2067	0	0	if ($value eq 'IMPLIED')
2073	0	0	unless ($token, $value) = $self->get_token
2076	0	0	unless ($token, $value) = $self->get_token
2078	0	2	if ($value eq 'AUGMENTS' and $$self{'accept_smiv2'})
2079	0	0	if defined $$data{'index'}
2081	0	0	unless $self->get_token('{')
2082	0	0	unless ($token, $value) = $self->get_token('IDENTIFIER')
2084	0	0	unless $self->get_token('}')
2085	0	0	unless ($token, $value) = $self->get_token
2087	0	2	if ($value eq 'DEFVAL')
2090	0	0	unless $self->get_token('{')
2091	0	0	unless ($token, $value) = $self->get_token
2092	0	0	if ($value eq '-')
2093	0	0	unless ($token, $value) = $self->get_token
2096	0	0	unless $self->get_token('}')
2098	0	0	unless ($token, $value) = $self->get_token
2100	2	0	if ($token == $ASSIGNMENT) { }
2121	0	6	unless $self->get_token('{')
2123	0	6	unless ($token, $value) = $self->get_token
2125	12	0	if ($token == $IDENTIFIER or $token == $NUMBER) { }
	0	0	elsif ($value eq '(') { }
2132	0	0	if ($old2 and $old) { }
2133	0	0	unless ($token, $value) = $self->get_token('NUMBER')
2134	0	0	unless $self->get_token(')')
2150	0	12	unless ($token, $value) = $self->get_token
2166	0	0	unless ($token, $value) = $self->get_token
2168	0	0	if ($token == $IDENTIFIER or $token == $TYPEMODREFERENCE) { }
	0	0	elsif ($value eq ',') { }
	0	0	elsif ($token == $FROM) { }
2170	0	0	if $elem
2176	0	0	unless $elem
2183	0	0	unless ($token, $value) = $self->get_token
2184	0	0	if ($token == $IDENTIFIER or $token == $TYPEMODREFERENCE) { }
2187	0	0	if defined $$data{$value}
2202	0	0	unless ($token, $value) = $self->get_token
2217	0	0	unless ($token, $value) = $self->get_token
2219	0	0	if ($token == $IDENTIFIER or $token == $TYPEMODREFERENCE) { }
	0	0	elsif ($value eq ',') { }
2221	0	0	if $elem
2227	0	0	unless $elem
2235	0	0	unless ($token, $value) = $self->get_token
2244	0	0	if $$self{'debug_lexer'}
2258	0	0	if ($$self{'debug_recursive'})
2262	0	0	unless $mib->load($k)
2264	0	0	if $$self{'debug_lexer'}
2266	0	0	if (defined $$mib{'nodes'}{$item}) { }
	0	0	elsif (defined $$mib{'types'}{$item}) { }
2275	0	0	unless $elem =~ /^\d+$/o
2279	0	0	if scalar @a == 1
2288	0	0	if $macro eq $item
2290	0	0	unless $found
2294	0	0	if $$self{'debug_lexer'}
2303	0	0	if defined $dir
2311	0	0	if $#_ == -1
2323	0	0	if defined $ext
2331	0	0	if $#_ == -1
2372	0	0	unless defined $level
2373	0	0	unless defined $inc
2375	0	0	$level ? :
	0	0	unless defined $$self{'tree'}{$node}
2376	0	0	unless ($level)
2385	0	0	if defined $$self{'nodes'}{$new}{'access'}
2387	0	0	if $access
2389	0	0	if defined $$self{'nodes'}{$new}{'syntax'} and defined $$self{'nodes'}{$new}{'syntax'}{'type'}
2392	0	0	if ($type)
2394	0	0	defined $$treetypes{$type} ? :
2396	0	0	if $type =~ /^\s+$/o
2399	0	0	if (defined $$self{'tree'}{$new})
2432	360	7315	if ($$self{'saved'}) { }
	7315	0	elsif (defined($char = CORE::getc $$self{'fh'})) { }
2435	109	251	if $char eq "\n"
2439	257	7058	if $char eq "\n"
2451	113	251	if $$self{'save'} eq "\n"