Your IP : 216.73.216.213

Current Path : /opt/alt/python37/lib/python3.7/site-packages/pygments/lexers/__pycache__/
Current File : //opt/alt/python37/lib/python3.7/site-packages/pygments/lexers/__pycache__/perl.cpython-37.pyc
B

˽�\}�@s�dZddlZddlmZmZmZmZmZmZm	Z	m
Z
ddlmZm
Z
mZmZmZmZmZmZddlmZddgZGdd�de�ZGd	d�de�ZdS)
z�
    pygments.lexers.perl
    ~~~~~~~~~~~~~~~~~~~~

    Lexers for Perl and related languages.

    :copyright: Copyright 2006-2019 by the Pygments team, see AUTHORS.
    :license: BSD, see LICENSE for details.
�N)�
RegexLexer�ExtendedRegexLexer�include�bygroups�using�this�default�words)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation)�shebang_matches�	PerlLexer�
Perl6Lexerc4@s�eZdZdZdZddgZdddgZdd	gZej	ej
BZd
ej
dfdej
dfd
ej
dfdej
dfdej
dfdej
dfdej
dfdej
dfdej
dfdej
dfg
dejfdejfdejfeddd�efdeeeeeee�dfdejfdej
fdej
fd ej
fd!ej
fd"ej
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/ejd0fd1ejjfd2ejjfd3ejd4fd5e j!fd6e j"fd7e j#fd8e j$fd9e j$fd:e j%fd;efd<efd=ej&fd>ej
fd?ej'd@fdAej'dBfdCej'dDfdEej'dFfdGej'fdHeeeej(�fdIeeeej(�fdJeee�dKfedLdd�efdMefdNefdOefdPedQfg1dRej)dfdSej)fgd+efdTedfdUedfdVej(fdWejdfgdXej(dfdYej(dfdWedfdZej*dfd[edfgd\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,drds�Z-dtS)urz8
    For `Perl <http://www.perl.org>`_ source code.
    ZPerl�perl�plz*.plz*.pmz*.tztext/x-perlzapplication/x-perlz"/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*z#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�resetZthen�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*zbalanced-regexzs<(\\\\|\\[^\\]|[^\\>])*>\s*zs\[(\\\\|\\[^\\]|[^\\\]])*\]\s*zs\((\\\\|\\[^\\]|[^\\)])*\)\s*z&m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*zm(?=[/!\\{<\[(@%$])z6((?<==~)|(?<=\())\s*/(\\\\|\\[^\\]|[^\\/])*/[gcimosx]*z\s+)��abs�accept�alarm�atan2�bindZbinmode�bless�caller�chdir�chmod�chomp�chop�chown�chr�chroot�closeZclosedir�connectr�cosZcryptZdbmcloseZdbmopen�defined�delete�die�dump�eachZendgrentZ
endhostentZ	endnetentZendprotoentZendpwentZ
endservent�eof�eval�exec�exists�exit�expZfcntl�filenoZflock�forkr.Zformline�getcZgetgrent�getgrgid�getgrnam�
gethostbyaddr�
gethostbynameZ
gethostent�getloginZgetnetbyaddrZgetnetbynameZ	getnetent�getpeername�getpgrp�getppid�getpriority�getprotobynameZgetprotobynumberZgetprotoentZgetpwent�getpwnam�getpwuid�
getservbyname�
getservbyportZ
getservent�getsockname�
getsockopt�glob�gmtime�goto�grep�hex�import�index�intZioctl�join�keys�killr�lc�lcfirst�length�link�listen�local�	localtime�log�lstat�map�mkdirZmsgctlZmsggetZmsgrcvZmsgsndrr�oct�open�opendir�ordr �pack�pipe�pop�pos�printfZ	prototype�push�	quotemeta�rand�read�readdir�readline�readlinkZreadpipe�recvr!�ref�rename�reverse�	rewinddir�rindex�rmdirZscalar�seekZseekdir�selectZsemctlZsemgetZsemop�sendZsetgrentZ
sethostentZ	setnetent�setpgrp�setpriorityZsetprotoentZsetpwentZ
setservent�
setsockopt�shiftZshmctlZshmgetZshmreadZshmwrite�shutdown�sin�sleep�socket�
socketpair�sort�splice�split�sprintf�sqrt�srand�statZstudy�substr�symlinkZsyscallZsysopenZsysreadZsysseek�systemZsyswrite�tellZtelldirZtieZtied�time�times�tr�truncate�uc�ucfirst�umask�undef�unlink�unpack�unshiftZuntie�utime�values�vec�wait�waitpidZ	wantarray�warn�writez+((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\bz/(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)Z__END__zend-partz\$\^[ADEFHILMOPSTWX]z(\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)z[$@%#]+�varnamez0_?[0-7]+(_[0-7]+)*z0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*z0b[01]+(_[01]+)*z?(?i)(\d*(_\d*)*\.\d+(_\d*)*|\d+(_\d*)*\.\d+(_\d*)*)(e[+-]?\d+)?z(?i)\d+(_\d*)*e[+-]?\d+(_\d*)*z
\d+(_\d+)*z'(\\\\|\\[^\\]|[^'\\])*'z"(\\\\|\\[^\\]|[^"\\])*"z`(\\\\|\\[^\\]|[^`\\])*`z<([^\s>]+)>z(q|qq|qw|qr|qx)\{z	cb-stringz(q|qq|qw|qr|qx)\(z	rb-stringz(q|qq|qw|qr|qx)\[z	sb-stringz(q|qq|qw|qr|qx)\<z	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]*\nz\{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[^<>]+z.+)zbalanced-regex�rootr.r�r�r�z	cb-stringz	rb-stringz	sb-stringz	lt-stringzend-partcCs"t|d�rdSt�d|�rdSdS)NrTz(?:my|our)\s+[$@%(]g�������?)r�re�search)�text�r��E/opt/alt/python37/lib/python3.7/site-packages/pygments/lexers/perl.py�analyse_text�s
zPerlLexer.analyse_textN).�__name__�
__module__�__qualname__�__doc__r��aliases�	filenames�	mimetypesr��DOTALL�	MULTILINE�flagsr�RegexrZHashbang�Single�	Multiliner	r
rr
rrr�Word�BuiltinZPseudoZ	DelimiterZPreproc�Variable�Globalr�Oct�Hex�Bin�Float�IntegerZBacktickZOtherZ	NamespaceZInterpolZConstantZFunction�tokensr�r�r�r�r�rs�









































c�s�eZdZdZdZddgZddddd	d
ddd
ddgZddgZej	ej
BejBZdZ
dZdZdZdZdddddddddddd d d d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dd�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�d�dӜ�Z�dd�dׄZd�dلZd�dۄZd�d݄Zd�d߄Zd�dՠe�d�eej�fd�ejfd�ejfd�ejfd�ejfd�e
d�eee�d�fd�e
d�e
d�eee�d�fd�eeeee�feee
�efeee
d�d�ej feee
�ej fd�e
d�ej!fd�ej!j"fd�ej!j"fd�e
d�ej!j"fd�ej!fd�ee#�fd�e$j%fd�e$j&fd�e$j'fd�e$j(fd�e$j(fd�e$j)fd�e#j*fd�e#j*fd�ef�dee#j*�f�de#j*f�de#fee�e+f�de
�def�de#f�de#fg!e,�d��def�d	ef�d
efge,�d��de�df�d
efg�ddՠe�d�ee��d
fe-�d
�g�d	e�df�de.e/�f�de#j*f�de#j*f�de#j*f�dejf�def�d
e#j*fg�d�Z0�d�d�Z1�f�d�d�Z2�Z3S(rzV
    For `Perl 6 <http://www.perl6.org>`_ source code.

    .. versionadded:: 2.0
    ZPerl6Zperl6Zpl6z*.plz*.pmz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6z*.tztext/x-perl6zapplication/x-perl6z['\w:-])sr(ZCATCHr)ZCONTROLr+ZENTERZFIRSTr*ZKEEPZLASTZLEAVEZNEXTZPOSTZPREZSTART�TEMPZUNDO�asZassoc�asyncZaugment�binary�break�but�cached�category�classZconstantZcontendr�copy�deeprZdefequivZdeferrBrrr�enumZequivrIZexportZfail�fatalrZgather�givenr`ZgrammarZhandlesZhasr�inlineZirs�isrZleaveZletZliftZloopZlooser�macroZmake�maybe�method�moduleZmultirrZofZofs�onlyZooZorsr r��parsedZprec�proto�readonlyr!r�ZregexZreparsed�repeatr��requiredr,ZreturnsZroleZrule�rw�selfZslang�state�subZ	submethodZsubsetZ	supersedeZtake�tempZtighter�tokenZtrusts�tryZunaryr#r$r�r�Zwhen�wherer%Zwill)�ZACCEPTSZHOWZREJECTSZVARZWHATZWHENCEZWHEREZWHICHZWHOr/�acosZacosecZacosech�acoshZacotanZacotanh�all�anyZapprox�arityZasecZasech�asin�asinhZassuming�atanr2�atanh�attrr4�bodyZby�bytesr5ZcallsameZcallwithZcan�
capitalize�catZceiling�charsr7r8r9r;r<Z	circumfixZcisZclassify�cloner=Zcmp_ok�codesZcombr>�contains�contextr?ZcosecZcosech�coshZcotanZcotanh�countr@rAZdiagZdies_ok�does�erDZeagerZelems�endrErFZeval_dies_okZeval_elsewhereZ
eval_lives_okZevalfilerHrJ�firstZflip�floorZflunk�flush�fmtZ
force_todorL�fromrMZgethostrRrSZgetpwr_ZgraphsraZhintsZhyperZimrdZinfix�invertZ	is_approxZ	is_deeplyZisaZisa_okZisnt�iteratorrf�keyrgrhZkvZlastcallZlazyrirjZlike�linesrlZlives_okrorp�log10rr�max�minZminmaxr�r'ZnextsameZnextwithZnfc�nfdZnfkcZnfkdZ	nok_errorZnonceZnone�	normalize�notZnothing�ok�onceZonerurv�operatorrwZp5chompZp5choprx�pair�pairs�passr�piZpickZplanZplan_okZpolarrzr{Z
postcircumfixZpostfix�pred�prefixr&r|r}Zquasir~rr�r�r�r��reducer�Zrewindr�r��roots�roundZ
roundrobin�runZ
runinsteadZ
sameaccentZsamecaseZsayZsec�sechr0r��shaper��sign�	signaturer��sinh�skipZ	skip_restr�Zslurpr�r�r�r�r�r�ZstrandZsubstr�Zsucc�sumr��tan�tanhZ	throws_okr�r��toZtodoZtrimZtrim_endZ
trim_start�truer�r�r�r�ZundefineZuniqZunliker�r�Zunpolarr��unwrapZuse_ok�valuer�r�Z
version_lt�voidr�Zwant�wrapr��zip)oZAbstractionZAnyZAnyChar�ArrayZAssociativeZBagZBitZBlobZBlockZBoolZBufZByte�CallableZCaptureZCharZClassZCodeZ	CodepointZ
Comparator�ComplexZ
Decreasing�	ExceptionZFailure�FalseZGrammarZGraphemeZHashZIOZ
IncreasingZIntZJunctionZKeyBagZKeyExtractorZKeyHashZKeySetZKitchenSinkZListZMacro�Mapping�MatchZMatcher�Method�Module�NumZObjectZOrderedZOrderingZOrderingPairZPackageZPairZ
PositionalZProxyZRangeZRatr�ZRoleZRoutineZScalarZSeq�Set�	Signature�StrZStrLenZStrPosZSubZ	Submethod�TrueZUIntZUndef�VersionZVoidZWhatever�bit�bool�bufZbuf1Zbuf16�buf2Zbuf32Zbuf4Zbuf64Zbuf8�complexreZint1Zint16Zint2Zint32Zint4Zint64Zint8�numZratZrat1Zrat16Zrat2Zrat32Zrat4Zrat64Zrat8ZuintZuint1Zuint16Zuint2Zuint32Zuint4Zuint64Zuint8�utf16�utf32�utf8)e�X�Z�afterZalso�andZandthen�beforeZcmpZdiv�eqZeqv�extra�ff�fff�ge�gt�leZleg�lt�m�mm�mod�ne�orZorelseZrx�sr��x�xorZxxz++z--z**�!�+�-�~�?�|z||z+^z~^z?^�^�*�/�%z%%z+&z+<z+>z~&z~<z~>z?&�gcdZlcmrnroz+|z+^z~|z~^z?|z?^rp�&rsr�rz<=>z..z..^z^..z^..^z!=z==�<z<=�>z>=z~~z===z!eqvz&&z||z^^z//rrz??z!!r_r`�sor"z<==z==>z<<==z==>>�)rz�]�}�»u༻u༽u᚜u’u”u›u⁆u⁾u₎u∋u∌u∍u⧵u∽u⋍u≓u≕u≥u≧u≩u≫u≯u≱u≳u≵u≷u≹u≻u≽u≿u⊁u⊃u⊅u⊇u⊉u⊋u⊐u⊒u⦸u⊣u⫞u⫤u⫣u⫥u⊱u⊳u⊵u⊷u⋊u⋌u⋑u⋗u⋙u⋛u⋝u⋟u⋡u⋣u⋥u⋧u⋩u⋫u⋭u⋱u⋺u⋻u⋼u⋽u⋾u⌉u⌋u〉u⎵u❩u❫u❭u❯u❱u❳u❵u⟄u⟆u⟖u⟞u⟣u⟥u⟧u⟩u⟫u⦄u⦆u⦈u⦊u⦌u⦎u⦐u⦒u⦔u⦖u⦘u⧁u⧅u⧐u⧒u⧕u⧙u⧛u⧹u⧽u⨬u⨮u⨵u⨽u⩥u⩺u⩾u⪀u⪂u⪄u⪌u⪒u⪔u⪖u⪘u⪚u⪜u⪢u⪧u⪩u⪫u⪭u⪰u⪴u⪼u⪾u⫀u⫂u⫄u⫆u⫎u⫐u⫒u⫔u⫖u⫭u⫸u⫺u⸃u⸅u⸊u⸍u⸝u⸡u〉u》u」u』u】u〕u〗u〙u〛u〞u﴿u︘u︶u︸u︺u︼u︾u﹀u﹂u﹄u﹈u﹚u﹜u﹞u）u＞u］u｝u｠u｣)��(ry�[�{�«u༺u༼u᚛u‘u‚u‛u“u„u‟u‹u⁅u⁽u₍u∈u∉u∊u∕u∼u≃u≒u≔u≤u≦u≨u≪u≮u≰u≲u≴u≶u≸u≺u≼u≾u⊀u⊂u⊄u⊆u⊈u⊊u⊏u⊑u⊘u⊢u⊦u⊨u⊩u⊫u⊰u⊲u⊴u⊶u⋉u⋋u⋐u⋖u⋘u⋚u⋜u⋞u⋠u⋢u⋤u⋦u⋨u⋪u⋬u⋰u⋲u⋳u⋴u⋶u⋷u⌈u⌊u〈u⎴u❨u❪u❬u❮u❰u❲u❴u⟃u⟅u⟕u⟝u⟢u⟤u⟦u⟨u⟪u⦃u⦅u⦇u⦉u⦋u⦍u⦏u⦑u⦓u⦕u⦗u⧀u⧄u⧏u⧑u⧔u⧘u⧚u⧸u⧼u⨫u⨭u⨴u⨼u⩤u⩹u⩽u⩿u⪁u⪃u⪋u⪑u⪓u⪕u⪗u⪙u⪛u⪡u⪦u⪨u⪪u⪬u⪯u⪳u⪻u⪽u⪿u⫁u⫃u⫅u⫍u⫏u⫑u⫓u⫕u⫬u⫷u⫹u⸂u⸄u⸉u⸌u⸜u⸠u〈u《u「u『u【u〔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|dkr,d|d�dd�|D��|dSd|d|dd�d	d�|D��d|d
|dSdS)Nz\b(rrcss|]}t�|�VqdS)N)r��escape)�.0rkr�r�r��	<genexpr>�sz/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r|r�css|]}t�|�VqdS)N)r�r�)r�rkr�r�r�r��sz(?!)rf)r	Zboundary_regex_fragmentr+r-r�r�r��_build_word_match�s$zPerl6Lexer._build_word_matchcs�fdd�}|S)Nc3s�|��}|d}t|�}|�d�}tj�|d�}|j}|dkrX|�||�d�|�}	n�||}
d}|�d�}xl|dkr�|�|||�}
|�|
||�}|dkr�t|�}d}qp|
dkr�|
|kr�|d7}|
}qp|d8}|}qpW|}	|	dkr�t|�}	|dk	�r`t�	d|��r`||�d�||	�}t�	dt�
|�d||	d�tj�}|�rX|	|��7}	nt|�}	|���||��|	|�fV|	||_
dS)	N�	delimiter�adverbsr����z:to\bz^\s*z\s*$)�	groupdict�len�getr�PERL6_BRACKETSr��find�startr�r�r�r�rr{)�lexer�matchr�groupsZ
opening_charsZn_charsr��closerr�Zend_posZ
closing_charsZ
nesting_levelZ
search_posZ
next_open_posZnext_close_posZheredoc_terminatorZend_heredoc)�token_classr�r��callback�sD


 z.Perl6Lexer.brackets_callback.<locals>.callbackr�)r�r�r�)r�r��brackets_callback�s5zPerl6Lexer.brackets_callbackccs\|j}|��t|j|��|���fV|��|_t|�dkrX|ddkrX|jd7_dS)N����r�r�)�stackr�r
r�rr{r��perl6_token_nesting_level)r�r�rr�r�r�r��opening_brace_callback�s
"
z!Perl6Lexer.opening_brace_callbackccsn|j}|��t|j|��|���fV|��|_t|�dkrj|ddkrj|jd8_|jdkrj|��dS)Nr�r�r�r�r)	r�r�r
r�rr{r�r�rz)r�r�rr�r�r�r��closing_brace_callback�s"

z!Perl6Lexer.closing_brace_callbackccsBd|_|��t|j|��|���fV|��|_|j�d�dS)Nr�r�)r�r�r
r�rr{r��append)r�r�rr�r�r��embedded_perl6_callback�s"
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)ztoken-sym-bracketsz(regex|token|rule)(?!z)(\s*z+)?z	pre-tokenz(role)(\s+)(q)(\s*)z
(?::[UD])?)r-z[$@%&][.^:?=!~]?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)*)z0_?[0-7]+(_[0-7]+)*z0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*z0b[01]+(_[01]+)*z?(?i)(\d*(_\d*)*\.\d+(_\d*)*|\d+(_\d*)*\.\d+(_\d*)*)(e[+-]?\d+)?z(?i)\d+(_\d*)*e[+-]?\d+(_\d*)*z
\d+(_\d+)*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\wrtz'(\\\\|\\[^\\]|[^'\\])*'z"(\\\\|\\[^\\]|[^"\\])*"�commonz\{z\}z.+?)z#popr�z(?P<delimiter>(?P<first_char>[)z#popz	pre-tokenz#popz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)r�r�z	pre-tokenztoken-sym-bracketsr�cCs�dd�}|��}||�}d�|�}t|d�r0dSd}d}t�dtjd|�rVd	}d}xf|D]^}t�d
d|�}t�d|�r|q\t�d
|�r�dSt�d|�}|r�|s�|�	d�dk	r�dSd}q\Pq\W|S)NcSsLd}g}x>|D]6}t�d|�r$d}qt�d|�r6d}q|s|�|�qW|S)NFz
^=(?:end|cut)z^=\w+T)r�r�r�)rZin_podZstripped_lines�liner�r�r��	strip_pod8s
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)Zscopeg�������?)
�
splitlinesrfrr�r�r�PERL6_IDENTIFIER_RANGEr�r��group)r�r�rZ
saw_perl_declZratingr�Z
class_declr�r�r�r�7s4



zPerl6Lexer.analyse_textcs$tt|�jf|�|�dd�|_dS)N�encodingzutf-8)�superr�__init__r�r�)r��options)�	__class__r�r�r�jszPerl6Lexer.__init__)Nr�r�)4r�r�r�r�r�r�r�r�r�r�r��UNICODEr�r�ZPERL6_KEYWORDSZPERL6_BUILTINSZPERL6_BUILTIN_CLASSESZPERL6_OPERATORSr�r�r�r�r�r�rfrr�r�rr
rr
r�r�r�rrr�r�r�r�r�r�rrrrrr�r�r��
__classcell__r�r�)r�r�r�s %	8
















3)r�r�Zpygments.lexerrrrrrrrr	Zpygments.tokenr
rrr
rrrrZ
pygments.utilr�__all__rrr�r�r�r��<module>
s((A