o a@sdZddlZddlmZmZmZmZmZmZm Z m Z ddl m Z m Z mZmZmZmZmZmZddlmZddgZGdddeZGd ddeZdS) 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) RegexLexerExtendedRegexLexerincludebygroupsusingthisdefaultwords)TextCommentOperatorKeywordNameStringNumber Punctuation)shebang_matches PerlLexer Perl6Lexerc@sNeZdZdZdZddgZgdZddgZej ej BZ de j d fd e j d fd e 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 gdejfdejfdejfedddefdeeeeeeedfdejfde j fde j fde j fde j fd e j fd!e j d"fd#e j d"fd$e j d"fd%e j d"fd&e j fd'e j d"fd(e j fd)efed*ddejfd+ejjfd,ee e e je e jefd-ejd.fd/ejjfd0ejjfd1ejd2fd3e j!fd4e j"fd5e j#fd6e j$fd7e j$fd8e j%fd9e fd:e fd;e j&fdfd?e j'd@fdAe j'dBfdCe j'dDfdEe j'fdFeeeej(fdGeeeej(fdHeeedIfedJddefdKefdLefdMefdNedOfdPe j)d fdQe j)fgd)efdRed fdSed fdTej(fdUejd fgdVej(d fdWej(d fdUed fdXej*d fdYed fgdZej+fd)efd[eeefd\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,dpdqZ-drS)srz9 For `Perl `_ source code. Perlperlpl)*.pl*.pm*.tz*.perlz text/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)casecontinuedoelseelsifforforeachiflastmynextourredoresetthenunlessuntilwhileprintnewBEGINCHECKINITENDreturnz\bsuffixz!(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+)absacceptalarmatan2bindbinmodeblesscallerchdirchmodchompchopchownchrchrootcloseclosedirconnectrcoscryptdbmclosedbmopendefineddeletediedumpeachendgrent endhostent endnetent endprotoentendpwent endserventeofevalexecexistsexitexpfcntlfilenoflockforkr7formlinegetcgetgrentgetgrgidgetgrnam gethostbyaddr gethostbyname gethostentgetlogin getnetbyaddr getnetbyname getnetent getpeernamegetpgrpgetppid getprioritygetprotobynamegetprotobynumber getprotoentgetpwentgetpwnamgetpwuid getservbyname getservbyport getservent getsockname getsockoptglobgmtimegotogrepheximportindexintioctljoinkeyskillr$lclcfirstlengthlinklistenlocal localtimeloglstatmapmkdirmsgctlmsggetmsgrcvmsgsndr%r&octopenopendirordr'packpipepopposprintf prototypepush quotemetarandreadreaddirreadlinereadlinkreadpiperecvr(refrenamereverse rewinddirrindexrmdirscalarseekseekdirselectsemctlsemgetsemopsendsetgrent sethostent setnetentsetpgrp setpriority setprotoentsetpwent setservent setsockoptshiftshmctlshmgetshmreadshmwriteshutdownsinsleepsocket socketpairsortsplicesplitsprintfsqrtsrandstatstudysubstrsymlinksyscallsysopensysreadsysseeksystemsyswritetelltelldirtietiedtimetimestrtruncateucucfirstumaskundefunlinkunpackunshiftuntieutimevaluesvecwaitwaitpid wantarraywarnwritez+((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\bz/(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)__END__end-partz\$\^[ADEFHILMOPSTWX]z(\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)z[$@%#]+varname0_?[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)nopackagerequireusez=(\[\]|\*\*|::|<<|>>|>=|<=>|<=|={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.+) r8rootr7rr rrrrrrcCs:t|drdSd}td|r|d7}d|vr|d}|S)NrTrz(?:my|our)\s+[$@%(]g?:=)rresearch)textresultr6/usr/lib/python3/dist-packages/pygments/lexers/perl.py analyse_texts  zPerlLexer.analyse_textN).__name__ __module__ __qualname____doc__r aliases filenames mimetypesrDOTALL MULTILINEflagsrRegexr HashbangSingle Multiliner r rr rrr WordBuiltinPseudo DelimiterPreprocVariableGlobalrOctHexBinFloatIntegerBacktickOther NamespaceInterpolConstantFunctiontokensrrrrrrs                  "# ?@ B C D EFGHIKLMNOP Q R S TUV X Z[^`ac f                .c s, eZdZdZdZgdZgdZddgZej ej Bej BZ dZ dZd Zd Zd Zid d ddddddddddddddddddddd d!d"d!d#d!d$d%d&d'd(d)id*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;dd?d@dAdBdCdDdEdFdGdHdIdJdKidLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmidndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dddddddddddddddddiddddddddddddddddddddddddddddddddddiddddddddddddddddddÓddœddǓddɓdd˓dd͓ddϓddѓddӓiddՓddדddٓddۓddݓddߓddddddddddddddddddddddidddddddddddddddddddd d d d d ddddddddddiddddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9id:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[id\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dddddZdɐddZddZddZddZddZgddedeejfdejfdejfdejfdejfde deeedfde de deeedfdeeeeefeee efeee ddej feee ej fde dej!fdej!j"fdej!j"fde dej!j"fdej!fdee#fde$j%fde$j&fde$j'fde$j(fde$j(fde$j)fde#j*fde#j*fdefdee#j*fde#j*fde#feee+fde defde#fde#fe,ddefdefdefge,ddedfdefgddedeedfe-dgdedfde.e/fde#j*fde#j*fde#j*fdejfdefde#j*fgdĜZ0dŐdƄZ1fdǐdȄZ2Z3S(rzd For `Raku `_ (a.k.a. Perl 6) source code. .. versionadded:: 2.0 Perl6)perl6pl6raku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz *.rakumodz *.rakutestz *.rakudocz text/x-perl6zapplication/x-perl6z['\w:-])Nr0CATCHr1CLOSECONTROLDOCr3ENTERFIRSTr2KEEPLASTLEAVENEXTPOSTPREQUITUNDOanonaugmentbutclassconstantrdoesrr enumr!gathergivengrammarhasr#risletloopmademakemethodmodulemultir%needorwithr'proceedprotorepeatrr4z return-rwreturnsrolerulestatesub submethodsubsetsucceed supersedetokentryunitr+r,r whenr-withwithoutexportnativereprrequiredrwsymbol(ACCEPTSr9abs2relabsoluter:accessedacosacosecacosechacoshacotanacotanhacquireactactionactionsadd add_attributeadd_enum_value add_fallback add_method add_parentadd_private_methodadd_role add_trusteeadverbafterallallocateallofallowedzalternative-names annotationsantipair antipairsanyanyof app_lifetimeappendarcharchnameargsarityArrayasecasechasinasinhz ASSIGN-KEYz ASSIGN-POSassumingastatatanr<atanhzAT-KEYz atomic-assignzatomic-dec-fetchz atomic-fetchzatomic-fetch-addzatomic-fetch-deczatomic-fetch-inczatomic-fetch-subzatomic-inc-fetchzAT-POS attributesauthawait backtraceBagBagHashzbail-outbasebasenamezbase-repeatingbatchzBIND-KEYzBIND-POSz bind-stderrz bind-stdinz bind-stdoutzbind-udpbitsr?blockBoolz bool-onlyboundsbreakBridgebrokenBUILDz build-datebytescache callframezcalling-packagezCALL-MEcallsamecallwithcancancel candidatescandozcan-ok canonpathcapscaptionCapturecascatdir categorizezcategorize-listcatfilecatpathcauseceilingcglobalchangedChannelcharsrAchildz child-namezchild-typenamerBrCrDrFchrschunkscisclassifyz classify-listcleanupclonerHclosedz close-stdinzcmp-okcodecodescollatecolumncomb combinationscommandcommentcompilerComplexcompose compose_typecomposer conditionconfigconfigure_destroyconfigure_type_checkingconjrJ constraints constructcontainscontentscopyrKcoseccosechcoshcotancotanhcountz count-onlyz cpu-coresz cpu-usageCREATE create_typecrosscuecurdircurupdirdDateDateTimedaydaycountz day-of-monthz day-of-weekz day-of-yearz days-in-month declarationdecodedecoderdeepmaprrODEFINITEdelayedz DELETE-KEYz DELETE-POS denominatordescDESTROY destroyersdevnulldiagz did-you-meanrQzdies-okdirdirnamezdir-sep DISTROnamesrrPzdoes-okdonez done-testingduckmapdynamiceeagerearlierelemsemit enclosingencodeencoderencodingendz ends-withenum_from_valueenum_value_list enum_valuesenumsrZEVALz eval-dies-okEVALFILEz eval-lives-ok exceptionz excludes-maxz excludes-minz EXISTS-KEYz EXISTS-POSr^exitcoder_expectedzexplicitly-manageexpmod extensionffailz fails-likefcfeaturefilefilename find_methodfind_method_qualifiedfinishfirstflatflatmapflipfloorflunkflushfmtr7 formatterfreezefromz from-listz from-loopz from-posixfullz full-barrierget get_valueregistgotgrab grabpairsrhandlehandledhandleshardware has_accessorHashheadheaderszhh-mm-sshiddenhideshourhowhyperidillegaliminindentrindicesindirinfiniteinfixz infix:<+>z infix:<->install_method_cacheInstantinsteadIntz int-boundsintervalz in-timezonez invalid-strinvertinvocantIOzIO::Notification.watch-path is_trustedis_typeisaz is-absolutezisa-okz is-approxz is-deeplyz is-hiddenzis-initial-threadzis-intzis-lazyz is-leap-yearisNaNisntzis-primez is-relativez is-routinez is-settingzis-winitemiteratorrkeepkept KERNELnameskeykeyofrrkvkxxvllangr$lastcalllaterlazyrleadinglevellikelinelinesrListrlivezlives-okrlockrlog10lookuplsbrYMAINrZMapmatchmaxmaxpairsmergemessager[ method_tablemethodsmigrateminminmaxminpairsminute misplacedMixMixHashrmodemodifiedmonthmovemromsbr] multinessr%r named named_namesnarrow nativecastznative-descriptor nativesizeofr/new_typeznew-from-daycountznew-from-pairsr& nextcalleez next-handlenextsamenextwithNFCNFDNFKCNFKDznl-inznl-outnodemapnoknonenormnotnotenownudeNum numeratorNumericofoffsetzoffset-in-hourszoffset-in-minutesokoldzon-closeonez on-switchropened operationoptionalrordsorigzos-errorosnamez out-bufferrrz package-kindz package-namepackagespairpairspairup parameterparamsparentz parent-nameparentsparsez parse-base parsefilez parse-namespartspasspathzpath-seppayloadz peer-hostz peer-portperiodsr permutationsphaserpick pickpairspid placeholderplanpluspolarpollpolymodrr positionalposixpostfix postmatchz precomp-extzprecomp-targetpredprefixprematchprependr.rzprint-nlzprint-toprivateprivate_method_tableprocproducePromisepromptprotectzpull-onerzpush-allz push-at-leastz push-exactlyzpush-until-lazyputzqualifier-typequitrraceradixrrangeRatrawrr readcharsreadonlyreadyReal reallocaterealsreasonreblessreceiver redispatcherr(reducerel2absrelativereleaserrepeated replacementreportreservedresolverestorerresumerethrowrrightrrrdroles_to_composerolishrollrootdirrootsrotaterotorround roundrobinz routine-typerunrwxssamecasesamemarksamewithsayz schedule-on schedulerscopesecsechsecondrselfrSet set_hiddenset_name set_packageset_rw set_valueSetHashzset-instrumentssetup_finalizationshapeshareshellrsiblingsigilsignsignalsignals signaturersinhsinkzsink-allskipz skip-at-leastzskip-at-least-pull-onezskip-onez skip-restrz sleep-timerz sleep-untilSlipslurpz slurp-restslurpysnapsnappersoz socket-hostz socket-portrsourcezsource-packagespawnSPECrrsplitdir splitpathrspurtrsquishrstablestartstartedz starts-withstatusstderrstdoutStr sub_signaturesubbufz subbuf-rwsubnamesubparsesubstz subst-mutaterz substr-eqz substr-rwsubtestsuccsumSupplyrttailtakeztake-rwtantanhtaptargetz target-nametctclcrr*throttlethrowz throws-liketimezonetmpdirtotodaytodotogglezto-posixtotaltrailingtranstreetrimz trim-leadingz trim-trailingrz truncated-totrusts try_acquiretryingtwigiltype type_capturestypenamerudpuncaught_handlerunimatchuninameuninamesuniparseunipropunipropsuniqueunivalunivalsunlikerunlockrunpolarrunwrapupdirUSAGEzuse-okutcvalvaluerVARvariablezverbose-configversionVMnamesvolumevowwrrwatchz watch-pathweekzweekday-of-monthz week-numberz week-yearWHATroWHERE WHEREFOREWHICHWHOz whole-secondWHYwordcaser workaroundwraprzwrite-toxyadayearyieldz yyyy-mm-ddzzipz zip-latest)FalseTrueAnyr AssociativeAST atomicint Attribute BacktracezBacktrace::FramerBaggyrBlobBlockrBufCallable CallFrame CancellationrCArrayrCoderr ComplexStrCoolCurrentThreadSchedulerCursorrDateishrDistroDurationEncoding ExceptionFailureFatRatGrammarrJ HyperWhateverr\r^int16int32int64int8IntStrrbz 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::Win32z IO::SpecialIterableIteratorJunctionKernelLabelr{Lockz Lock::AsynclonglonglongMacrorMatchzMetamodel::AttributeContainerzMetamodel::C3MROzMetamodel::ClassHOWzMetamodel::EnumHOWzMetamodel::FinalizationzMetamodel::MethodContainerz!Metamodel::MROBasedMethodDispatchzMetamodel::MultipleInheritancezMetamodel::NamingzMetamodel::Primitivesz!Metamodel::PrivateMethodContainerzMetamodel::RoleContainerzMetamodel::TrustingMethodrrMixyMurrrrNilrnum32num64rNumStrObjAtOrderPair Parameterrz Pod::BlockzPod::Block::CodezPod::Block::CommentzPod::Block::DeclaratorzPod::Block::NamedzPod::Block::ParazPod::Block::Tablez Pod::Headingz Pod::ItemPointer PositionalPositionalBindFailoverProcz Proc::AsyncrProxy PseudoStash QuantHashRangerRationalRatStrrr"RoutineScalar Scheduler SemaphoreSeqrr Setty Signaturesize_tr.StashrA StrDistanceStringySub SubmethodSupplierzSupplier::PreservingrJSystemicTap TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::SamplerThreadThreadPoolSchedulerUIntuint16uint32uint64uint8Uniutf8r+VersionVMWhatever WhateverCode WrapHandle)fXZralsoandandthenbeforecmpdiveqeqvextrafffffgegtlelegltmmmmodneororelserxrrrxorxxz++z--z**!+-~?|||+^~^?^^*/%z%%z+&z+z~&z~z?&gcdlcmrrz+|rz~|rz?|rr&rrMrPz<=>z..z..^z^..z^..^z!=z==z>=z~~z===z!eqvz&&rz^^z//rrz??z!!rrr3rz<==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｢NcCsh|durd|ddd|D|dSd|d|ddd d|Dd|d |dS) Nz\b(rcs|]}t|VqdSNrescape.0rrrr z/Perl6Lexer._build_word_match..z)\bz(?.callbackr)rNrOrrMrbrackets_callbacks 5zPerl6Lexer.brackets_callbackccsf|j}|t|j||fV||_t|dkr/|ddkr1|jd7_dSdSdS)Nrrlr9)stackr<r rrrr<perl6_token_nesting_levelr?rr@rRrrropening_brace_callback.s" z!Perl6Lexer.opening_brace_callbackccs||j}|t|j||fV||_t|dkr8|ddkr:|jd8_|jdkr<|dSdSdSdS)NrrQrlr9r) rRr<r rrrr<rSrrTrrrclosing_brace_callback;s"   z!Perl6Lexer.closing_brace_callbackccsDd|_|t|j||fV||_|jddS)Nr9r)rSr<r rrrrRr)r?rr@rrrembedded_perl6_callbackIs " z"Perl6Lexer.embedded_perl6_callbackz$#[`|=](?P(?P[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:[\w\s:]+)?\s*(?P(?P[^0-9a-zA-Z:\s])(?P=first_char)*)rrrrrrz(?<=~~)\s*/(?:\\\\|\\/|.)*?/z(?<=[=(,])\s*/(?:\\\\|\\/|.)*?/z m\w+(?=\()z_(?:m|ms|rx)\s*(?P:[\w\s:]+)?\s*(?P(?P[^\w:\s])(?P=first_char)*)zB(?:s|ss|tr)\s*(?::[\w\s:]+)?\s*/(?:\\\\|\\/|.)*?/(?:\\\\|\\/|.)*?/z <[^\s=].*?\S>z\wrrrcommonr r z.+?)rrlz(?P(?P[)rrYrz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?.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*(?:(?Pmy|our)\s+)?(?:module|class|role|enum|grammar)rg?rr) splitlinesrrrrrPERL6_IDENTIFIER_RANGErgrgroup)rr]rz saw_perl_declratingry class_declrrrrs>      zPerl6Lexer.analyse_textc s$tjdi||dd|_dS)Nrzutf-8r)super__init__r?r)roptions __class__rrrfszPerl6Lexer.__init__)Nr,r,)4rrrrr rrrrr rUNICODEr!r`PERL6_KEYWORDSPERL6_BUILTINSPERL6_BUILTIN_CLASSESPERL6_OPERATORSr=r6rPrUrVrWrr r%r$rr rr r'r+r,rrr-r.r/r0r1r"r rrrrr8rrf __classcell__rrrhrrst&                  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>??  C 8                 ! " # $%&(* +,-.1          O7)rrpygments.lexerrrrrrrrr pygments.tokenr r r r rrrr pygments.utilr__all__rrrrrrs (( K