https://t.me/RX1948
Server : Apache
System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
User : dh_edsupp ( 6597262)
PHP Version : 8.2.26
Disable Function : NONE
Directory :  /lib/python3/dist-packages/pygments/lexers/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //lib/python3/dist-packages/pygments/lexers/__pycache__/perl.cpython-310.pyc
o

���a���@s�dZddlZddlmZmZmZmZmZmZm	Z	m
Z
ddlmZm
Z
mZmZmZmZmZmZddlmZddgZGdd�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�
Perl6Lexerc@sNeZdZdZdZddgZgd�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
gdejf�dejf�dejf�eddd�ef�deeeeeee�df�dejf�dej
f�dej
f�dej
f�dej
f�d ej
f�d!ej
d"f�d#ej
d"f�d$ej
d"f�d%ej
d"f�d&ej
f�d'ej
d"f�d(ej
f�d)ef�ed*dd�ejf�d+ejjf�d,eeeejeeje�f�d-ejd.f�d/ejjf�d0ejjf�d1ejd2f�d3e j!f�d4e j"f�d5e j#f�d6e j$f�d7e j$f�d8e j%f�d9ef�d:ef�d;ej&f�d<ej
f�d=ej'd>f�d?ej'd@f�dAej'dBf�dCej'dDf�dEej'f�dFeeeej(�f�dGeeeej(�f�dHeee�dIf�edJdd�ef�dKef�dLef�dMef�dNedOf�dPe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	fgdo�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)�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�forkr7�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.+)r8�rootr7r�r
rrrrrr�cCs:t|d�rdSd}t�d|�r|d7}d|vr|d}|S)NrTrz(?:my|our)\s+[$@%(]g�������?�:=�)r�re�search)�text�result�r�6/usr/lib/python3/dist-packages/pygments/lexers/perl.py�analyse_text�s
zPerlLexer.analyse_textN).�__name__�
__module__�__qualname__�__doc__r
�aliases�	filenames�	mimetypesr�DOTALL�	MULTILINE�flagsr�Regexr�Hashbang�Single�	Multiliner	r
rr
rrr�Word�Builtin�Pseudo�	Delimiter�Preproc�Variable�Globalr�Oct�Hex�Bin�Float�Integer�Backtick�Other�	Namespace�Interpol�Constant�Function�tokensrrrrrrs�









�������
�����������
�
������
� ��"�#���
?�@��
B�
C�
D�
E�F�G�H�I��K�L�M�N�O�P�
Q�
R�
S�
T�U�V��X��Z�[���^��`�a�c�
f�
�


��	

�

�

�

�
���.c
s,	eZdZdZdZgd�Zgd�ZddgZej	ej
BejBZdZ
dZd	Zd
ZdZidd
�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�d d!�d"d!�d#d!�d$d%�d&d'�d(d)�id*d+�d,d-�d.d/�d0d1�d2d3�d4d5�d6d7�d8d9�d:d;�d<d=�d>d?�d@dA�dBdC�dDdE�dFdG�dHdI�dJdK��idLdM�dNdO�dPdQ�dRdS�dTdU�dVdW�dXdY�dZd[�d\d]�d^d_�d`da�dbdc�ddde�dfdg�dhdi�djdk�dldm��idndo�dpdq�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���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.�d/��d0�d1��d2�d3��d4�d5��d6�d7��d8�d9��i�d:�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[��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}���d~�d�d��d��d��d���Z�dɐd��d��Z�d��d��Z�d��d��Z�d��d��Z�d��d��Zg�d��d��e��d�eej�f��d�ejf��d�ejf��d�ejf��d�ejf��d�e
�d�eee��d�f��d�e
�d�e
�d�eee��d�f��d�eeeee�f�eee
�ef�eee
�d��d��ej f�eee
�ej f��d�e
�d�ej!f��d�ej!j"f��d�ej!j"f��d�e
�d�ej!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
�d�ef��d�e#f��d�e#f�e,�d���d�ef�d�ef�d�efge,�d���d�e�d�f�d�efg�d��d��e��d�ee��d�fe-�d��g�d�e�d�f�d�e.e/�f�d�e#j*f�d�e#j*f�d�e#j*f�d�ejf�d�ef�d�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
    �Perl6)�perl6�pl6�raku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz	*.rakumodz
*.rakutestz	*.rakudocztext/x-perl6zapplication/x-perl6z['\w:-])Nr0�CATCHr1�CLOSE�CONTROL�DOCr3�ENTER�FIRSTr2�KEEP�LAST�LEAVE�NEXT�POST�PRE�QUIT�UNDO�anon�augment�but�class�constantr�doesrr �enumr!�gather�given�grammar�hasr#r��is�let�loop�made�make�method�module�multir%�need�orwithr'�proceed�proto�repeatrr4z	return-rw�returns�role�rule�state�sub�	submethod�subset�succeed�	supersede�token�try�unitr+r,r	�whenr-�with�without�export�native�repr�required�rw�symbol(�ACCEPTSr9�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�bitsr?�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�charsrA�childz
child-namezchild-typenamerBrCrDrF�chrs�chunks�cis�classifyz
classify-list�cleanup�clonerH�closedzclose-stdinzcmp-ok�code�codes�collate�column�comb�combinations�command�comment�compiler�Complex�compose�compose_type�composer�	condition�config�configure_destroy�configure_type_checking�conjrJ�constraints�	construct�contains�contents�copyrK�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�deepmaprrO�DEFINITE�delayedz
DELETE-KEYz
DELETE-POS�denominator�desc�DESTROY�
destroyers�devnull�diagzdid-you-meanrQzdies-ok�dir�dirnamezdir-sep�DISTROnamesrrPzdoes-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�enumsrZ�EVALzeval-dies-ok�EVALFILEz
eval-lives-ok�	exceptionzexcludes-maxzexcludes-minz
EXISTS-KEYz
EXISTS-POSr^�exitcoder_�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�fmtr7�	formatter�freeze�fromz	from-listz	from-loopz
from-posix�fullzfull-barrier�get�	get_valuere�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�lsbrY�MAINrZ�Map�match�max�maxpairs�merge�messager[�method_table�methods�migrate�min�minmax�minpairs�minute�	misplaced�Mix�MixHashr��mode�modified�month�move�mro�msbr]�	multinessr%r
�named�named_names�narrow�
nativecastznative-descriptor�nativesizeofr/�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�prependr.r�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�rd�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�WHATro�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�GrammarrJ�
HyperWhateverr\r^�int16�int32�int64�int8�IntStrrbz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�Seqrr �Setty�	Signature�size_tr.�StashrA�StrDistance�Stringy�Sub�	Submethod�SupplierzSupplier::PreservingrJ�Systemic�Tap�	TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::Sampler�Thread�ThreadPoolScheduler�UInt�uint16�uint32�uint64�uint8�Uni�utf8r+�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?|rr�&rrMrPz<=>z..z..^z^..z^..^z!=z==�<z<=�>z>=z~~z===z!eqvz&&rz^^z//r�r�z??z!!rrr3r�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�cCsh|durd|d�dd�|D��|dSd|d|dd�d	d�|D��d|d
|dS)Nz\b(rcs��|]}t�|�VqdS�N�r�escape��.0r�rrr�	<genexpr>���z/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r%r$csr-r.r/r1rrrr3�r4z(?!)r�)r	�boundary_regex_fragmentr�r6rrr�_build_word_match�s&��������zPerl6Lexer._build_word_matchcs�fdd�}|S)Nc3s��|��}|d}t|�}|�d�}tj�|d�}|j}|dur-|�||�d�|�}	nE||}
d}|�d�}|dkrp|�|||�}
|�|
||�}|dkrWt|�}d}n|
dkrf|
|krf|d7}|
}n|d8}|}|dks<|}	|	dkrzt|�}	|dur�t�	d|�r�||�d�||	�}t�	dt�
|�d||	d�tj�}|r�|	|��7}	nt|�}	|���||��|	|�fV|	||_
dS)	N�	delimiter�adverbsr����z:to\bz^\s*z\s*$)�	groupdict�lenr?r�PERL6_BRACKETSr�findr<rrr0r rr�)�lexerr��context�groups�
opening_chars�n_charsr8�closerr�end_pos�
closing_chars�
nesting_level�
search_pos�
next_open_pos�next_close_pos�heredoc_terminator�end_heredoc��token_classrr�callback�sN�

��� z.Perl6Lexer.brackets_callback.<locals>.callbackr)rNrOrrMr�brackets_callback�s5zPerl6Lexer.brackets_callbackccsf�|j}|��t|j|��|���fV|��|_t|�dkr/|ddkr1|jd7_dSdSdS)Nr���rlr9)�stackr<r
rrr�r<�perl6_token_nesting_level�r?r�r@rRrrr�opening_brace_callback.s�"
�z!Perl6Lexer.opening_brace_callbackccs|�|j}|��t|j|��|���fV|��|_t|�dkr8|ddkr:|jd8_|jdkr<|��dSdSdSdS)NrrQrlr9r)	rRr<r
rrr�r<rSr�rTrrr�closing_brace_callback;s�"

�z!Perl6Lexer.closing_brace_callbackccsD�d|_|��t|j|��|���fV|��|_|j�d�dS)Nr9r)rSr<r
rrr�rRr�)r?r�r@rrr�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])?r5z[$@%&][.^:?=!~]?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\wrr�r�commonrr
z.+?)rrlz(?P<delimiter>(?P<first_char>[)rrYrz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)rZrrYrXrlcCs�dd�}|��}||�}d�|�}t|d�rdSd}d}t�dtjd|�r+d	}d}|D]0}t�d
d|�}t�d|�r=q-t�d
|�rFdSt�d|�}|r]|sW|�	d�durZdSd}q-d|vrf|d}|S)NcSsHd}g}|D]}t�d|�rd}qt�d|�rd}q|s!|�|�q|S)NFz
^=(?:end|cut)z^=\w+T)rr�r�)rz�in_pod�stripped_linesryrrr�	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)rg�������?rr)
�
splitlinesr�rrrr�PERL6_IDENTIFIER_RANGErgr��group)rr]rz�
saw_perl_decl�ratingry�
class_declrrrr�s>

��zPerl6Lexer.analyse_textcs$t�jdi|��|�dd�|_dS)Nrzutf-8r)�super�__init__r?r)r�options��	__class__rrrf�szPerl6Lexer.__init__)Nr,r,)4rrrrr
rrrrr r�UNICODEr!r`�PERL6_KEYWORDS�PERL6_BUILTINS�PERL6_BUILTIN_CLASSES�PERL6_OPERATORSr=r6rPrUrVrWr�rr%r$rr
rr
r'r+r,rrr-r.r/r0r1r"rrrrrr8rrf�
__classcell__rrrhrr�s�t&������������������������	�	�	�
�
�
�������
�
�
������������������������������������������������������� � � �!�!�!�"�"�"�#�#�#�$�$�$�%�%�%�&�&�&�'�'�'�(�(�(�)�)�)�*�*�*�+�+�+�,�,�,�-�-�-�.�.�.�/�/�/�0�0�0�1�1�1�2�2�2�3�3�3�4�4�4�5�5�5�6�6�6�7�7�7�8�8�8�9�9�9�:�:�:�;�;�;�<�<�<�=�=�=�>�>�>�?�?
�C	8
��
�
�
�
���	���
����������
���
�
�
���
!�
"�
#�
$�%�&��(��*�
+�,�-�.�1��
��




��O7)rr�pygments.lexerrrrrrrrr	�pygments.tokenr
rrr
rrrr�
pygments.utilr�__all__rrrrrr�<module>s
((K

https://t.me/RX1948 - 2025