Class {
	#name : 'PPCMFencedCode',
	#superclass : 'PPCMDelegateNode',
	#instVars : [
		'infoString'
	],
	#category : 'PetitMarkdown-AST'
}

{ #category : 'visiting' }
PPCMFencedCode >> accept: visitor [
	^ visitor visitFencedCode: self
]

{ #category : 'accessing' }
PPCMFencedCode >> code [
	"hackity hack, this should not be used except for tests..."
	^ String cr join: (self children collect: [ :e | e text ])
]

{ #category : 'accessing' }
PPCMFencedCode >> infoString [
	^ infoString
]

{ #category : 'accessing' }
PPCMFencedCode >> infoString: anObject [
	infoString := anObject
]

{ #category : 'testing' }
PPCMFencedCode >> isBlockLevel [
	^ true
]