HEX
Server: Apache/2.4.67 (Debian)
System: Linux vps-b2547eb4 6.1.0-41-cloud-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.158-1 (2025-11-09) x86_64
User: root (0)
PHP: 8.2.31
Disabled: NONE
Upload Files
File: //lib/python3/dist-packages/pygments/lexers/__pycache__/perl.cpython-311.pyc
�

�E�c����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-2022 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�j�eZdZdZdZdZddgZgd�ZddgZe	j
e	jzZd	e
jd
fde
jd
fde
jd
fd
e
jd
fde
jd
fde
jd
fde
jd
fde
jd
fde
jd
fde
jd
fg
gdejf�dejf�dejf�edd���ef�deeeeeee��df�dejf�de
jf�de
jf�de
jf�d e
jf�d!e
jf�d"e
jd#f�d$e
jd#f�d%e
jd#f�d&e
jd#f�d'e
jf�d(e
jd#f�d)e
jf�d*ef�ed+d���ejf�d,ejjf�d-ee
e
e
je
e
je��f�d.ejd/f�d0ejj f�d1ejj f�d2ejd3f�d4e!j"f�d5e!j#f�d6e!j$f�d7e!j%f�d8e!j%f�d9e!j&f�d:e
f�d;e
f�d<e
j'f�d=e
jf�d>e
j(d?f�d@e
j(dAf�dBe
j(dCf�dDe
j(dEf�dFe
j(f�dGeeeej)��f�dHeeeej)��f�dIeee��dJf�edKd���ef�dLef�dMef�dNef�dOedPf�dQe
j*d
fdRe
j*fgd*efdSed
fdTed
fdUej)fdVejd
fgdWej)d
fdXej)d
fdVed
fdYej+d
fdZe,d
fgd[ej-fd*efd\eee��fd]ed
fd^ed
fgd_e
j(fd`e
j(fdSe
j(d?fdae
j(d
fdbe
j(fgdce
j(fd`e
j(fdde
j(dAfdee
j(d
fdfe
j(fgdge
j(fd`e
j(fdhe
j(dCfdie
j(d
fdje
j(fgdke
j(fd`e
j(fdle
j(dEfdme
j(d
fdne
j(fgdoejd
fgdp�Z.dq�Z/drS)srz
    For Perl source code.
    �Perlzhttps://www.perl.org�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)�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�r
rrrrrr�c�t�t|d��rdSd}tjd|��r|dz
}d|vr|dz}|S)NrTrz(?:my|our)\s+[$@%(]g�������?�:=�)r�re�search)�text�results  �6/usr/lib/python3/dist-packages/pygments/lexers/perl.py�analyse_textzPerlLexer.analyse_text�sU���4��)�)�	��4���
�9�+�T�2�2�	��c�M�F��4�<�<�
�a�K�F��
�N)0�__name__�
__module__�__qualname__�__doc__r
�url�aliases�	filenames�	mimetypesr�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��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
�H��eZdZdZdZdZgd�Zgd�ZddgZe	j
e	jzZdZ
d	Zd
ZdZdZid
d�dd�dd�dd�dd�dd�dd�dd�dd�dd�d d�d!d"�d#d"�d$d"�d%d&�d'd(�d)d*�id+d,�d-d.�d/d0�d1d2�d3d4�d5d6�d7d8�d9d:�d;d<�d=d>�d?d@�dAdB�dCdD�dEdF�dGdH�dIdJ�dKdL��idMdN�dOdP�dQdR�dSdT�dUdV�dWdX�dYdZ�d[d\�d]d^�d_d`�dadb�dcdd�dedf�dgdh�didj�dkdl�dmdn��idodp�dqdr�dsdt�dudv�dwdx�dydz�d{d|�d}d~�dd��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.��d/�d0��d1�d2��d3�d4��d5�d6��d7�d8��d9�d:��i�d;�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\��i�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}�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�e
z�d�zeee���d�f��d�e
z�d�ze
z�d�zeee���d�f��d�eeeee��f�eee
��ef�eee
�d������ej f�eee
��ej f��d�e
z�d�zej!f��d�ej!j"f��d�ej!j"f��d�e
z�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�e
z�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�e/e0��f�d�e#j*f�d�e#j*f�d�e#j*f�d�ejf�d�ef�d�e#j*fg�d��Z1�d��Z2�f�d„Z3�xZ4S(�rzJ
    For Raku (a.k.a. Perl 6) source code.

    .. versionadded:: 2.0
    �Perl6zhttps://www.raku.org)�perl6�pl6�raku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz	*.rakumodz
*.rakutestz	*.rakudocztext/x-perl6zapplication/x-perl6z['\w:-])Nr3�CATCHr4�CLOSE�CONTROL�DOCr6�ENTER�FIRSTr5�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�repeatrr7z	return-rw�returns�role�rule�state�sub�	submethod�subset�succeed�	supersede�token�try�unitr.r/r�whenr0�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�bitsrB�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�charsrD�childz
child-namezchild-typenamerErFrGrI�chrs�chunks�cis�classifyz
classify-list�cleanup�clonerK�closedzclose-stdinzcmp-ok�code�codes�collate�column�comb�combinations�command�comment�compiler�Complex�compose�compose_type�composer�	condition�config�configure_destroy�configure_type_checking�conjrM�constraints�	construct�contains�contents�copyrN�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	rR�DEFINITE�delayedz
DELETE-KEYz
DELETE-POS�denominator�desc�DESTROY�
destroyers�devnull�diagzdid-you-meanrTzdies-ok�dir�dirnamezdir-sep�DISTROnamesr!rWzdoes-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-POSra�exitcoderb�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_valuerh�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�lsbr`�MAINra�Map�match�max�maxpairs�merge�messagerb�method_table�methods�migrate�min�minmax�minpairs�minute�	misplaced�Mix�MixHashr��mode�modified�month�move�mro�msbrd�	multinessr(r
�named�named_names�narrow�
nativecastznative-descriptor�nativesizeofr2�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�r
z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�prependr1r�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�rk�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�WHATrv�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�GrammarrQ�
HyperWhateverrcre�int16�int32�int64�int8�IntStrriz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_tr5�StashrH�StrDistance�Stringy�Sub�	Submethod�SupplierzSupplier::PreservingrQ�Systemic�Tap�	TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::Sampler�Thread�ThreadPoolScheduler�UInt�uint16�uint32�uint64�uint8�Uni�utf8r0�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+|rz~|rz?|r r�&r!rTrWz<=>z..z..^z^..z^..^z!=z==�<z<=�>z>=z~~z===z!eqvz&&rz^^z//r�r�z??z!!rrr: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「N�c���|�+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��dSr6r7r9s  rr;z/Perl6Lexer._build_word_match.<locals>.<genexpr>�s*����6�6�1�"�)�A�,�,�6�6�6�6�6�6rz(?!)r�)r
�boundary_regex_fragmentr�r9s    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�lenrFr�PERL6_BRACKETSr�findrCrrr8r%r%r�)�lexerr��context�groups�
opening_chars�n_charsrB�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>)rWrXs` 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���rsrC)�stackrCrrr%r�rF�perl6_token_nesting_level�rIr�rJr\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[rsrCr)	r\rCrrr%r�rFr]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)NrCr)r]rCrrr%r�r\r�)rIr�rJs   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])?r8z[$@%&][.^:?=!~]?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�rrz(?<=~~)\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.+?)rrsz(?P<delimiter>(?P<first_char>[)rrerz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)rfrrerdrsc��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#.*r3z^\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_RANGErnr��group)rrkr��
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__rFr$)r �options�	__class__s  �rruzPerl6Lexer.__init__�s9��������#�#�7�#�#�#����J��8�8��
�
�
r)Nr3r3)5rrrrr
r r!r"r#rr%r$r&rn�PERL6_KEYWORDS�PERL6_BUILTINS�PERL6_BUILTIN_CLASSES�PERL6_OPERATORSrGr>rYr_rarcr�rr*r)rrrrr,r0r1rrr2r3r4r5r6r'r
rrr	rrr=rru�
__classcell__)rws@rrr�s-����������D�
 �C�&�&�&�G�,�,�,�I� �!6�7�I��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)rr�pygments.lexerrrrrrrr	r
�pygments.tokenrrr
rrrrrr�
pygments.utilr�__all__rrr>rr�<module>r�sz����
�	�	�	� � � � � � � � � � � � � � � � � � � � �$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�$�)�)�)�)�)�)���
%��H�H�H�H�H�
�H�H�H�V|9�|9�|9�|9�|9�#�|9�|9�|9�|9�|9r