"{ Package: 'stx:goodies/petitparser' }"

PPDelegateParser subclass:#PPOptionalParser
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitParser-Parsers'
!


!PPOptionalParser methodsFor:'*petitanalyzer-testing'!

isNullable
	^ true
! !

!PPOptionalParser methodsFor:'parsing'!

parseOn: aStream
	| element |
	element := parser parseOn: aStream.
	^ element isPetitFailure ifFalse: [ element ]
! !

!PPOptionalParser class methodsFor:'documentation'!

version_SVN
    ^ '$Id: PPOptionalParser.st,v 1.4 2014-03-04 14:33:10 cg Exp $'
! !