o Rh@sdZddlZddlmZmZmZmZmZmZm Z m Z ddl m Z m Z mZmZmZmZmZmZmZddlmZddgZGdddeZGd ddeZdS) z pygments.lexers.perl ~~~~~~~~~~~~~~~~~~~~ Lexers for Perl, Raku and related languages. :copyright: Copyright 2006-2025 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. N) RegexLexerExtendedRegexLexerincludebygroupsusingthisdefaultwords) TextCommentOperatorKeywordNameStringNumber Punctuation Whitespace)shebang_matches PerlLexer Perl6Lexerc@sVeZdZdZdZdZddgZgdZddgZd Z e j e j BZ d ejd fd ejd fd ejd fdejd fdejd fdejd fdejd fdejd fdejd fdejd fg gdejfdejfdejfedddefdeeeeeeedfdejfdejfdejfd ejfd!ejfd"ejfd#ejd$fd%ejd$fd&ejd$fd'ejd$fd(ejfd)ejd$fd*ejfd+efed,ddejfd-ejjfd.eeeejeejefd/ejd0fd1ej j!fd2ej j!fd3ej d4fd5e"j#fd6e"j$fd7e"j%fd8e"j&fd9e"j&fd:e"j'fd;efdejfd?ej)d@fdAej)dBfdCej)dDfdEej)dFfdGej)fdHeeeej*fdIeeeej*fdJeeedKfedLddefdMefdNefdOefdPedQfdRej+d fdSej+fgd+efdTed fdUed fdVej*fdWej d fgdXej*d fdYej*d fdWed fdZej,d fd[e-d fgd\ej.fd+efd]eeefd^ed fd_ed fgd`ej)fdaej)fdTej)d@fdbej)d fdcej)fgddej)fdaej)fdeej)dBfdfej)d fdgej)fgdhej)fdaej)fdiej)dDfdjej)d fdkej)fgdlej)fdaej)fdmej)dFfdnej)d fdoej)fgdpejd fgdq Z/drdsZ0dtS)urz 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 endserventeofevalexecexistsexitexpfcntlfilenoflockforkr9formlinegetcgetgrentgetgrgidgetgrnam 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.+) r:rootr9rr rrrrrrcCs:t|drdSd}td|r|d7}d|vr|d}|S)NrTrz(?:my|our)\s+[$@%(]g?:=)rresearch)textresultrV/home/air/sanwanet/backup_V2/venv/lib/python3.10/site-packages/pygments/lexers/perl.py analyse_texts  zPerlLexer.analyse_textN)1__name__ __module__ __qualname____doc__r urlaliases filenames mimetypes version_addedrDOTALL MULTILINEflagsrRegexr HashbangSingle Multiliner r rrrrr WordBuiltinPseudo DelimiterPreprocVariableGlobalrOctHexBinFloatIntegerBacktickOther NamespaceInterpolConstantr Functiontokensrrrrrrs                  "# ?@ B C D EFGHIKLMNOP Q R S TUV X Z[^`ac f                .c s2 eZdZdZdZdZgdZgdZddgZdZ e j e j BZ d Zd Zd Zd Zd Ziddddddddddddddddddd dd!dd"d#d$d#d%d#d&d'd(d)d*d+id,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;dd?d@dAdBdCdDdEdFdGdHdIdJdKdLdMidNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]d^d_d`dadbdcdddedfdgdhdidjdkdldmdndoidpdqdrdsdtdudvdwdxdydzd{d|d}d~dddddddddddddddddddiddddddddddddddddddddddddddddddddddiddddddddddddddddÓddœddǓddɓdd˓dd͓ddϓddѓddӓddՓiddדddٓddۓddݓddߓddddddddddddddddddddddddidddddddddddddddddd d d d d ddddddddddddiddddddd d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;id<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYdZd[d\d]id^d_d`dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd{d|d}d~dddddddZdːddZddZddZddZddZgddedeejfdejfdejfdejfdejfdedeeedfdededeeedfdeee ee feeeefeeeddej!feeeej!fdedej"fdej"j#fdej"j#fdedej"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,fdedefde$fde$fe-ddefdefde.fge-dde.dfde.fgddedeedfe/dgde.dfde0e1fde$j+fde$j+fde$j+fdejfdefde$j+fgdƜZ2dǐdȄZ3fdɐdʄZ4Z5S(rz/ For Raku (a.k.a. Perl 6) source code. Perl6zhttps://www.raku.org)perl6pl6raku)rrz*.nqpz*.p6z*.6plz*.p6lz*.pl6z*.6pmz*.p6mz*.pm6rz*.rakuz *.rakumodz *.rakutestz *.rakudocz text/x-perl6zapplication/x-perl6z2.0z['\w:-])Nr2CATCHr3CLOSECONTROLDOCr5ENTERFIRSTr4KEEPLASTLEAVENEXTPOSTPREQUITUNDOanonaugmentbutclassconstantrdoesr!r"enumr#gathergivengrammarhasr%risletloopmademakemethodmodulemultir'needorwithr)proceedprotorepeatr r6z return-rwreturnsrolerulestatesub submethodsubsetsucceed supersedetokentryunitr-r.r whenr/withwithoutexportnativereprrequiredrwsymbol(ACCEPTSr;abs2relabsoluter<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-udpbitsrAblockBoolz bool-onlyboundsbreakBridgebrokenBUILDz build-datebytescache callframezcalling-packagezCALL-MEcallsamecallwithcancancel candidatescandozcan-ok canonpathcapscaptionCapturecascatdir categorizezcategorize-listcatfilecatpathcauseceilingcglobalchangedChannelcharsrCchildz child-namezchild-typenamerDrErFrHchrschunkscisclassifyz classify-listcleanupclonerJclosedz close-stdinzcmp-okcodecodescollatecolumncomb combinationscommandcommentcompilerComplexcompose compose_typecomposer conditionconfigconfigure_destroyconfigure_type_checkingconjrL constraints constructcontainscontentscopyrMcoseccosechcoshcotancotanhcountz count-onlyz cpu-coresz cpu-usageCREATE create_typecrosscuecurdircurupdirdDateDateTimedaydaycountz day-of-monthz day-of-weekz day-of-yearz days-in-month declarationdecodedecoderdeepmaprrQDEFINITEdelayedz DELETE-KEYz DELETE-POS denominatordescDESTROY destroyersdevnulldiagz did-you-meanrSzdies-okdirdirnamezdir-sep DISTROnamesr rTzdoes-okdonez done-testingduckmapdynamiceeagerearlierelemsemit enclosingencodeencoderencodingendz ends-withenum_from_valueenum_value_list enum_valuesenumsr\EVALz eval-dies-okEVALFILEz eval-lives-ok exceptionz excludes-maxz excludes-minz EXISTS-KEYz EXISTS-POSr`exitcoderaexpectedzexplicitly-manageexpmod extensionffailz fails-likefcfeaturefilefilename find_methodfind_method_qualifiedfinishfirstflatflatmapflipfloorflunkflushfmtr9 formatterfreezefromz from-listz from-loopz from-posixfullz full-barrierget get_valuerggistgotgrab 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-okrlockrlog10lookuplsbr]MAINr^Mapmatchmaxmaxpairsmergemessager_ method_tablemethodsmigrateminminmaxminpairsminute misplacedMixMixHashrmodemodifiedmonthmovemromsbra multinessr'r named named_namesnarrow nativecastznative-descriptor nativesizeofr1new_typeznew-from-daycountznew-from-pairsr( nextcalleez next-handlenextsamenextwithNFCNFDNFKCNFKDznl-inznl-outnodemapnoknonenormnotnotenownudeNum numeratorNumericofoffsetzoffset-in-hourszoffset-in-minutesokoldzon-closeonez on-switchropened operationoptionalrordsorigzos-errorosnamez out-bufferrr z package-kindz package-namepackagespairpairspairup parameterparamsparentz parent-nameparentsparsez parse-base parsefilez parse-namespartspasspathzpath-seppayloadz peer-hostz peer-portperiodsr permutationsphaserpick pickpairspid placeholderplanpluspolarpollpolymodrr positionalposixpostfix postmatchz precomp-extzprecomp-targetpredprefixprematchprependr0rzprint-nlzprint-toprivateprivate_method_tableprocproducePromisepromptprotectzpull-onerzpush-allz push-at-leastz push-exactlyzpush-until-lazyputzqualifier-typequitrraceradixrrangeRatrawrr readcharsreadonlyreadyReal reallocaterealsreasonreblessreceiver redispatcherr*reducerel2absrelativereleaserrepeated replacementreportreservedresolverestorerresumerethrowrrightrrrhroles_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-yearWHATrsWHERE WHEREFOREWHICHWHOz whole-secondWHYwordcaser workaroundwraprzwrite-toxyadayearyieldz yyyy-mm-ddzzipz zip-latest)FalseTrueAnyr AssociativeAST atomicint Attribute BacktracezBacktrace::FramerBaggyrBlobBlockrBufCallable CallFrame CancellationrCArrayrCoderr ComplexStrCoolCurrentThreadSchedulerCursorrDateishrDistroDurationEncoding ExceptionFailureFatRatGrammarrN HyperWhateverr`rbint16int32int64int8IntStrrfz 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::SpecialIterableIteratorJunctionKernelLabelrLockz 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_tr2StashrE StrDistanceStringySub SubmethodSupplierzSupplier::PreservingrNSystemicTap TelemetryzTelemetry::Instrument::ThreadzTelemetry::Instrument::UsagezTelemetry::PeriodzTelemetry::SamplerThreadThreadPoolSchedulerUIntuint16uint32uint64uint8Uniutf8r/VersionVMWhatever WhateverCode WrapHandle)fXZralsoandandthenbeforecmpdiveqeqvextrafffffgegtlelegltmmmmodneororelserxrrrxorxxz++z--z**!+-~?|||+^~^?^^*/%z%%z+&z+z~&z~z?&gcdlcmrrz+|rz~|rz?|rr&rrQrTz<=>z..z..^z^..z^..^z!=z==z>=z~~z===z!eqvz&&rz^^z//rrz??z!!rrr7rz<==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｢NrcCsh|durd|ddd|D|dSd|d|ddd d|Dd|d |dS) Nz\b(rcs|]}t|VqdSNrescape.0rrrr z/Perl6Lexer._build_word_match..z)\bz(?.callbackr)rQrRrrPrbrackets_callbacks 5zPerl6Lexer.brackets_callbackccsf|j}|t|j||fV||_t|dkr/|ddkr1|jd7_dSdSdS)Nrrpr<)stackr@r rr"rr?perl6_token_nesting_levelrBrrCrUrrropening_brace_callback0s" z!Perl6Lexer.opening_brace_callbackccs||j}|t|j||fV||_t|dkr8|ddkr:|jd8_|jdkr<|dSdSdSdS)NrrTrpr<r) rUr@r rr"rr?rVrrWrrrclosing_brace_callback=s"   z!Perl6Lexer.closing_brace_callbackccsDd|_|t|j||fV||_|jddS)Nr<r)rVr@r rr"rrUr)rBrrCrrrembedded_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])?r7z[$@%&][.^:?=!~]?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 rz.+?)rrpz(?P(?P[)rr\rz,(?<=:)(?:my|our|state|constant|temp|let).*?;z<(?:[-!?+.]\s*)?\[.*?\]>z(?.strip_pod zperl6|rakudo|niecza|pugsTFz(?:my|our|has)\s+(?:z +\s+)?[$@%&(]g?z#.*rz^\s*$z$^\s*(?:use\s+)?v6(?:\.\d(?:\.\d)?)?;z?^\s*(?:(?Pmy|our)\s+)?(?:module|class|role|enum|grammar)rg?rr) splitlinesrrrrrPERL6_IDENTIFIER_RANGErkrgroup)rr`r~ saw_perl_declratingr} class_declrrrrs>      zPerl6Lexer.analyse_textc s$tjdi||dd|_dS)Nr!zutf-8r)super__init__rCr!)roptions __class__rrriszPerl6Lexer.__init__)Nrr)6rrrrr rrr r!r"rr$r#r%rcPERL6_KEYWORDSPERL6_BUILTINSPERL6_BUILTIN_CLASSESPERL6_OPERATORSr@r9rSrXrYrZrr r)r(rr rrr+r/r0rrr1r2r3r4r5r&r rr rrrr<rri __classcell__rrrkrrs t&                  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>??  C 8                 ! " # $%&(* +,-.1          O7)rrpygments.lexerrrrrrrrr pygments.tokenr r r r rrrrr pygments.utilr__all__rrrrrrs (, M