HEX
Server: LiteSpeed
System: Linux us-phx-web1284.main-hosting.eu 4.18.0-553.109.1.lve.el8.x86_64 #1 SMP Thu Mar 5 20:23:46 UTC 2026 x86_64
User: u300739242 (300739242)
PHP: 8.2.30
Disabled: system, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail
Upload Files
File: //opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/__pycache__/perl.cpython-311.pyc
�

�;f����dZddlZddlmZmZmZmZmZmZm	Z	m
Z
ddlmZm
Z
mZmZmZmZmZmZmZddlmZddgZGd�de��ZGd	�de��ZdS)
z�
    pygments.lexers.perl
    ~~~~~~~~~~~~~~~~~~~~

    Lexers for Perl, Raku and related languages.

    :copyright: Copyright 2006-2024 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�
Whitespace)�shebang_matches�	PerlLexer�
Perl6Lexerc�n�eZdZdZdZdZddgZgd�ZddgZd	Z	e
je
jzZ
d
ejdfdejdfd
ejdfdejdfdejdfdejdfdejdfdejdfdejdfdejdfg
gdejf�dejf�dejf�edd���ef�deeeeeee��df�dejf�dejf�dejf�d ejf�d!ejf�d"ejf�d#ejd$f�d%ejd$f�d&ejd$f�d'ejd$f�d(ejf�d)ejd$f�d*ejf�d+ef�ed,d���ejf�d-ejjf�d.eeeejeeje��f�d/ejd0f�d1ej j!f�d2ej j!f�d3ej d4f�d5e"j#f�d6e"j$f�d7e"j%f�d8e"j&f�d9e"j&f�d:e"j'f�d;ef�d<ef�d=ej(f�d>ejf�d?ej)d@f�dAej)dBf�dCej)dDf�dEej)dFf�dGej)f�dHeeeej*��f�dIeeeej*��f�dJeee��dKf�edLd���ef�dMef�dNef�dOef�dPedQf�dRej+dfdSej+fgd+efdTedfdUedfdVej*fdWej dfgdXej*dfdYej*dfdWedfdZej,dfd[e-dfgd\ej.fd+efd]eee��fd^edfd_edfgd`ej)fdaej)fdTej)d@fdbej)dfdcej)fgddej)fdaej)fdeej)dBfdfej)dfdgej)fgdhej)fdaej)fdiej)dDfdjej)dfdkej)fgdlej)fdaej)fdmej)dFfdnej)dfdoej)fgdpejdfgdq�Z/dr�Z0dsS)trz
    For Perl source code.
    �Perlzhttps://www.perl.org�perl�pl)�*.pl�*.pm�*.tz*.perlztext/x-perlzapplication/x-perl�z"/(\\\\|\\[^\\]|[^\\/])*/[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)�case�continue�do�else�elsif�for�foreach�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�atan2�bind�binmode�bless�caller�chdir�chmod�chomp�chop�chown�chr�chroot�close�closedir�connectr!�cos�crypt�dbmclose�dbmopen�defined�delete�die�dump�each�endgrent�
endhostent�	endnetent�endprotoent�endpwent�
endservent�eof�eval�exec�exists�exit�exp�fcntl�fileno�flock�forkr;�formline�getc�getgrent�getgrgid�getgrnam�
gethostbyaddr�
gethostbyname�
gethostent�getlogin�getnetbyaddr�getnetbyname�	getnetent�getpeername�getpgrp�getppid�getpriority�getprotobyname�getprotobynumber�getprotoent�getpwent�getpwnam�getpwuid�
getservbyname�
getservbyport�
getservent�getsockname�
getsockopt�glob�gmtime�goto�grep�hex�import�index�int�ioctl�join�keys�killr(�lc�lcfirst�length�link�listen�local�	localtime�log�lstat�map�mkdir�msgctl�msgget�msgrcv�msgsndr)r*�oct�open�opendir�ordr+�pack�pipe�pop�pos�printf�	prototype�push�	quotemeta�rand�read�readdir�readline�readlink�readpipe�recvr,�ref�rename�reverse�	rewinddir�rindex�rmdir�scalar�seek�seekdir�select�semctl�semget�semop�send�setgrent�
sethostent�	setnetent�setpgrp�setpriority�setprotoent�setpwent�
setservent�
setsockopt�shift�shmctl�shmget�shmread�shmwrite�shutdown�sin�sleep�socket�
socketpair�sort�splice�split�sprintf�sqrt�srand�stat�study�substr�symlink�syscall�sysopen�sysread�sysseek�system�syswrite�tell�telldir�tie�tied�time�times�tr�truncate�uc�ucfirst�umask�undef�unlink�unpack�unshift�untie�utime�values�vec�wait�waitpid�	wantarray�warn�writez+((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\bz/(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)�__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.+)r<�rootr;r�rr	rrrrr�c�t�t|d��rdSd}tjd|��r|dz
}d|vr|dz}|S)NrTrz(?:my|our)\s+[$@%(]g�������?�:=�)r�re�search)�text�results  �G/opt/alt/python311/lib/python3.11/site-packages/pygments/lexers/perl.py�analyse_textzPerlLexer.analyse_text�sU���4��)�)�	��4���
�9�+�T�2�2�	��c�M�F��4�<�<�
�a�K�F��
�N)1�__name__�
__module__�__qualname__�__doc__r�url�aliases�	filenames�	mimetypes�
version_addedr�DOTALL�	MULTILINE�flagsr�Regexr�Hashbang�Single�	Multiliner
rrrrrr
�Word�Builtin�Pseudo�	Delimiter�Preproc�Variable�Globalr�Oct�Hex�Bin�Float�Integer�Backtick�Other�	Namespace�Interpol�Constantr�Function�tokensr�rrrrs����������D�
 �C��t�n�G�1�1�1�I�� 4�5�I��M��I���$�E�3�F�L�&�I�
2�F�L�&�I�
+�V�\�6�B�
4�f�l�F�K�
2�F�L�&�I�
5�v�|�V�L�
4�f�l�F�K�
2�F�L�&�I�
2�F�L�&�I�
4�f�l�F�K�
�d
�
�7�+�,�d
�
���'�d
�+�G�,=�>�d
��U�2�;@�	A�A�A�
�
�	d
�2�
�X�g�z�4��[�*�
U�
U�W_�
a�d
�5�h�m�D�d
�K���
�d
� ?���M�!d
�"<�V�\�J�#d
�$K���
�%d
�(K���
�)d
�./���>N�O�/d
�0-�f�l�<L�M�1d
�20��� �
"�3d
�6/��� �
"�7d
�<7���E�=d
�>$�V�\�3C�D�?d
�@G���
�Ad
�D�Z� �Ed
�F�U�[�4di�5j�j�j�6�\�7
�Gd
�~<�T�\�=P�Q�d
�@@�
�X�f�f�f�&6���@P�R\�
]�
]�
_�Ad
�D���*�5�Ed
�F%�d�m�&:�;�Gd
�H9�$�-�:N�O�Id
�J���	�2�Kd
�L$�V�Z�0�Md
�N/��
�;�Od
�P!�&�*�-�Qd
�RP�
�\�
�Sd
�V/���=�Wd
�X�F�N�+�Yd
�Z)�&�1�[d
�\)�&�1�]d
�^)�&�/�:�_d
�`�V�\�*�ad
�b"�6�<��=�cd
�d"�6�<��=�ed
�f"�6�<��=�gd
�h"�6�<��=�id
�j1�&�,�?�kd
�l@�
�X�g�z�4�>�
:�
:�
<�md
�pG�
�X�g�z�4�>�
:�
:�
<�qd
�t�H�H�W�j�9�9�:�F�ud
�v�U�3�;@�B�B�B�
�
�wd
�|%�&.�
0�}d
�@$�X�.�Ad
�B"�;�/�Cd
�F��f�%�Gd
�L�f�o�v�.�
�&�/�*�
�
�Z� �
�K��(�
�k�6�*�
�t�~�&�
��
�v�.�
�<�T�^�V�T�
/����H�
��f�%�
�t�}�f�5�
��f�%�
�"�4�=�1�
�Z� �
!�8�8�K��#D�#D�E�
�;��'�
�{�F�+�

��&�,�'�
�F�L�!�
�F�L�+�.�
�F�L�&�)�
�&�,�'�
��&�,�'�
�F�L�!�
�F�L�+�.�
�F�L�&�)�
���%�
��F�L�)�
�F�L�!�
�F�L�+�.�
�F�L�&�)�
�&�,�'�
��&�,�'�
�F�L�!�
�F�L�+�.�
�F�L�&�)�
���%�
��G�O�V�,�
�Qk�k�F�Z����rc
�N��eZdZdZdZdZgd�Zgd�ZddgZdZ	e
je
jzZ
d	Zd
ZdZdZd
Zidd�dd�dd�dd�dd�dd�dd�dd�dd�d d�d!d�d"d#�d$d#�d%d#�d&d'�d(d)�d*d+�id,d-�d.d/�d0d1�d2d3�d4d5�d6d7�d8d9�d:d;�d<d=�d>d?�d@dA�dBdC�dDdE�dFdG�dHdI�dJdK�dLdM��idNdO�dPdQ�dRdS�dTdU�dVdW�dXdY�dZd[�d\d]�d^d_�d`da�dbdc�ddde�dfdg�dhdi�djdk�dldm�dndo��idpdq�drds�dtdu�dvdw�dxdy�dzd{�d|d}�d~d�d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d��d�d���id�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���id�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Փ�id�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���id�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��i�d�d��d�d��d�d��d �d!��d"�d#��d$�d%��d&�d'��d(�d)��d*�d+��d,�d-��d.�d/��d0�d1��d2�d3��d4�d5��d6�d7��d8�d9��d:�d;��i�d<�d=��d>�d?��d@�dA��dB�dC��dD�dE��dF�dG��dH�dI��dJ�dK��dL�dM��dN�dO��dP�dQ��dR�dS��dT�dU��dV�dW��dX�dY��dZ�d[��d\�d]��i�d^�d_��d`�da��db�dc��dd�de��df�dg��dh�di��dj�dk��dl�dm��dn�do��dp�dq��dr�ds��dt�du��dv�dw��dx�dy��dz�d{��d|�d}��d~�d���d��d��d��d��d��d���Z�dĐd��Z�d��Z�d��Z�d��Z�d��Zg�d��d��e��z�d�zeej��f��d�ejf��d�ejf��d�ejf��d�ejf��d�ez�d�zeee���d�f��d�ez�d�zez�d�zeee���d�f��d�eee ee ��f�eee��ef�eee�d������ej!f�eee��ej!f��d�ez�d�zej"f��d�ej"j#f��d�ej"j#f��d�ez�d�zej"j#f��d�ej"f��d�ee$��f��d�e%j&f��d�e%j'f��d�e%j(f��d�e%j)f��d�e%j)f��d�e%j*f��d�e$j+f��d�e$j+f��d�ef��d�ee$j+��f��d�e$j+f��d�e$f�ee��e,f��d�ez�d�zef��d�e$f��d�e$f�e-�d����d�ef�d�ef�d�e.fge-�d����d�e.�d�f�d�e.fg�d��d��e��z�d�zee���d�fe/�d���g�d�e.�d�f�d�e0e1��f�d�e$j+f�d�e$j+f�d�e$j+f�d�ejf�d�ef�d�e$j+fg�d��Z2�d„Z3�f�dÄZ4�xZ5S(�rz/
    For Raku (a.k.a. Perl 6) source code.
    �Perl6zhttps://www.raku.org)�perl6�pl6�raku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz	*.rakumodz
*.rakutestz	*.rakudocztext/x-perl6zapplication/x-perl6z2.0z['\w:-])Nr4�CATCHr5�CLOSE�CONTROL�DOCr7�ENTER�FIRSTr6�KEEP�LAST�LEAVE�NEXT�POST�PRE�QUIT�UNDO�anon�augment�but�class�constantr	�doesr#r$�enumr%�gather�given�grammar�hasr'r��is�let�loop�made�make�method�module�multir)�need�orwithr+�proceed�proto�repeatrr8z	return-rw�returns�role�rule�state�sub�	submethod�subset�succeed�	supersede�token�try�unitr/r0r
�whenr1�with�without�export�native�repr�required�rw�symbol(�ACCEPTSr=�abs2rel�absoluter>�accessed�acos�acosec�acosech�acosh�acotan�acotanh�acquire�act�action�actions�add�
add_attribute�add_enum_value�add_fallback�
add_method�
add_parent�add_private_method�add_role�add_trustee�adverb�after�all�allocate�allof�allowedzalternative-names�annotations�antipair�	antipairs�any�anyof�app_lifetime�append�arch�archname�args�arity�Array�asec�asech�asin�asinhz
ASSIGN-KEYz
ASSIGN-POS�assuming�ast�at�atanr@�atanhzAT-KEYz
atomic-assignzatomic-dec-fetchzatomic-fetchzatomic-fetch-addzatomic-fetch-deczatomic-fetch-inczatomic-fetch-subzatomic-inc-fetchzAT-POS�
attributes�auth�await�	backtrace�Bag�BagHashzbail-out�base�basenamezbase-repeating�batchzBIND-KEYzBIND-POSzbind-stderrz
bind-stdinzbind-stdoutzbind-udp�bitsrC�block�Boolz	bool-only�bounds�break�Bridge�broken�BUILDz
build-date�bytes�cache�	callframezcalling-packagezCALL-ME�callsame�callwith�can�cancel�
candidates�candozcan-ok�	canonpath�caps�caption�Capture�cas�catdir�
categorizezcategorize-list�catfile�catpath�cause�ceiling�cglobal�changed�Channel�charsrE�childz
child-namezchild-typenamerFrGrHrJ�chrs�chunks�cis�classifyz
classify-list�cleanup�clonerL�closedzclose-stdinzcmp-ok�code�codes�collate�column�comb�combinations�command�comment�compiler�Complex�compose�compose_type�composer�	condition�config�configure_destroy�configure_type_checking�conjrN�constraints�	construct�contains�contents�copyrO�cosec�cosech�cosh�cotan�cotanh�countz
count-onlyz	cpu-coresz	cpu-usage�CREATE�create_type�cross�cue�curdir�curupdir�d�Date�DateTime�day�daycountzday-of-monthzday-of-weekzday-of-yearz
days-in-month�declaration�decode�decoder�deepmapr	rS�DEFINITE�delayedz
DELETE-KEYz
DELETE-POS�denominator�desc�DESTROY�
destroyers�devnull�diagzdid-you-meanrUzdies-ok�dir�dirnamezdir-sep�DISTROnamesr"rYzdoes-ok�donezdone-testing�duckmap�dynamic�e�eager�earlier�elems�emit�	enclosing�encode�encoder�encoding�endz	ends-with�enum_from_value�enum_value_list�enum_values�enumsr^�EVALzeval-dies-ok�EVALFILEz
eval-lives-ok�	exceptionzexcludes-maxzexcludes-minz
EXISTS-KEYz
EXISTS-POSrb�exitcoderc�expectedzexplicitly-manage�expmod�	extension�f�failz
fails-like�fc�feature�file�filename�find_method�find_method_qualified�finish�first�flat�flatmap�flip�floor�flunk�flush�fmtr;�	formatter�freeze�fromz	from-listz	from-loopz
from-posix�fullzfull-barrier�get�	get_valueri�gist�got�grab�	grabpairsr��handle�handled�handles�hardware�has_accessor�Hash�head�headerszhh-mm-ss�hidden�hides�hour�how�hyper�id�illegal�im�in�indentr��indices�indir�infinite�infixz	infix:<+>z	infix:<->�install_method_cache�Instant�instead�Intz
int-bounds�intervalzin-timezonezinvalid-str�invert�invocant�IOzIO::Notification.watch-path�
is_trusted�is_type�isazis-absolutezisa-okz	is-approxz	is-deeplyz	is-hiddenzis-initial-threadzis-intzis-lazyzis-leap-year�isNaN�isntzis-primezis-relativez
is-routinez
is-settingzis-win�item�iteratorr��keep�kept�KERNELnames�key�keyofr�r��kv�kxxv�l�langr(�lastcall�later�lazyr��leading�level�like�line�linesr��Listr��livezlives-okr��lockr��log10�lookup�lsbrb�MAINrc�Map�match�max�maxpairs�merge�messagerd�method_table�methods�migrate�min�minmax�minpairs�minute�	misplaced�Mix�MixHashr��mode�modified�month�move�mro�msbrf�	multinessr)r�named�named_names�narrow�
nativecastznative-descriptor�nativesizeofr3�new_typeznew-from-daycountznew-from-pairsr*�
nextcalleeznext-handle�nextsame�nextwith�NFC�NFD�NFKC�NFKDznl-inznl-out�nodemap�nok�none�norm�not�note�now�nude�Num�	numerator�Numeric�of�offsetzoffset-in-hourszoffset-in-minutes�ok�oldzon-close�onez	on-switchr��opened�	operation�optionalr��ords�origzos-error�osnamez
out-bufferr�rzpackage-kindzpackage-name�packages�pair�pairs�pairup�	parameter�params�parentzparent-name�parents�parsez
parse-base�	parsefilezparse-names�parts�pass�pathzpath-sep�payloadz	peer-hostz	peer-port�periodsr�permutations�phaser�pick�	pickpairs�pid�placeholder�plan�plus�polar�poll�polymodr�r��
positional�posix�postfix�	postmatchzprecomp-extzprecomp-target�pred�prefix�prematch�prependr2r�zprint-nlzprint-to�private�private_method_table�proc�produce�Promise�prompt�protectzpull-oner�zpush-allz
push-at-leastzpush-exactlyzpush-until-lazy�putzqualifier-type�quit�r�race�radixr��range�Rat�rawrr��	readchars�readonly�ready�Real�
reallocate�reals�reason�rebless�receiver��redispatcherr,�reduce�rel2abs�relative�releaser��repeated�replacement�report�reserved�resolve�restorer�resume�rethrowr��rightr�r�rm�roles_to_compose�rolish�roll�rootdir�roots�rotate�rotor�round�
roundrobinzroutine-type�run�rwx�s�samecase�samemark�samewith�sayzschedule-on�	scheduler�scope�sec�sech�secondr��selfr��Set�
set_hidden�set_name�set_package�set_rw�	set_value�SetHashzset-instruments�setup_finalization�shape�share�shellr��sibling�sigil�sign�signal�signals�	signaturer��sinh�sinkzsink-all�skipz
skip-at-leastzskip-at-least-pull-onezskip-onez	skip-restr�zsleep-timerzsleep-until�Slip�slurpz
slurp-rest�slurpy�snap�snapper�sozsocket-hostzsocket-portr��sourcezsource-package�spawn�SPECr�r��splitdir�	splitpathr��spurtr��squishr��stable�start�startedzstarts-with�status�stderr�stdout�Str�
sub_signature�subbufz	subbuf-rw�subname�subparse�substzsubst-mutater�z	substr-eqz	substr-rw�subtest�succ�sum�Supplyr��t�tail�takeztake-rw�tan�tanh�tap�targetztarget-name�tc�tclcr�r.�throttle�throwzthrows-like�timezone�tmpdir�to�today�todo�togglezto-posix�total�trailing�trans�tree�trimztrim-leadingz
trim-trailingr�ztruncated-to�trusts�try_acquire�trying�twigil�type�
type_captures�typenamer��udp�uncaught_handler�unimatch�uniname�uninames�uniparse�uniprop�uniprops�unique�unival�univals�unliker��unlockr��unpolarr��unwrap�updir�USAGEzuse-ok�utc�val�valuer��VAR�variablezverbose-config�version�VMnames�volume�vow�wr�r��watchz
watch-path�weekzweekday-of-monthzweek-numberz	week-year�WHATrx�WHERE�	WHEREFORE�WHICH�WHOzwhole-second�WHY�wordcaser
�
workaround�wrapr�zwrite-to�x�yada�year�yieldz
yyyy-mm-dd�z�zipz
zip-latest)��False�True�Anyr��Associative�AST�	atomicint�	Attribute�	BacktracezBacktrace::Framer��Baggyr��Blob�Blockr��Buf�Callable�	CallFrame�Cancellationr��CArrayr��Coder�r��
ComplexStr�Cool�CurrentThreadScheduler�Cursorr�Dateishr	�Distro�Duration�Encoding�	Exception�Failure�FatRat�GrammarrS�
HyperWhateverrerg�int16�int32�int64�int8�IntStrrkz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�Iterator�Junction�Kernel�Labelr��LockzLock::Async�long�longlong�Macror��MatchzMetamodel::AttributeContainerzMetamodel::C3MROzMetamodel::ClassHOWzMetamodel::EnumHOWzMetamodel::FinalizationzMetamodel::MethodContainerz!Metamodel::MROBasedMethodDispatchzMetamodel::MultipleInheritancezMetamodel::NamingzMetamodel::Primitivesz!Metamodel::PrivateMethodContainerzMetamodel::RoleContainerzMetamodel::Trusting�Methodr�r��Mixy�Mur�r�r�r��Nilr��num32�num64r��NumStr�ObjAt�Order�Pair�	Parameterrz
Pod::BlockzPod::Block::CodezPod::Block::CommentzPod::Block::DeclaratorzPod::Block::NamedzPod::Block::ParazPod::Block::TablezPod::Headingz	Pod::Item�Pointer�
Positional�PositionalBindFailover�ProczProc::Asyncr��Proxy�PseudoStash�	QuantHash�Ranger��Rational�RatStrr�r)�Routine�Scalar�	Scheduler�	Semaphore�Seqr#r)�Setty�	Signature�size_tr7�StashrJ�StrDistance�Stringy�Sub�	Submethod�SupplierzSupplier::PreservingrS�Systemic�Tap�	TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::Sampler�Thread�ThreadPoolScheduler�UInt�uint16�uint32�uint64�uint8�Uni�utf8r2�Version�VM�Whatever�WhateverCode�
WrapHandle)f�X�Zr��also�and�andthen�before�cmp�div�eq�eqv�extra�ff�fff�ge�gt�le�leg�lt�m�mm�mod�ne�or�orelse�rxrr�r��xor�xxz++z--z**�!�+�-�~�?�|�||�+^�~^�?^�^�*�/�%z%%z+&z+<z+>z~&z~<z~>z?&�gcd�lcmrrz+|r z~|r!z?|r"r�&r#rVrYz<=>z..z..^z^..z^..^z!=z==�<z<=�>z>=z~~z===z!eqvz&&rz^^z//r�r�z??z!!r	r
r<r�z<==z==>z<<==z==>>�unicmp�(�)r*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⦇u⦈u⦉u⦊u⦋u⦌u⦍u⦎u⦏u⦐u⦑u⦒u⦓u⦔u⦕u⦖u⦗u⦘u⧀u⧁u⧄u⧅u⧏u⧐u⧑u⧒u⧔u⧕u⧘u⧙u⧚u⧛u⧸u⧹u⧼u⧽u⨫u⨬u⨭u⨮u⨴u⨵u⨼u⨽u⩤u⩥u⩹u⩺u⩽u⩾u⩿u⪀u⪁u⪂u⪃u⪄u⪋u⪌u⪑u⪒u⪓u⪔u⪕u⪖u⪗u⪘u⪙u⪚u⪛u⪜u⪡u⪢u⪦u⪧u⪨u⪩u⪪u⪫u⪬u⪭u⪯u⪰u⪳u⪴u⪻u⪼u⪽u⪾u⪿u⫀u⫁u⫂u⫃u⫄u⫅u⫆u⫍u⫎u⫏u⫐u⫑u⫒u⫓u⫔u⫕u⫖u⫬u⫭u⫷u⫸u⫹u⫺u⸂u⸃u⸄u⸅u⸉u⸊u⸌u⸍u⸜u⸝u⸠u⸡u〈u〉u《u》u「u」u『u』u【u】u〔u〕u〖u〗u〘u〙u〚u〛u〝u〞u﴾u﴿u︗u︘u︵u︶u︷u︸u︹u︺u︻u︼u︽u︾u︿u﹀u﹁u﹂u﹃u﹄u﹇u﹈u﹙u﹚u﹛u﹜u﹝u﹞u(u)u>u]u}u⦆u」)u<u[u{u⦅u「Nrc���|�+d|zd�d�|D����z|zdzSd|zdz|zdzd�d�|D����zdz|zd	z|zdzS)
Nz\b(rc3�>K�|]}tj|��V��dS�N�r�escape��.0r�s  r�	<genexpr>z/Perl6Lexer._build_word_match.<locals>.<genexpr>�s*����.K�.K��r�y��|�|�.K�.K�.K�.K�.K�.Krz)\bz(?<!r.r-c3�>K�|]}tj|��V��dSr7r8r:s  rr<z/Perl6Lexer._build_word_match.<locals>.<genexpr>�s*����6�6�1�"�)�A�,�,�6�6�6�6�6�6rz(?!)r�)r
�boundary_regex_fragmentr�r:s    r�_build_word_matchzPerl6Lexer._build_word_match�s���"�*��F�?�T�Y�Y�.K�.K�U�.K�.K�.K�%K�%K�K���� �
 ��4�4�t�;�f�D�t�K��	�	�6�6��6�6�6�6�6�7�9=�>�@F�G�IO�P�'�(�*.�/�
/rc����fd�}|S)Nc3�J�K�|���}|d}t|��}|�d��}tj�|d��}|j}|�-|�||�d��|z��}	n�||z}
d}|�d��}|dkrk|�|||z��}
|�|
||z��}|dkrt|��}d}n|
dkr|
|kr|dz
}|
}n|dz}|}|dk�k|}	|	dkrt|��}	|��tj	d|��r�||�d��|z|	�}tj	dtj
|��zdz||	d�tj��}|r|	|���z
}	nt|��}	|����||���|	|z�fV�|	|z|_
dS)	N�	delimiter�adverbsr����z:to\bz^\s*z\s*$)�	groupdict�lenrHr�PERL6_BRACKETSr�findrErrr9r'r'r�)�lexerr��context�groups�
opening_chars�n_charsrC�closerr�end_pos�
closing_chars�
nesting_level�
search_pos�
next_open_pos�next_close_pos�heredoc_terminator�end_heredoc�token_classs                 �r�callbackz.Perl6Lexer.brackets_callback.<locals>.callback�sE������_�_�&�&�F�"�;�/�M��-�(�(�G��j�j��+�+�G��.�2�2�=��3C�D�D�F��<�D��~��)�)�M�5�;�;�{�3K�3K�g�3U�V�V���!'�� 0�
� !�
�"�[�[��5�5�
�#�a�'�'�$(�I�I�m�Z�'�=Q�$R�$R�M�%)�Y�Y�}�j�7�>R�%S�%S�N�%��+�+�),�T����()�
�
�&�"�,�,���1O�1O�%��*�
�%2�
�
�%��*�
�%3�
�$�a�'�'�)����{�{��d�)�)���"�r�y��7�'C�'C�"�%)�%�+�+�k�*B�*B�W�*L�W�*T�%U�"� �i��"�)�<N�2O�2O�(O�(/�)0�15�g�h�h����O�O���(��{���0�0�0�G�G�!�$�i�i�G��+�+�-�-��d�5�;�;�=�=��7�AR�3R�.S�S�S�S�S�!�G�+�G�K�K�Krr@)rXrYs` r�brackets_callbackzPerl6Lexer.brackets_callback�s$���3	,�3	,�3	,�3	,�3	,�j�rc#�NK�|j}|���t|j|���|����fV�|���|_t
|��dkr|ddkr|xjdz
c_dSdSdS)Nr���rurD)�stackrErrr'r�rG�perl6_token_nesting_level�rJr�rKr]s    r�opening_brace_callbackz!Perl6Lexer.opening_brace_callback0s������
���k�k�m�m�T�7�<����
�
�e�i�i�k�k�0I�#J�J�J�J�J��i�i�k�k����u�:�:��>�>�e�B�i�7�2�2��-�-��2�-�-�-�-��>�2�2rc#�K�|j}|���t|j|���|����fV�|���|_t
|��dkr=|ddkr3|xjdzc_|jdkr|���dSdSdSdS)Nrr\rurDr)	r]rErrr'r�rGr^r�r_s    r�closing_brace_callbackz!Perl6Lexer.closing_brace_callback=s������
���k�k�m�m�T�7�<����
�
�e�i�i�k�k�0I�#J�J�J�J�J��i�i�k�k���
�u�:�:��>�>�e�B�i�7�2�2��-�-��2�-�-��0�A�5�5��	�	�������>�2�2�5�5rc#�K�d|_|���t|j|���|����fV�|���|_|j�d��dS)NrDr)r^rErrr'r�r]r�)rJr�rKs   r�embedded_perl6_callbackz"Perl6Lexer.embedded_perl6_callbackKsp����,-��)��k�k�m�m�T�7�<����
�
�e�i�i�k�k�0I�#J�J�J�J�J��i�i�k�k����
���V�$�$�$�$�$rz$#[`|=](?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])?r9z[$@%&][.^:?=!~]?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�rrrz(?<=~~)\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$rr�commonrrz.+?)rruz(?P<delimiter>(?P<first_char>[)rrfrz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)rgrrfreruc��d�}|���}||��}d�|��}t|d��rdSd}d}tjdt
jzdz|��rd}d}|D]z}tjd	d
|��}tjd|��r�.tjd|��rdStjd
|��}|r|s|�	d���dSd}�zd|vr|dz}|S)Nc��d}g}|D]I}tjd|��rd}�tjd|��rd}�2|s|�|���J|S)NFz
^=(?:end|cut)z^=\w+T)rr�r�)r��in_pod�stripped_linesr�s    r�	strip_podz*Perl6Lexer.analyse_text.<locals>.strip_pod�su���F��N��
0�
0���8�,�d�3�3�0�"�F�F��X�h��-�-�0�!�F�F��0�"�)�)�$�/�/�/��!�!r�
zperl6|rakudo|niecza|pugsTFz(?:my|our|has)\s+(?:z
+\s+)?[$@%&(]g�������?z#.*rz^\s*$z$^\s*(?:use\s+)?v6(?:\.\d(?:\.\d)?)?;z?^\s*(?:(?P<scope>my|our)\s+)?(?:module|class|role|enum|grammar)rg�������?rr)
�
splitlinesr�rrrr�PERL6_IDENTIFIER_RANGErpr��group)rrlr��
saw_perl_decl�ratingr��
class_decls       rrzPerl6Lexer.analyse_text�sP��	"�	"�	"����!�!���	�%� � ���y�y������4�!<�=�=�	��4��
����9�,�z�/P�P�%�&�'+�-�-�	!��F� �M��	�	�D��6�%��T�*�*�D��x��$�'�'�
���x�?��F�F�
��t�t���"d�fj�k�k�J��
� � �J�$4�$4�W�$=�$=�$I��4�4������4�<�<��a�K�F��
rc�p��t��jdi|��|�dd��|_dS)Nr&zutf-8r@)�super�__init__rHr&)r"�options�	__class__s  �rrvzPerl6Lexer.__init__�s9��������#�#�7�#�#�#����J��8�8��
�
�
r)Nrr)6rrrr rr!r"r#r$r%rr'r&r(ro�PERL6_KEYWORDS�PERL6_BUILTINS�PERL6_BUILTIN_CLASSES�PERL6_OPERATORSrHr?rZr`rbrdr�rr,r+rrrrr.r2r3rrr4r5r6r7r8r)r
rrr	rrr?rrv�
__classcell__)rxs@rrr�s2����������D�
 �C�&�&�&�G�,�,�,�I� �!6�7�I��M��L�2�9�$�E�'���N� r�N�h$��L�O�A��(�A�$�h�A�08�(�A��(�A�$�h�A�08�(�A�	�(�A�%�h�A�19�(�A�	�(�	A�%�h�	A�19�(�	A�
	�(�A�
%�h�A�
19�(�A�	�(�
A�%�h�
A�A�19�(�
A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�A�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A�	�(�A�%�h�A�19�(�A� 	�(�!A� %�h�!A� 19�(�!A�"	�(�#A�"%�h�#A�"19�(�#A�A�A�$	�(�%A�$%�h�%A�$19�(�%A�&	�(�'A�&%�h�'A�&19�(�'A�(	�(�)A�(%�h�)A�(19�(�)A�*	�(�+A�*%�h�+A�*19�(�+A�,	�(�-A�,%�h�-A�,19�(�-A�.	�(�/A�.%�h�/A�A�A�.19�(�/A�0	�(�1A�0%�h�1A�019�(�1A�2	�(�3A�2%�h�3A�219�(�3A�4	�(�5A�4%�h�5A�419�(�5A�6	�(�7A�6%�h�7A�619�(�7A�8	�(�9A�8%�h�9A�819�(�9A�:	�(�;A�A�A�:%�h�;A�:19�(�;A�<	�(�=A�<%�h�=A�<19�(�=A�>	�(�?A�>%�h�?A�>19�(�?A�@	�(�AA�@%�h�AA�@19�(�AA�B	�(�CA�B%�h�CA�B19�(�CA�D	�(�EA�D%�h�EA�D19�(�EA�A�A�F	�(�GA�F%�h�GA�F19�(�GA�H	�(�IA�H%�h�IA�H19�(�IA�J	�(�KA�J%�h�KA�J19�(�KA�L	�(�MA�L%�h�MA�L19�(�MA�N	�(�OA�N%�h�OA�N19�(�OA�P	�(�QA�P%�h�QA�A�A�P19�(�QA�R	�(�SA�R%�h�SA�R19�(�SA�T	�(�UA�T%�h�UA�T19�(�UA�V	�(�WA�V%�h�WA�V19�(�WA�X	�(�YA�X%�h�YA�X19�(�YA�Z	�(�[A�Z%�h�[A�Z19�(�[A�\	�(�]A�A�A�\%�h�]A�\19�(�]A�^	�(�_A�^%�h�_A�^19�(�_A�`	�(�aA�`%�h�aA�`19�(�aA�b	�(�cA�b%�h�cA�b19�(�cA�d	�(�eA�d%�h�eA�d19�(�eA�f	�(�gA�f%�h�gA�f19�(�gA�A�A�h	�(�iA�h%�h�iA�h19�(�iA�j	�(�kA�j%�h�kA�j19�(�kA�l	�(�mA�l%�h�mA�l19�(�mA�n	�(�oA�n%�h�oA�n19�(�oA�p	�(�qA�p%�h�qA�p19�(�qA�r	�(�sA�r%�h�sA�A�A�r19�(�sA�t	�(�uA�t%�h�uA�t19�(�uA�v	�(�wA�v%�h�wA�v19�(�wA�x	�(�yA�x%�h�yA�x19�(�yA�z	�(�{A�z%�h�{A�z19�(�{A�|	�(�}A�|%�h�}A�|19�(�}A�~	�(�A�A�~'/�(��h�(�AA�A�A�N�F/�/�/�/�6�6�6�p3�3�3����%�%�%�/
�
4�r�w�w�~�7N�7N�
N�Qg�
g�
�
�w�0�
1�
1�
3�/
��'�.�)�/
�6�w�7H�I�	/
�
&�w�'8�9�/
��w�0�1�
/
�'�)?�
?�(�
J�
�X�g�t�
$�
$�&:�
<�/
�&�(>�
>��
I�Lb�
b�ej�
j�
�X�g�t�
$�
$�k�
3�/
�$�X�X�g�z�4��%T�%T�U�/
��
�~�/E�
F�
F��P�/
��
�4�6L�Ua�
b�
b�
b�
�\�
�/
� �
�~�/E�
F�
F���U�!/
�$!�#9�
9�<Y�
Y�
�]�
�%/
�(1�$�-�2F�G�)/
�*���-�.�+/
�,�1�
1�4Q�
Q�
�]�
!�
#�-/
�0�d�m�,�1/
�2"�#4�#4�V�#<�#<�
>�3/
�8$�V�Z�0�9/
�:/��
�;�;/
�<!�&�*�-�=/
�>P�
�\�
�?/
�B/���=�C/
�D�F�N�+�E/
�F-�f�l�;�G/
�H0���>�I/
�J�D�!�K/
�L"�#4�#4�V�\�#B�#B�
D�M/
�PS�
�\�
�Q/
�T�v�&�U/
�V�
��
/�
/��:�W/
�X�+�
+�c�
1�4�8�Y/
�Z)�&�1�[/
�\)�&�1�]/
�b
�G�H���
�*�+�
�*�+�
�T�N�	
�
�G�H���
�D�+�,�
�T�N�
�/�����1H�1H�
H�K`�
`�
�
�t�
$�
$�&;�
=��G�)�*�*�
��D�&�!�
<�e�e�D�k�k�J�
(�&�,�7�
/���>�
/���>�
�w�~�&�
�+�,�
�F�L�!�
�CM�M�F�^5�5�5�n9�9�9�9�9�9�9�9�9r)r r�pygments.lexerrrrrrrr	r
�pygments.tokenrrr
rrrrrr�
pygments.utilr�__all__rrr@rr�<module>r�sz����
�	�	�	� � � � � � � � � � � � � � � � � � � � �$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�)�)�)�)�)�)���
%��I�I�I�I�I�
�I�I�I�X{9�{9�{9�{9�{9�#�{9�{9�{9�{9�{9r