a

SҼa���@s�dZd
dl
Z
d
dlmZmZmZmZmZmZm	Z	m
Z

d
dlmZm
Z
mZmZmZmZmZmZ
d
dlmZ
ddgZGdd�de�ZGd	d�de�ZdS)
z�
    pygments.lexers.perl
    ~~~~~~~~~~~~~~~~~~~~

    Lexers for Perl, Raku and related languages.

    :copyright: Copyright 2006-2021 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�ExtendedRegexLexer�include�bygroups�using�this�default�words)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation)
�shebang_matches�	PerlLexer�
Perl6Lexerc4@s�eZ
dZd
ZdZddgZgd�
ZddgZej	ej
BZdej
d	fd
ej
d	fdej
d	fdej
d	fd
ej
d	fdej
d	fdej
d	fdej
d	fdej
d	fdej
d	fg
dejfdejfdejfeddd�efdeeeeeee�dfdejfdej
fdej
fdej
fdej
fd ej
fd!ej
d"fd#ej
d"fd$ej
d"fd%ej
d"fd&ej
fd'ej
d"fd(ej
fd)efed*dd�ejfd+ejjfd,eeeejeeje�fd-ejd.fd/ejjfd0ejjfd1ejd2fd3e j!fd4e j"fd5e j#fd6e j$fd7e j$fd8e j%fd9efd:efd;ej&fd<ej
fd=ej'd>fd?ej'd@fdAej'dBfdCej'dDfdEej'fdFeeeej(�fdGeeeej(�fdHeee�dIfedJdd�efdKefdLefdMefdNedOfg1dPej)d	fdQej)fgd)efdRed	fdSed	fdTej(fdUejd	fgdVej(d	fdWej(d	fdUed	fdXej*d	fdYed	fgdZej+fd)efd[eee�fd\ed	fd]ed	fgd^ej'fd_ej'fdRej'd>fd`ej'd	fdaej'fgdbej'fd_ej'fdcej'd@fddej'd	fdeej'fgdfej'fd_ej'fdgej'dBfdhej'd	fdiej'fgdjej'fd_ej'fdkej'dDfdlej'd	fdmej'fgdnejd	fg
do�Z,dpdq�Z-drS)srz9
    For `Perl <https://www.perl.org>`_ source code.
    �Perl�perl�pl)�*.pl�*.pm�*.tz*.perlztext/x-perlzapplication/x-perlz"/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*�#popz"!(\\\\|\\[^\\]|[^\\!])*![egimosx]*z\\(\\\\|[^\\])*\\[egimosx]*z$\{(\\\\|\\[^\\]|[^\\}])*\}[egimosx]*z"<(\\\\|\\[^\\]|[^\\>])*>[egimosx]*z%\[(\\\\|\\[^\\]|[^\\\]])*\][egimosx]*z$\((\\\\|\\[^\\]|[^\\)])*\)[egimosx]*z"@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z"%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*z$\$(\\\\|\\[^\\]|[^\\$])*\$[egimosx]*z	\A\#!.+?$z\#.*?$z^=[a-zA-Z0-9]+\s+.*?\n=cut)Zcase�continue�do�else�elsif�forZforeach�if�last�my�next�our�redo�reset�then�unless�until�while�print�new�BEGIN�CHECK�INIT�END�returnz\b�
�suffixz!(format)(\s+)(\w+)(\s*)(=)(\s*\n)�formatz$(eq|lt|gt|le|ge|ne|not|and|or|cmp)\bz:s/(\\\\|\\[^\\]|[^\\/])*/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*z.s!(\\\\|\\!|[^!])*!(\\\\|\\!|[^!])*![egimosx]*z+s\\(\\\\|[^\\])*\\(\\\\|[^\\])*\\[egimosx]*z:s@(\\\\|\\[^\\]|[^\\@])*@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z:s%(\\\\|\\[^\\]|[^\\%])*%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*zs\{(\\\\|\\[^\\]|[^\\}])*\}\s*�balanced-regexzs<(\\\\|\\[^\\]|[^\\>])*>\s*zs\[(\\\\|\\[^\\]|[^\\\]])*\]\s*zs\((\\\\|\\[^\\]|[^\\)])*\)\s*z&m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*zm(?=[/!\\{<\[(@%$])z6((?<==~)|(?<=\())\s*/(\\\\|\\[^\\]|[^\\/])*/[gcimosx]*z\s+)��abs�accept�alarm�atan2ZbindZbinmode�blessZcaller�chdir�chmod�chomp�chop�chown�chr�chroot�closeZclosedir�connectr�cosZcryptZdbmcloseZdbmopen�defined�delete�die�dumpZeachZendgrentZ
endhostentZ	endnetentZendprotoentZendpwentZ
endservent�eof�eval�exec�exists�exit�expZfcntl�filenoZflock�forkr5Zformline�getcZgetgrent�getgrgid�getgrnamZ
gethostbyaddrZ
gethostbynameZ
gethostent�getloginZgetnetbyaddrZgetnetbynameZ	getnetentZgetpeername�getpgrp�getppid�getpriorityZgetprotobynameZgetprotobynumberZgetprotoentZgetpwent�getpwnam�getpwuidZ
getservbynameZ
getservbyportZ
getserventZgetsocknameZ
getsockopt�glob�gmtimeZgoto�grep�hex�import�index�intZioctl�join�keys�killr"�lcZlcfirst�length�link�listen�local�	localtime�log�lstat�map�mkdirZmsgctlZmsggetZmsgrcvZmsgsndr#r$�oct�openZopendir�ordr%�pack�pipe�pop�pos�printfZ	prototype�pushZ	quotemeta�rand�readZreaddir�readline�readlinkZreadpipe�recvr&�ref�rename�reverseZ	rewinddir�rindex�rmdirZscalar�seekZseekdirZselectZsemctlZsemgetZsemop�sendZsetgrentZ
sethostentZ	setnetent�setpgrp�setpriorityZsetprotoentZsetpwentZ
setserventZ
setsockopt�shiftZshmctlZshmgetZshmreadZshmwriteZshutdown�sin�sleepZsocketZ
socketpair�sort�splice�split�sprintf�sqrt�srand�statZstudy�substr�symlinkZsyscallZsysopenZsysreadZsysseek�systemZsyswrite�tellZtelldirZtieZtied�time�times�tr�truncate�ucZucfirst�umaskZundef�unlink�unpack�unshiftZuntie�utime�valuesZvec�wait�waitpidZ	wantarray�warn�writez+((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\bz/(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)Z__END__�end-partz\$\^[ADEFHILMOPSTWX]z(\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)z[$@%#]+�varname�0_?[0-7]+(_[0-7]+)*�0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*�0b[01]+(_[01]+)*�?(?i)(\d*(_\d*)*\.\d+(_\d*)*|\d+(_\d*)*\.\d+(_\d*)*)(e[+-]?\d+)?�(?i)\d+(_\d*)*e[+-]?\d+(_\d*)*�
\d+(_\d+)*�'(\\\\|\\[^\\]|[^'\\])*'�"(\\\\|\\[^\\]|[^"\\])*"z`(\\\\|\\[^\\]|[^`\\])*`z<([^\s>]+)>z(q|qq|qw|qr|qx)\{�	cb-stringz(q|qq|qw|qr|qx)\(�	rb-stringz(q|qq|qw|qr|qx)\[�	sb-stringz(q|qq|qw|qr|qx)\<�	lt-stringz (q|qq|qw|qr|qx)([\W_])(.|\n)*?\2z/(package)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)z6(use|require|no)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)z
(sub)(\s+)�funcname)�no�package�require�usez=(\[\]|\*\*|::|<<|>>|>=|<=>|<=|={3}|!=|=~|!~|&&?|\|\||\.{1,3})z[-+/*%=<>&^|!\\~]=?z[()\[\]:;,<>/?{}]z(?=\w)�namez\.\nz[^\n]*\n�\{z\)|,z\w+::z[\w:]+z+[a-zA-Z_]\w*(::[a-zA-Z_]\w*)*(::)?(?=\s*->)z[a-zA-Z_]\w*(::[a-zA-Z_]\w*)*::z
[A-Z_]+(?=\W)z(?=\W)z[a-zA-Z_]\w*[!?]?z(\([$@%]*\))(\s*)�
;z.*?\{z\\[{}\\]z\\�\}z[^{}\\]+z\\[()\\]z\(z\)z[^()]+z
\\[\[\]\\]z\[z\]z[^\[\]]+z\\[<>\\]z\<z\>z[^<>]+z.+)r6�rootr5r�r�r�r�r�r�r�r�c
Cs:t|d
�rdSd}
t
�d|�r&|
d7}
d|vr6|
d}
|
S)NrTr
z(?:my|our)\s+[$@%(]g�������?�:=�)r�re�search)�text�result�r��8/usr/lib/python3.9/site-packages/pygments/lexers/perl.py�analyse_text�s



zPerlLexer.analyse_textN).�__name__�
__module__�__qualname__�__doc__r��aliases�	filenames�	mimetypesr��DOTALL�	MULTILINE�flagsr�RegexrZHashbang�Single�	Multiliner	r
rr
rrrZWord�BuiltinZPseudoZ	DelimiterZPreproc�Variable�Globalr�Oct�Hex�Bin�Float�IntegerZBacktickZOther�	NamespaceZInterpolZConstantZFunction�tokensr�r�r�r�r�rs4























�



��
�
�


�
�




�
�



�
��


�











�















�
�

��
�
�f

�




�






�


�	





�





�





�





�
���.c�sLeZ
dZd
ZdZgd�
Zgd�
ZddgZej	ej
BejBZdZ
dZd	Zd
ZdZdd
ddddddddddddddddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dd�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�dȜ�Z�
dd�d̄
Zd�d΄Zd�dЄZd�d҄Zd�dԄZd�dʠe�
d�eej�
fd�ejfd�ejfd�ejfd�ejfd�e
d�eee�d�fd�e
d�e
d�eee�d�fd�eeeee�feee
�efeee
d�d�ej feee
�ej fd�e
d�ej!fd�ej!j"fd�ej!j"fd�e
d�ej!j"fd�ej!fd�ee#�
fd�e$j%fd�e$j&fd�e$j'fd�e$j(fd�e$j(fd�e$j)fd�e#j*fd�e#j*fd�efd�ee#j*�
fd�e#j*fd�e#fee�
e+fd�e
d�efd�e#fd�e#fg!e,d��
d�efd�efd�efge,d��
d�e�
dfd�efg�
d
dʠe�
d�ee�
�
dfe-�
d�
gd�e�
df�
de.e/�
f�
de#j*f�
de#j*f�
de#j*f�
dejfd�efd�e#j*fg�
d	�Z0�
d
�
d�Z1�f
�
d�
d
�Z2�Z3S(
rzd
    For `Raku <https://www.raku.org>`_ (a.k.a. Perl 6) source code.

    .. versionadded:: 2.0
    ZPerl6)Zperl6Zpl6Zraku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz	*.rakumodz
*.rakutestz	*.rakudocztext/x-perl6zapplication/x-perl6z['\w:-])Nr.ZCATCHr/ZCLOSEZCONTROLZDOCr1ZENTERZFIRSTr0ZKEEPZLASTZLEAVEZNEXTZPOSTZPREZQUITZUNDOZanonZaugment�but�classZconstantr�doesrr�enumr ZgatherZgivenZgrammarZhasr!r_�isZletZloop�made�make�method�module�multir#ZneedZorwithr%Zproceed�proto�repeatr�r2z	return-rw�returns�roleZrule�state�subZ	submethodZsubsetZsucceedZ	supersede�token�tryZunitr)r*r��whenr+�withZwithoutZexportZnative�repr�required�rw�symbol(ZACCEPTSr7Zabs2rel�absoluter8ZaccessedZacosZacosecZacosechZacoshZacotanZacotanh�acquireZact�action�actions�addZ
add_attributeZadd_enum_value�add_fallbackZ
add_methodZ
add_parentZadd_private_methodZadd_roleZadd_trusteeZadverb�after�all�allocateZallof�allowedzalternative-names�annotationsZantipairZ	antipairs�anyZanyofZapp_lifetime�appendZarchZarchname�argsZarity�ArrayZasecZasechZasinZasinhz
ASSIGN-KEYz
ASSIGN-POSZassuming�astZatZatanr:ZatanhzAT-KEYz
atomic-assignzatomic-dec-fetchzatomic-fetchzatomic-fetch-addzatomic-fetch-deczatomic-fetch-inczatomic-fetch-subzatomic-inc-fetchzAT-POSZ
attributesZauth�awaitZ	backtrace�Bag�BagHashzbail-out�base�basenamezbase-repeatingZbatchzBIND-KEYzBIND-POSzbind-stderrz
bind-stdinzbind-stdoutzbind-udp�bitsr;�block�Boolz	bool-onlyZbounds�breakZBridge�brokenZBUILDz
build-date�bytes�cacheZ	callframezcalling-packagezCALL-MEZcallsameZcallwithZcan�cancelZ
candidatesZcandozcan-okZ	canonpathZcapsZcaption�CaptureZcasZcatdirZ
categorizezcategorize-listZcatfileZcatpath�causeZceilingZcglobalZchanged�Channel�charsr<�childz
child-namezchild-typenamer=r>r?rAZchrs�chunksZcisZclassifyz
classify-listZcleanupZclonerC�closedzclose-stdinzcmp-ok�codeZcodesZcollate�columnZcomb�combinationsZcommandZcomment�compiler�ComplexZcomposeZcompose_typeZcomposerZ	conditionZconfigZconfigure_destroyZconfigure_type_checkingZconjrD�constraintsZ	construct�contains�contents�copyrEZcosecZcosechZcoshZcotanZcotanh�countz
count-onlyz	cpu-coresz	cpu-usageZCREATEZcreate_typeZcrossZcue�curdirZcurupdir�
d�Date�DateTimeZdayZdaycountzday-of-monthzday-of-weekzday-of-yearz
days-in-monthZdeclaration�decode�decoderZdeepmaprrFZDEFINITEZdelayedz
DELETE-KEYz
DELETE-POS�denominatorZdescZDESTROYZ
destroyers�devnullZdiagzdid-you-meanrHzdies-ok�dir�dirnamezdir-sepZDISTROnamesrr�zdoes-okZdonezdone-testingZduckmapZdynamic�
eZeagerZearlierZelems�emitZ	enclosing�encode�encoder�encoding�endz	ends-withZenum_from_valueZenum_value_listZenum_valuesZenumsrJZEVALzeval-dies-okZEVALFILEz
eval-lives-ok�	exceptionzexcludes-maxzexcludes-minz
EXISTS-KEYz
EXISTS-POSrNZexitcoderOZexpectedzexplicitly-manageZexpmod�	extension�
fZfailz
fails-likeZfcZfeature�file�filenameZfind_methodZfind_method_qualifiedZfinish�firstZflatZflatmapZflipZfloorZflunk�flushZfmtr5�	formatterZfreeze�fromz	from-listz	from-loopz
from-posixZfullzfull-barrier�getZ	get_valuerRZgistZgotZgrabZ	grabpairsr]ZhandleZhandledZhandlesZhardwareZhas_accessor�Hash�headZheaderszhh-mm-ssZhiddenZhidesZhourZhowZhyper�idZillegalZim�in�indentr`�indicesZindirZinfiniteZinfixz	infix:<+>z	infix:<->Zinstall_method_cache�InstantZinstead�Intz
int-bounds�intervalzin-timezonezinvalid-str�invertZinvocant�IOzIO::Notification.watch-pathZ
is_trustedZis_typeZisazis-absolutezisa-okz	is-approxz	is-deeplyz	is-hiddenzis-initial-threadzis-intzis-lazyzis-leap-yearZisNaNZisntzis-primezis-relativez
is-routinez
is-settingzis-win�item�iteratorrbZkeepZkeptZKERNELnames�keyZkeyofrcrdZkvZkxxv�
l�langr"ZlastcallZlaterZlazyreZleading�levelZlike�line�linesrg�ListrhZlivezlives-okri�lockrkZlog10�lookupZlsbr�ZMAINr��Map�match�maxZmaxpairs�merge�messager�Zmethod_table�methodsZmigrate�minZminmaxZminpairsZminuteZ	misplaced�Mix�MixHashrn�modeZmodifiedZmonth�move�mroZmsbr�Z	multinessr#r�ZnamedZnamed_namesZnarrowZ
nativecastznative-descriptorZnativesizeofr-�new_typeznew-from-daycountznew-from-pairsr$Z
nextcalleeznext-handleZnextsameZnextwith�NFC�NFD�NFKC�NFKDznl-inznl-outZnodemapZnokZnoneZnorm�notZnoteZnowZnude�Num�	numerator�NumericZof�offsetzoffset-in-hourszoffset-in-minutes�ok�oldzon-closeZonez	on-switchrpZopenedZ	operationZoptionalrqZordsZorigzos-errorZosnamez
out-bufferrrr�zpackage-kindzpackage-nameZpackagesZpair�pairsZpairupZ	parameter�params�parentzparent-name�parents�parsez
parse-baseZ	parsefilezparse-names�parts�pass�pathzpath-sepZpayloadz	peer-hostz	peer-portZperiodsr�permutationsZphaserZpickZ	pickpairs�pidZplaceholderZplanZplusZpolarZpollZpolymodrtruZ
positional�posixZpostfixZ	postmatchzprecomp-extzprecomp-targetZpred�prefixZprematchZprependr,rvzprint-nlzprint-toZprivateZprivate_method_table�procZproduce�Promise�promptZprotectzpull-onerwzpush-allz
push-at-leastzpush-exactlyzpush-until-lazyZputzqualifier-type�quit�
rZrace�radixrx�range�Rat�rawr�ryZ	readchars�readonlyZready�RealZ
reallocateZreals�reasonZreblessZreceiver|Zredispatcherr&�reduceZrel2abs�relative�releaser~ZrepeatedZreplacement�reportZreserved�resolveZrestorer�ZresumeZrethrowr�rightr�r�r�Zroles_to_composeZrolishZrollZrootdir�roots�rotateZrotor�roundZ
roundrobinzroutine-type�runZrwx�
sZsamecaseZsamemarkZsamewithZsayzschedule-onZ	scheduler�scopeZsecZsech�secondr��selfr��SetZ
set_hiddenZset_name�set_packageZset_rwZ	set_value�SetHashzset-instrumentsZsetup_finalization�shapeZshare�shellr�ZsiblingZsigil�sign�signalZsignalsZ	signaturer�ZsinhZsinkzsink-all�skipz
skip-at-leastzskip-at-least-pull-onezskip-onez	skip-restr�zsleep-timerzsleep-until�SlipZslurpz
slurp-restZslurpyZsnapZsnapper�sozsocket-hostzsocket-portr��sourcezsource-packageZspawnZSPECr�r�ZsplitdirZ	splitpathr�Zspurtr�Zsquishr�Zstable�start�startedzstarts-with�status�stderr�stdout�StrZ
sub_signatureZsubbufz	subbuf-rwZsubnameZsubparse�substzsubst-mutater�z	substr-eqz	substr-rwZsubtestZsucc�sum�Supplyr��
t�tailZtakeztake-rwZtanZtanhZtap�targetztarget-nameZtcZtclcr�r(Zthrottle�throwzthrows-like�timezoneZtmpdir�toZtodayZtodoZtogglezto-posix�totalZtrailingZtransZtreeZtrimztrim-leadingz
trim-trailingr�ztruncated-toZtrustsZtry_acquireZtryingZtwigil�typeZ
type_captures�typenamer�ZudpZuncaught_handlerZunimatchZuninameZuninamesZuniparseZunipropZuniprops�uniqueZunivalZunivalsZunliker�Zunlockr�Zunpolarr��unwrapZupdirZUSAGEzuse-okZutc�val�valuer�ZVAR�variablezverbose-config�versionZVMnamesZvolumeZvow�
wr�r�Zwatchz
watch-pathZweekzweekday-of-monthzweek-numberz	week-yearZWHATr�ZWHEREZ	WHEREFOREZWHICHZWHOzwhole-secondZWHYZwordcaser	Z
workaround�wrapr�zwrite-to�
xZyadaZyear�yieldz
yyyy-mm-dd�
z�zipz
zip-latest)��False�True�Anyr

ZAssociativeZASTZ	atomicintZ	AttributeZ	BacktracezBacktrace::Framer
ZBaggyr
ZBlobZBlockr

ZBuf�CallableZ	CallFrameZCancellationr
ZCArrayr
ZCoder
r
Z
ComplexStrZCoolZCurrentThreadSchedulerZCursorr#
ZDateishr$
ZDistroZDurationZEncoding�	ExceptionZFailureZFatRatZGrammarr;
Z
HyperWhateverrA
rB
Zint16Zint32Zint64Zint8ZIntStrrE
zIO::ArgFilesz
IO::CatHandlez
IO::HandlezIO::NotificationzIO::PathzIO::Path::Cygwinz
IO::Path::QNXzIO::Path::UnixzIO::Path::Win32zIO::Pipez
IO::SocketzIO::Socket::AsynczIO::Socket::INETzIO::SpeczIO::Spec::Cygwinz
IO::Spec::QNXzIO::Spec::UnixzIO::Spec::Win32zIO::Special�Iterable�IteratorZJunctionZKernelZLabelrN
�LockzLock::AsyncZlongZlonglongZMacrorQ
�MatchzMetamodel::AttributeContainerzMetamodel::C3MROzMetamodel::ClassHOWzMetamodel::EnumHOWzMetamodel::FinalizationzMetamodel::MethodContainerz!Metamodel::MROBasedMethodDispatchzMetamodel::MultipleInheritancezMetamodel::NamingzMetamodel::Primitivesz!Metamodel::PrivateMethodContainerzMetamodel::RoleContainerzMetamodel::TrustingZMethodrX
rY
ZMixyZMur^
r_
r`
ra
ZNilrc
Znum32Znum64re
ZNumStrZObjAtZOrderZPairZ	Parameterrz
Pod::BlockzPod::Block::CodezPod::Block::CommentzPod::Block::DeclaratorzPod::Block::NamedzPod::Block::ParazPod::Block::TablezPod::Headingz	Pod::ItemZPointerZ
PositionalZPositionalBindFailoverZProczProc::Asyncrv
ZProxyZPseudoStashZ	QuantHashZRanger|
ZRationalZRatStrr
r�ZRoutineZScalarZ	Scheduler�	SemaphoreZSeqr�
r�
ZSettyZ	SignatureZsize_tr�
ZStashr�
ZStrDistanceZStringyZSubZ	SubmethodZSupplierzSupplier::Preservingr�
ZSystemicZTapZ	TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::Sampler�ThreadZThreadPoolSchedulerZUIntZuint16Zuint32Zuint64Zuint8ZUni�utf8r�ZVersionZVMZWhateverZWhateverCodeZ
WrapHandle)f�
X�
Zr�Zalso�andZandthen�before�cmpZdiv�eqZeqvZextra�ff�fff�ge�gt�leZleg�lt�
mZmm�mod�ne�or�orelse�rxr�
r�r�
�xor�xxz++z--z**�
!�
+�
-�
~�
?�
|�||�+^�~^�?^�
^�
*�
/�
%z%%z+&z+<z+>z~&z~<z~>z?&ZgcdZlcmr�
r�
z+|r�
z~|r�
z?|r�
r�
�
&r�
r�r�z<=>z..z..^z^..z^..^z!=z==�
<z<=�
>z>=z~~z===z!eqvz&&r�
z^^z//rW
rS
z??z!!r�
r�
r�
rb
z<==z==>z<<==z==>>Zunicmp�
)r�
�
]�
}�»u༻u༽u᚜u’u”u›u⁆u⁾u₎u∋u∌u∍u⧵u∽u⋍u≓u≕u≥u≧u≩u≫u≯u≱u≳u≵u≷u≹u≻u≽u≿u⊁u⊃u⊅u⊇u⊉u⊋u⊐u⊒u⦸u⊣u⫞u⫤u⫣u⫥u⊱u⊳u⊵u⊷u⋊u⋌u⋑u⋗u⋙u⋛u⋝u⋟u⋡u⋣u⋥u⋧u⋩u⋫u⋭u⋱u⋺u⋻u⋼u⋽u⋾u⌉u⌋u〉u⎵u❩u❫u❭u❯u❱u❳u❵u⟄u⟆u⟖u⟞u⟣u⟥u⟧u⟩u⟫u⦄u⦆u⦈u⦊u⦌u⦎u⦐u⦒u⦔u⦖u⦘u⧁u⧅u⧐u⧒u⧕u⧙u⧛u⧹u⧽u⨬u⨮u⨵u⨽u⩥u⩺u⩾u⪀u⪂u⪄u⪌u⪒u⪔u⪖u⪘u⪚u⪜u⪢u⪧u⪩u⪫u⪭u⪰u⪴u⪼u⪾u⫀u⫂u⫄u⫆u⫎u⫐u⫒u⫔u⫖u⫭u⫸u⫺u⸃u⸅u⸊u⸍u⸝u⸡u〉u》u」u』u】u〕u〗u〙u〛u〞u﴿u︘u︶u︸u︺u︼u︾u﹀u﹂u﹄u﹈u﹚u﹜u﹞u）u＞u］u｝u｠u｣)��
(r�
�
[�
{�«u༺u༼u᚛u‘u‚u‛u“u„u‟u‹u⁅u⁽u₍u∈u∉u∊u∕u∼u≃u≒u≔u≤u≦u≨u≪u≮u≰u≲u≴u≶u≸u≺u≼u≾u⊀u⊂u⊄u⊆u⊈u⊊u⊏u⊑u⊘u⊢u⊦u⊨u⊩u⊫u⊰u⊲u⊴u⊶u⋉u⋋u⋐u⋖u⋘u⋚u⋜u⋞u⋠u⋢u⋤u⋦u⋨u⋪u⋬u⋰u⋲u⋳u⋴u⋶u⋷u⌈u⌊u〈u⎴u❨u❪u❬u❮u❰u❲u❴u⟃u⟅u⟕u⟝u⟢u⟤u⟦u⟨u⟪u⦃u⦅u⦇u⦉u⦋u⦍u⦏u⦑u⦓u⦕u⦗u⧀u⧄u⧏u⧑u⧔u⧘u⧚u⧸u⧼u⨫u⨭u⨴u⨼u⩤u⩹u⩽u⩿u⪁u⪃u⪋u⪑u⪓u⪕u⪗u⪙u⪛u⪡u⪦u⪨u⪪u⪬u⪯u⪳u⪻u⪽u⪿u⫁u⫃u⫅u⫍u⫏u⫑u⫓u⫕u⫬u⫷u⫹u⸂u⸄u⸉u⸌u⸜u⸠u〈u《u「u『u【u〔u〖u〘u〚u〝u﴾u︗u︵u︷u︹u︻u︽u︿u﹁u﹃u﹇u﹙u﹛u﹝u（u＜u［u｛u｟u｢N�cCsl|
dur,d
|d�dd�|D�
�
|dSd|
d|dd�d	d�|D�
�
d|d
|
dSdS)Nz\b(r�
c
ss|]}
t�
|
�
V
qdS�
N�r��escape��.0r�
r�r�r��	<genexpr>�
�z/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r�
r�
c
ss|]}
t�
|
�
V
qdSr�
r�
r�
r�r�r�r�
�
r�
z(?!)
rb)r	Zboundary_regex_fragmentrt
r4r�r�r��_build_word_match�
s&


�
�
�
�
�
���zPerl6Lexer._build_word_matchc
s�f
d
d�}
|
S)Nc3s�
|
��}|d
}t
|�
}|�d�
}tj�|d�
}|j}|durX|�||
�d
�
|�}	n�||}
d}|
�d
�
}|dkr�|�|||�}
|�|
||�}|dkr�t
|�
}d}qn|
dkr�|
|kr�|d7}|
}qn|d8}|}qn|}	|	dkr�t
|�
}	|du
�
r\t�	d|��
r\||
�d
�
||	�}t�	dt�
|�
d||	d�tj�}|�
rT|	|��7}	nt
|�
}	|
���||
��|	|�fV
|	||_
dS)	NZ	delimiter�adverbsr
�
���z:to\bz^\s*z\s*$)�	groupdict�lenr:
r�PERL6_BRACKETSr��findr�
r�r�r�
r�r0
ru)�lexerrR
�context�groupsZ
opening_charsZn_charsr�
Zcloserr�Zend_posZ
closing_charsZ
nesting_levelZ
search_posZ
next_open_posZnext_close_posZheredoc_terminatorZend_heredoc�
�token_classr�r��callback�
sJ


















�
�
 
z.Perl6Lexer.brackets_callback.<locals>.callbackr�)rrr�rr��brackets_callback�
s
5zPerl6Lexer.brackets_callbackccs\|j}|
�
�t|j|
�
�|
���fV
|
��|_t|�
d
krX|ddkrX|jd7_dS)Nr����r�r�
)�stackr�
r
r�r0
rur�
�perl6_token_nesting_level�r
rR
rr	r�r�r��opening_brace_callback.s

"


z!Perl6Lexer.opening_brace_callbackccsn|j}|
�
�t|j|
�
�|
���fV
|
��|_t|�
d
krj|ddkrj|jd8_|jdkrj|��
dS)Nr�rr�r�
r
)	r	r�
r
r�r0
rur�
r
rtrr�r�r��closing_brace_callback;s
"





z!Perl6Lexer.closing_brace_callbackccsBd
|_|
�
�t|j|
�
�|
���fV
|
��|_|j�d�

dS)Nr�
r�)r
r�
r
r�r0
rur	r�)r
rR
rr�r�r��embedded_perl6_callbackIs

"


z"Perl6Lexer.embedded_perl6_callbackz$#[`|=](?P<delimiter>(?P<first_char>[z])(?P=first_char)*)z#[^\n]*$z%^(\s*)=begin\s+(\w+)\b.*?^\1=end\s+\2z^(\s*)=for.*?\n\s*?\nz
^=.*?\n\s*?\nz(regex|token|rule)(\s*z+:sym)�token-sym-bracketsz(regex|token|rule)(?!z)(\s*z+)?�	pre-tokenz(role)(\s+)(q)(\s*)z
(?::[UD])?r3z[$@%&][.^:?=!~]?u+(?:<<.*?>>|<.*?>|«.*?»)*u \$[!/](?:<<.*?>>|<.*?>|«.*?»)*z::\?\w+z[$@%&]\*z\$(?:<.*?>)+zn(?:q|qq|Q)[a-zA-Z]?\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>(?P<first_char>[^0-9a-zA-Z:\s])(?P=first_char)*)r�r�r�r�r�r�z(?<=~~)\s*/(?:\\\\|\\/|.)*?/z(?<=[=(,])\s*/(?:\\\\|\\/|.)*?/z
m\w+(?=\()z_(?:m|ms|rx)\s*(?P<adverbs>:[\w\s:]+)?\s*(?P<delimiter>(?P<first_char>[^\w:\s])(?P=first_char)*)zB(?:s|ss|tr)\s*(?::[\w\s:]+)?\s*/(?:\\\\|\\/|.)*?/(?:\\\\|\\/|.)*?/z
<[^\s=].*?\S>z\wr�
r�r��commonr�r�z.+?)rr�z(?P<delimiter>(?P<first_char>[)rrrz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)rr�rrr�c
Cs�d
d�}
|��}|
|�
}d�
|�
}t|d�r0dSd}d}t�dtjd|�rVd	}d}|D]d}t�d
d|�}t�d|�rzqZt�d
|�r�
dSt�d|�}|r�|s�|�	d�
du
r�
dSd}qZ
q�qZd|vr�|d}|S)Nc
SsHd
}
g}|D]6}t�
d|�r"d
}
qt�
d|�r4d}
q|
s|�|�

q|S)NFz
^=(?:end|cut)z^=\w+T)r�rR
r�)rM
Zin_podZstripped_linesrL
r�r�r��	strip_pod�s







z*Perl6Lexer.analyse_text.<locals>.strip_pod�

zperl6|rakudo|niecza|pugsTFz(?:my|our|has)\s+(?:z
+\s+)?[$@%&(]g�������?z#.*r�
z^\s*$z$^\s*(?:use\s+)?v6(?:\.\d(?:\.\d)?)?;z?^\s*(?:(?P<scope>my|our)\s+)?(?:module|class|role|enum|grammar)r�
g�������?r�r�)
�
splitlinesrbrr�r�r�PERL6_IDENTIFIER_RANGEr�rR
�group)r�rrM
Z
saw_perl_declZratingrL
Z
class_declr�r�r�r��s>







�
�










zPerl6Lexer.analyse_textc
s$t�j
fi|
�
�

|
�d
d�|_dS)Nr/
zutf-8)�super�__init__r:
r/
)r�
�options�
�	__class__r�r�r�s

zPerl6Lexer.__init__)Nr�
r�
)4r�r�r�r�r�r�r�r�r�r�r��UNICODEr�rZPERL6_KEYWORDSZPERL6_BUILTINSZPERL6_BUILTIN_CLASSESZPERL6_OPERATORSr�
r�
rrr
rrbrr�r�rr
rr
r�r�r�rrr�r�r�r�r�r�rrrrrr�r�r�
__classcell__r�r�rr�r�sB




t&






























































�C	8

�






�

�


�

�





�

�



�





�
�




�1


�


�

��









��O7)r�r�Zpygments.lexerrrrrrrrr	Zpygments.tokenr
rrr
rrrrZ
pygments.utilr�__all__rrr�r�r�r��<module>
s
((K