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
]