403Webshell
Server IP : 127.0.0.1  /  Your IP : 216.73.216.109
Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10
System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64
User : SERVERWEB ( 0)
PHP Version : 8.1.10
Disable Function : NONE
MySQL : OFF |  cURL : ON |  WGET : OFF |  Perl : OFF |  Python : OFF |  Sudo : OFF |  Pkexec : OFF
Directory :  C:/cygwin64/lib/python3.9/site-packages/pygments/lexers/__pycache__/

Upload File :
current_dir [ Writeable] document_root [ Writeable]

 

Command :

[ Back ]     

Current File : C:/cygwin64/lib/python3.9/site-packages/pygments/lexers/__pycache__/perl.cpython-39.opt-2.pyc
a

SҼa���@s�ddlZddlmZmZmZmZmZmZmZm	Z	ddl
mZmZm
Z
mZmZmZmZmZddlmZddgZGdd�de�ZGdd�de�ZdS)	�N)�
RegexLexer�ExtendedRegexLexer�include�bygroups�using�this�default�words)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation)�shebang_matches�	PerlLexer�
Perl6Lexerc4@s�eZdZdZddgZgd�ZddgZejej	BZ
dejdfd	ejdfd
ejdfdejdfdejdfd
ejdfdejdfdejdfdejdfdejdfg
de
jfde
jfde
jfeddd�efdeeeeeee�dfdejfdejfdejfdejfdejfdejfd ejd!fd"ejd!fd#ejd!fd$ejd!fd%ejfd&ejd!fd'ejfd(efed)dd�ejfd*ejjfd+eeeejeeje�fd,e
jd-fd.ejjfd/ejjfd0ejd1fd2ej fd3ej!fd4ej"fd5ej#fd6ej#fd7ej$fd8efd9efd:ej%fd;ejfd<ej&d=fd>ej&d?fd@ej&dAfdBej&dCfdDej&fdEeeeej'�fdFeeeej'�fdGeee�dHfedIdd�efdJefdKefdLefdMedNfg1dOej(dfdPej(fgd(efdQedfdRedfdSej'fdTejdfgdUej'dfdVej'dfdTedfdWej)dfdXedfgdYej*fd(efdZeee�fd[edfd\edfgd]ej&fd^ej&fdQej&d=fd_ej&dfd`ej&fgdaej&fd^ej&fdbej&d?fdcej&dfddej&fgdeej&fd^ej&fdfej&dAfdgej&dfdhej&fgdiej&fd^ej&fdjej&dCfdkej&dfdlej&fgdme
jdfgdn�Z+dodp�Z,dqS)rr�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�cCs:t|d�rdSd}t�d|�r&|d7}d|vr6|d}|S)NrTrz(?: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__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�rs2









�
������

��
���
�



�



������f
�
�


��	

�

�

�

�
���.c�sFeZdZdZgd�Zgd�ZddgZejej	Bej
BZdZdZ
dZd	Zd
Zdd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ǜ�Z�d
d�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�fee
e�efeeed�d�ejfeee�ejfd�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�ed�fd�efg�ddɠ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�Z/�d	�d
�Z0�f�d�d�Z1�Z2S(rZPerl6)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�AnyrZAssociativeZASTZ	atomicintZ	AttributeZ	BacktracezBacktrace::FramerZBaggyrZBlobZBlockr	ZBuf�CallableZ	CallFrameZCancellationrZCArrayrZCoderrZ
ComplexStrZCoolZCurrentThreadSchedulerZCursorr"ZDateishr#ZDistroZDurationZEncoding�	ExceptionZFailureZFatRatZGrammarr:Z
HyperWhateverr@rAZint16Zint32Zint64Zint8ZIntStrrDz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�IteratorZJunctionZKernelZLabelrM�LockzLock::AsyncZlongZlonglongZMacrorP�MatchzMetamodel::AttributeContainerzMetamodel::C3MROzMetamodel::ClassHOWzMetamodel::EnumHOWzMetamodel::FinalizationzMetamodel::MethodContainerz!Metamodel::MROBasedMethodDispatchzMetamodel::MultipleInheritancezMetamodel::NamingzMetamodel::Primitivesz!Metamodel::PrivateMethodContainerzMetamodel::RoleContainerzMetamodel::TrustingZMethodrWrXZMixyZMur]r^r_r`ZNilrbZnum32Znum64rdZNumStrZObjAtZOrderZPairZ	Parameterrz
Pod::BlockzPod::Block::CodezPod::Block::CommentzPod::Block::DeclaratorzPod::Block::NamedzPod::Block::ParazPod::Block::TablezPod::Headingz	Pod::ItemZPointerZ
PositionalZPositionalBindFailoverZProczProc::AsyncruZProxyZPseudoStashZ	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//rVrRz??z!!r�r�r�raz<==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�css|]}t�|�VqdS�N�r��escape��.0r�r�r�r��	<genexpr>��z/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r�r�css|]}t�|�VqdSr�r�r�r�r�r�r��r�z(?!)rb)r	Zboundary_regex_fragmentrsr4r�r�r��_build_word_match�s&��������zPerl6Lexer._build_word_matchcs�fdd�}|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�lenr9r�PERL6_BRACKETSr��findr�r�r�r�r�r/ru)�lexerrQ�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|�dkrX|ddkrX|jd7_dS)Nr����r�r�)�stackr�r
r�r/rur��perl6_token_nesting_level�rrQrrr�r�r��opening_brace_callback.s
"
z!Perl6Lexer.opening_brace_callbackccsn|j}|��t|j|��|���fV|��|_t|�dkrj|ddkrj|jd8_|jdkrj|��dS)Nr�rr�r�r)	rr�r
r�r/rur�r	rtr
r�r�r��closing_brace_callback;s"

z!Perl6Lexer.closing_brace_callbackccsBd|_|��t|j|��|���fV|��|_|j�d�dS)Nr�r�)r	r�r
r�r/rurr�)rrQrr�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�cCs�dd�}|��}||�}d�|�}t|d�r0dSd}d}t�dtjd|�rVd	}d}|D]d}t�d
d|�}t�d|�rzqZt�d
|�r�dSt�d|�}|r�|s�|�	d�dur�dSd}qZq�qZd|vr�|d}|S)NcSsHd}g}|D]6}t�d|�r"d}qt�d|�r4d}q|s|�|�q|S)NFz
^=(?:end|cut)z^=\w+T)r�rQr�)rLZin_podZstripped_linesrKr�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�rQ�group)r�rrLZ
saw_perl_declZratingrKZ
class_declr�r�r�r��s>

��zPerl6Lexer.analyse_textcs$t�jfi|��|�dd�|_dS)Nr.zutf-8)�super�__init__r9r.)r��options��	__class__r�r�r�szPerl6Lexer.__init__)Nr�r�)3r�r�r�r�r�r�r�r�r�r��UNICODEr�rZPERL6_KEYWORDSZPERL6_BUILTINSZPERL6_BUILTIN_CLASSESZPERL6_OPERATORSr�r�rrrr
rbrr�r�rr
rr
r�r�r�rrr�r�r�r�r�r�rrrrrr�r�r�
__classcell__r�r�rr�r�s@t&�C	8
�

�
��
�


�����
�1��
��




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

Youez - 2016 - github.com/yon3zu
LinuXploit