o
    -wi}                     @   s   d Z ddlZddlmZmZmZmZmZmZm	Z	m
Z
 ddlmZmZmZmZmZmZmZmZ ddlmZ ddgZG dd deZG d	d deZdS )
z
    pygments.lexers.perl
    ~~~~~~~~~~~~~~~~~~~~

    Lexers for Perl and related languages.

    :copyright: Copyright 2006-2017 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                   @   sN  e Zd ZdZdZddgZg dZddgZej	ej
B Zdejd	fd
ejd	fdejd	fdejd	fdejd	fdejd	fdejd	fdejd	fdejd	fdejd	fg
g dejfdejfdejfedddefdeeeeeeed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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)efed*ddejfd+ejjfd,eeeejeejefd-ejd.fd/ejjfd0ejjfd1ejd2f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dFeeeej(fdGeeeej(fdHeeedIfedJddefdKefdLefdMefdNedOfdPej)d	fdQej)fgd)efdRed	fdSed	fdTej(fdUejd	fgdVej(d	fdWej(d	fdUed	fdXej*d	fdYed	fgdZej+fd)efd[eeefd\ed	fd]ed	fgd^ej'fd_ej'fdRej'd>fd`ej'd	fdaej'fgdbej'fd_ej'fdcej'd@fddej'd	fdeej'fgdfej'fd_ej'fdgej'dBfdhej'd	fdiej'fgdjej'fd_ej'fdkej'dDfdlej'd	fdmej'fgdnejd	fgdoZ,dpdq Z-drS )sr   z8
    For `Perl <http://www.perl.org>`_ source code.
    Perlperlpl)*.pl*.pm*.tztext/x-perlzapplication/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]*zs\{(\\\\|\\[^\\]|[^\\}])*\}\s*balanced-regexzs<(\\\\|\\[^\\]|[^\\>])*>\s*zs\[(\\\\|\\[^\\]|[^\\\]])*\]\s*zs\((\\\\|\\[^\\]|[^\\)])*\)\s*z&m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*zm(?=[/!\\{<\[(@%$])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   rootr7   r   r
  r  r  r  r  r  r   c                 C   s"   t | drdS td| rdS d S )Nr   Tz(?:my|our)\s+[$@%(]g?)r   research)text r  ^/home/ubuntu/sommelier/.venv/lib/python3.10/site-packages/wandb/vendor/pygments/lexers/perl.pyanalyse_text   s
   
zPerlLexer.analyse_textN).__name__
__module____qualname____doc__r
  aliases	filenames	mimetypesr  DOTALL	MULTILINEflagsr   Regexr   HashbangSingle	Multiliner	   r   r   r
   r   r   r   WordBuiltinPseudo	DelimiterPreprocVariableGlobalr   OctHexBinFloatIntegerBacktickOther	NamespaceInterpolConstantFunctiontokensr  r  r  r  r  r      s   













 "#
?@
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.	  e Zd ZdZdZddgZg dZddgZej	ej
B ejB ZdZd	Zd
ZdZdZ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"d#d"d$d"d%d&d'd(d)d*i d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLi dMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdni dodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddddddddddddddi ddddddddddddddddddddddddddddddddddi ddddddddddddddddddēddƓddȓddʓdd̓ddΓddГddғddԓi dd֓ddؓddړddܓddޓddddddddddddddddddddddddi dddddd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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dZdd Zdd Zdd Zdd Zg dde d eejfdejfdejfdejfdejfde d eeedfde d e d eeedfdeeeeefeeeefeeeddej feeeej fde d ej!fdej!j"fdej!j"fde d ej!j"fdej!fdee#fde$j%fde$j&fde$j'fde$j(fde$j(fde$j)fde#j*fde#j*fdefdee#j*fde#j*fde#feee+fde d efde#fde#fe,ddefdefdefge,ddedfdefgdde d eedfe-dgdedfde.e/fde#j*fde#j*fde#j*fdejfdefde#j*fgdŜZ0dƐdǄ Z1 fdȐdɄZ2  Z3S (  r   zV
    For `Perl 6 <http://www.perl6.org>`_ source code.

    .. versionadded:: 2.0
    Perl6perl6pl6)r   r   z*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6r   ztext/x-perl6zapplication/x-perl6z['\w:-])sr0   CATCHr1   CONTROLr3   ENTERFIRSTr2   KEEPLASTLEAVENEXTPOSTPRESTARTTEMPUNDOasassocasyncaugmentbinarybreakbutcachedcategoryclassconstantcontendr   copydeepr   defequivdeferrQ   r   r   r    enumequivr^   exportfailfatalr!   gathergivenr   grammarhandleshasr#   inlineirsisr$   leaveletliftlooploosermacromakemaybemethodmodulemultir%   r&   ofofsonlyooorsr'   r  parsedprecprotoreadonlyr(   r   regexreparsedrepeatr  requiredr4   returnsrolerulerwselfslangstatesub	submethodsubset	supersedetaketemptightertokentruststryunaryr+   r,   r	  r   whenwherer-   will)ACCEPTSHOWREJECTSVARWHATWHENCEWHEREWHICHWHOr9   acosacosecacosechacoshacotanacotanhallanyapproxarityasecasechasinasinhassumingatanr<   atanhattrr?   bodybybytesr@   callsamecallwithcan
capitalizecatceilingcharsrB   rC   rD   rF   rG   	circumfixcisclassifyclonerH   cmp_okcodescombrJ   containscontextrK   coseccosechcoshcotancotanhcountrO   rP   diagdies_okdoeserS   eagerelemsendrZ   r[   eval_dies_okeval_elsewhereeval_lives_okevalfiler]   r_   firstflipfloorflunkflushfmt
force_todorc   fromre   gethostrl   rp   getpwr   graphsr   hintshyperimr   infixinvert	is_approx	is_deeplyisaisa_okisntiteratorr   keyr   r   kvlastcalllazyr   r   likelinesr   lives_okr   r   log10r   maxminminmaxr
  r/   nextsamenextwithnfcnfdnfkcnfkd	nok_errornoncenone	normalizenotnothingokonceoner   r   operatorr   p5chompp5chopr   pairpairspassr   pipickplanplan_okpolarr   r   postcircumfixpostfixpredprefixr.   r   r   quasir   r   r  r   r   r   reducer   rewindr   r   rootsround
roundrobinrun
runinstead
sameaccentsamecasesaysecsechr  r   shaper   sign	signaturer   sinhskip	skip_restr   slurpr   r   r   r   r   r   strandsubstr   succsumr   tantanh	throws_okr   r   totodotrimtrim_end
trim_starttruer   r   r   r   undefineuniqunliker   r   unpolarr   unwrapuse_okvaluer   r   
version_ltvoidr   wantwrapr   zip)oAbstractionAnyAnyCharArrayAssociativeBagBitBlobBlockBoolBufByteCallableCaptureCharClassCode	Codepoint
ComparatorComplex
Decreasing	ExceptionFailureFalseGrammarGraphemeHashIO
IncreasingIntJunctionKeyBagKeyExtractorKeyHashKeySetKitchenSinkListMacroMappingMatchMatcherMethodModuleNumObjectOrderedOrderingOrderingPairPackagePair
PositionalProxyRangeRatr  RoleRoutineScalarSeqSet	SignatureStrStrLenStrPosSub	SubmethodTrueUIntUndefVersionVoidWhateverbitboolbufbuf1buf16buf2buf32buf4buf64buf8complexr   int1int16int2int32int4int64int8numratrat1rat16rat2rat32rat4rat64rat8uintuint1uint16uint2uint32uint4uint64uint8utf16utf32utf8)eXZafteralsoandandthenbeforecmpdiveqeqvextrafffffgegtlelegltmmmmodneororelserxsr   xxorxxz++z--z**!+-~?|||+^~^?^^*/%z%%z+&z+<z+>z~&z~<z~>z?&gcdlcmr  r  z+|r  z~|r  z?|r  r  &r  rL  r  z<=>z..z..^z^..z^..^z!=z==<z<=>z>=z~~z===z!eqvz&&r  z^^z//r  r  z??z!!r  r  sor  z<==z==>z<<==z==>>()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                 C   sh   |d u rd| d dd | D  | d S d| d | d d d	d | D  d | d
 | d S )Nz\b(r  c                 s       | ]}t |V  qd S Nr  escape.0r  r  r  r  	<genexpr>      z/Perl6Lexer._build_word_match.<locals>.<genexpr>z)\bz(?<!r  r  c                 s   r  r  r  r  r  r  r  r    r  z(?!)r   )r	   boundary_regex_fragmentr  r6   r  r  r  _build_word_match  s&   zPerl6Lexer._build_word_matchc                    s    fdd}|S )Nc                 3   s   |  }|d }t|}|d}tj|d }|j}|d u r-|||d| }	nE|| }
d}|d}|dkrp|||| }||
|| }|dkrWt|}d}n|dkrf||k rf|d7 }|}n|d8 }|}|dks<|}	|	dk rzt|}	|d urt	d|r||d| |	 }t	dt
| d ||	d  tj}|r|	| 7 }	nt|}	|  || |	|  fV  |	| |_d S )	N	delimiteradverbsr      z:to\bz^\s*z\s*$)	groupdictlengetr   PERL6_BRACKETSr  findstartr  r  r  r  r  r   )lexermatchr  groupsopening_charsn_charsr  closerr  end_posclosing_charsnesting_level
search_posnext_open_posnext_close_posheredoc_terminatorend_heredoctoken_classr  r  callback  sN   

 z.Perl6Lexer.brackets_callback.<locals>.callbackr  )r  r  r  r  r  brackets_callback  s   5zPerl6Lexer.brackets_callbackc                 c   sf    |j }| t|j| |  fV  | |_t|dkr/|d dkr1| jd7  _d S d S d S )N   r  r  )stackr  r
   r  r  r   r  perl6_token_nesting_levelr  r  r  r  r  r  r  opening_brace_callback  s   "
z!Perl6Lexer.opening_brace_callbackc                 c   s|    |j }| t|j| |  fV  | |_t|dkr8|d dkr:| jd8  _|jdkr<|  d S d S d S d S )Nr	  r
  r  r  r   )	r  r  r
   r  r  r   r  r  r   r  r  r  r  closing_brace_callback  s   "

z!Perl6Lexer.closing_brace_callbackc                 c   sD    d|_ | t|j| |  fV  | |_|jd d S )Nr  r  )r  r  r
   r  r  r   r  append)r  r  r  r  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)token-sym-bracketsz(regex|token|rule)(?!z)(\s*z+)?	pre-tokenz(role)(\s+)(q)(\s*)z
(?::[UD])?r5   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)*)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.+?)r   r  z(?P<delimiter>(?P<first_char>[)r   r  r   z,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?<!\\)'(\\\\|\\[^\\]|[^'\\])*'z(?<!\\)"(\\\\|\\[^\\]|[^"\\])*"z#.*?$)r  r  r  r  r  c                 C   s   dd }|   }||}d|} t| drdS d}d}tdtj d | r+d	}d}|D ]2}td
d|}td|r=q-td|rF dS td|}|r]|sW|	dd urZ dS d}q- |S |S )Nc                 S   sH   d}g }| D ]}t d|rd}qt d|rd}q|s!|| q|S )NFz^=(?:end|cut)z^=\w+T)r  r  r  )r  in_podstripped_linesliner  r  r  	strip_pod8  s   
z*Perl6Lexer.analyse_text.<locals>.strip_pod
zperl6|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)scopeg?)

splitlinesr   r   r  r  r   PERL6_IDENTIFIER_RANGEr  r  group)r  r  r  saw_perl_declratingr  
class_declr  r  r  r  7  s:   

zPerl6Lexer.analyse_textc                    s(   t t| jdi | |dd| _d S )Nencodingzutf-8r  )superr   __init__r  r!  )r  options	__class__r  r  r#  j  s   zPerl6Lexer.__init__)Nr  r  )4r  r  r  r  r
  r  r  r  r  r  r  UNICODEr  r  PERL6_KEYWORDSPERL6_BUILTINSPERL6_BUILTIN_CLASSESPERL6_OPERATORSr  r  r  r  r  r  r   r   r"  
Singleliner   r   r   r
   r$  r(  r)  r   r   r*  r+  r,  r-  r.  r  r   r   r   r   r   r5  r  r#  __classcell__r  r  r%  r  r      s   %			


   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///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





O3)r  r  pygments.lexerr   r   r   r   r   r   r   r	   pygments.tokenr
   r   r   r   r   r   r   r   pygments.utilr   __all__r   r   r  r  r  r  <module>   s   
(( A