o ȷe@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-2022 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N) RegexLexerExtendedRegexLexerincludebygroupsusingthisdefaultwords)TextCommentOperatorKeywordNameStringNumber Punctuation)shebang_matches PerlLexer Perl6Lexerc@sReZdZdZdZdZddgZgdZddgZe j e j BZ d e jd fd e jd fd e jd fd e jd fde jd fde jd fde jd fde jd fde jd fde jd fg gdejfdejfdejfedddefdeeeeeeedfdejfde jfde jfde jfd e jfd!e jfd"e jd#fd$e jd#fd%e jd#fd&e jd#fd'e jfd(e jd#fd)e jfd*efed+ddejfd,ejjfd-ee e e je e jefd.ejd/fd0ejj fd1ejj fd2ejd3fd4e!j"fd5e!j#fd6e!j$fd7e!j%fd8e!j%fd9e!j&fd:e fd;e fde j(d?fd@e j(dAfdBe j(dCfdDe j(dEfdFe j(fdGeeeej)fdHeeeej)fdIeeedJfedKddefdLefdMefdNefdOedPfdQe j*d fdRe j*fgd*efdSed fdTed fdUej)fdVejd fgdWej)d fdXej)d fdVed fdYej+d fdZed fgd[ej,fd*efd\eeefd]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-dqdrZ.dsS)trz For Perl source code. Perlzhttps://www.perl.orgperlpl)*.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)textresultrK/var/www/ideatree/venv/lib/python3.10/site-packages/pygments/lexers/perl.py analyse_texts  zPerlLexer.analyse_textN)/__name__ __module__ __qualname____doc__r urlaliases 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, eZdZdZdZdZgdZgdZddgZe j e j BZ dZ d Zd Zd Zd Zid dddddddddddddddddddd dd!d"d#d"d$d"d%d&d'd(d)d*id+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLidMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdnidodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddddddddddddddiddddddddddddddddddddddddddddddddddidddddddddddddddd“ddēddƓddȓddʓdd̓ddΓddГddғddԓidd֓ddؓddړddܓddޓddddddddddddddddddddddddiddddddddddddddddddd d d d d dddddddddddidddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:id;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\id]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~ddddddZdʐ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ƐdDŽZ1fdȐdɄZ2Z3S(rzJ For Raku (a.k.a. Perl 6) source code. .. versionadded:: 2.0 Perl6zhttps://www.raku.org)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 DISTROnamesrrQzdoes-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-okrlockrlog10lookuplsbrZMAINr[Mapmatchmaxmaxpairsmergemessager\ 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 replacementreportreservedresolverestorerresumerethrowrrightrrreroles_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-yearWHATrpWHERE WHEREFOREWHICHWHOz whole-secondWHYwordcaser workaroundwraprzwrite-toxyadayearyieldz yyyy-mm-ddzzipz zip-latest)FalseTrueAnyr AssociativeAST atomicint Attribute BacktracezBacktrace::FramerBaggyrBlobBlockrBufCallable CallFrame CancellationrCArrayrCoderr ComplexStrCoolCurrentThreadSchedulerCursorrDateishrDistroDurationEncoding ExceptionFailureFatRatGrammarrK HyperWhateverr]r_int16int32int64int8IntStrrcz 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/StashrB StrDistanceStringySub SubmethodSupplierzSupplier::PreservingrKSystemicTap TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::SamplerThreadThreadPoolSchedulerUIntuint16uint32uint64uint8Uniutf8r,VersionVMWhatever WhateverCode WrapHandle)fXZralsoandandthenbeforecmpdiveqeqvextrafffffgegtlelegltmmmmodneororelserxrrrxorxxz++z--z**!+-~?|||+^~^?^^*/%z%%z+&z+z~&z~z?&gcdlcmrrz+|rz~|rz?|rr&rrNrQz<=>z..z..^z^..z^..^z!=z==z>=z~~z===z!eqvz&&rz^^z//rrz??z!!rrr4rz<==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)rOrPrrNrbrackets_callbacks 5zPerl6Lexer.brackets_callbackccsf|j}|t|j||fV||_t|dkr/|ddkr1|jd7_dSdSdS)Nrrmr:)stackr=r rrrr=perl6_token_nesting_levelr@rrArSrrropening_brace_callback0s" z!Perl6Lexer.opening_brace_callbackccs||j}|t|j||fV||_t|dkr8|ddkr:|jd8_|jdkr<|dSdSdSdS)NrrRrmr:r) rSr=r rrrr=rTrrUrrrclosing_brace_callback=s"   z!Perl6Lexer.closing_brace_callbackccsDd|_|t|j||fV||_|jddS)Nr:r)rTr=r rrrrSr)r@rrArrrembedded_perl6_callbackKs " 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.+?)rrmz(?P(?P[)rrZrz,(?<=:)(?: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_RANGErhrgroup)rr^r{ saw_perl_declratingrz class_declrrrrs>      zPerl6Lexer.analyse_textc s$tjdi||dd|_dS)Nrzutf-8r)super__init__r@r)roptions __class__rrrgszPerl6Lexer.__init__)Nr-r-)4rrrrr rrrrrr!r r"raPERL6_KEYWORDSPERL6_BUILTINSPERL6_BUILTIN_CLASSESPERL6_OPERATORSr>r7rQrVrWrXrr r&r%rr rr r(r,r-rrr.r/r0r1r2r#r rrrrr9rrg __classcell__rrrirrs t&                  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>??  C 8                 ! " # $%&(* +,-.1          O7)rrpygments.lexerrrrrrrrr pygments.tokenr r r r rrrr pygments.utilr__all__rrrrrrs (( L