perl-Lexical-Persistence-1.023-bp154.1.17 >  A bxໜ!M@eeeD0JHrU&mΪn_g啕Rc*..,Ei-}X0D I]`P^W+V%EAԈ6ipGf3thU)@ϸ'Ȑo/i*}{gPfKsWJomOx_d7E4Ap )dܫ\iE6X7?;y ͜QXz^l KC̘ATF1hcU!Q2fw15y3ƭl^^NJҒwhl>p>?d! , d\`hl  D  V  h       D q  (D(89(:rFG H8 I\ XhYp\ ] ^5bcde flu$ vHw x y8z<LPVCperl-Lexical-Persistence1.023bp154.1.17Persistent lexical variable values for arbitrary calls.Lexical::Persistence does a few things, all related. Note that all the behaviors listed here are the defaults. Subclasses can override nearly every aspect of Lexical::Persistence's behavior. Lexical::Persistence lets your code access persistent data through lexical variables. This example prints "some value" because the value of $x persists in the $lp object between setter() and getter(). use Lexical::Persistence; my $lp = Lexical::Persistence->new(); $lp->call(\&setter); $lp->call(\&getter); sub setter { my $x = "some value" } sub getter { print my $x, "\n" } Lexicals with leading underscores are not persistent. By default, Lexical::Persistence supports accessing data from multiple sources through the use of variable prefixes. The set_context() member sets each data source. It takes a prefix name and a hash of key/value pairs. By default, the keys must have sigils representing their variable types. use Lexical::Persistence; my $lp = Lexical::Persistence->new(); $lp->set_context( pi => { '$member' => 3.141 } ); $lp->set_context( e => { '@member' => [ 2, '.', 7, 1, 8 ] } ); $lp->set_context( animal => { '%member' => { cat => "meow", dog => "woof" } } ); $lp->call(\&display); sub display { my ($pi_member, @e_member, %animal_member); print "pi = $pi_member\n"; print "e = @e_member\n"; while (my ($animal, $sound) = each %animal_member) { print "The $animal goes... $sound!\n"; } } And the corresponding output: pi = 3.141 e = 2 . 7 1 8 The cat goes... meow! The dog goes... woof! By default, call() takes a single subroutine reference and an optional list of named arguments. The arguments will be passed directly to the called subroutine, but Lexical::Persistence also makes the values available from the "arg" prefix. use Lexical::Persistence; my %animals = ( snake => "hiss", plane => "I'm Cartesian", ); my $lp = Lexical::Persistence->new(); while (my ($animal, $sound) = each %animals) { $lp->call(\&display, animal => $animal, sound => $sound); } sub display { my ($arg_animal, $arg_sound); print "The $arg_animal goes... $arg_sound!\n"; } And the corresponding output: The plane goes... I'm Cartesian! The snake goes... hiss! Sometimes you want to call functions normally. The wrap() method will wrap your function in a small thunk that does the call() for you, returning a coderef. use Lexical::Persistence; my $lp = Lexical::Persistence->new(); my $thunk = $lp->wrap(\&display); $thunk->(animal => "squirrel", sound => "nuts"); sub display { my ($arg_animal, $arg_sound); print "The $arg_animal goes... $arg_sound!\n"; } And the corresponding output: The squirrel goes... nuts! Prefixes are the characters leading up to the first underscore in a lexical variable's name. However, there's also a default context named underscore. It's literally "_" because the underscore is not legal in a context name by default. Variables without prefixes, or with prefixes that have not been previously defined by set_context(), are stored in that context. The get_context() member returns a hash for a named context. This allows your code to manipulate the values within a persistent context. use Lexical::Persistence; my $lp = Lexical::Persistence->new(); $lp->set_context( _ => { '@mind' => [qw(My mind is going. I can feel it.)] } ); while (1) { $lp->call(\&display); my $mind = $lp->get_context("_")->{'@mind'}; splice @$mind, rand(@$mind), 1; last unless @$mind; } sub display { my @mind; print "@mind\n"; } Displays something like: My mind is going. I can feel it. My is going. I can feel it. My is going. I feel it. My going. I feel it. My going. I feel My I feel My I My It's possible to create multiple Lexical::Persistence objects, each with a unique state. use Lexical::Persistence; my $lp_1 = Lexical::Persistence->new(); $lp_1->set_context( _ => { '$foo' => "context 1's foo" } ); my $lp_2 = Lexical::Persistence->new(); $lp_2->set_context( _ => { '$foo' => "the foo in context 2" } ); $lp_1->call(\&display); $lp_2->call(\&display); sub display { print my $foo, "\n"; } Gets you this output: context 1's foo the foo in context 2 You can also compile and execute perl code contained in plain strings in a a lexical environment that already contains the persisted variables. use Lexical::Persistence; my $lp = Lexical::Persistence->new(); $lp->do( 'my $message = "Hello, world" ); $lp->do( 'print "$message\n"' ); Which gives the output: Hello, world If you come up with other fun uses, let us know.bxgoat07SUSE Linux Enterprise 15 SP4openSUSEArtistic-1.0 or GPL-1.0+https://bugs.opensuse.orgDevelopment/Libraries/Perlhttp://search.cpan.org/dist/Lexical-Persistence/linuxnoarch@@G;G3nA$AA큤$bxR bxbxR R R R bx1994bcac3b193adda12d104c9ab8e3d09ac4984da593fe839b6e5363611065cc298cffe0b672ee2f732d48032570c619a939f032aadc87ef15cde1f116dd329784a124b6cd78b42a029f845dc23c06dd41a8c35ebd025f1c8c24d3b96c044134ab0db08ae77898ec7681c261c441e80228d8c2edfd1c585e1b7ba110e77eefeeb3ff25ed817414fd8a9e2b9edbc56b9a15193f19473fb0d7fe28da94f9335c77835ce7d128755e58e81494aa70977e1ac71d59e85a20f8e01b403c2bc3b9b71arootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootperl-Lexical-Persistence-1.023-bp154.1.17.src.rpmperl(Lexical::Persistence)perl-Lexical-Persistence     perl(:MODULE_COMPAT_5.26.1)perl(Devel::LexAlias)perl(PadWalker)rpmlib(CompressedFileNames)rpmlib(FileDigests)rpmlib(PayloadFilesHavePrefix)rpmlib(PayloadIsXz)0.051.963.0.4-14.6.0-14.0-15.2-14.14.3R;PPy@LKFcoolo@suse.comcoolo@suse.comcoolo@novell.compascal.bleser@opensuse.org- updated to 1.023, they forgot to update their changelog- use perl_requires macro- remove /var/adm/perl-modules- initial package (1.020)goat07 1652089014 1.0201.023-bp154.1.17LexicalPersistence.pmx86_64-linux-thread-multiperl-Lexical-PersistenceCHANGESLICENSEREADMEREADME.mkdnLexical::Persistence.3pm.gz/usr/lib/perl5/vendor_perl/5.26.1//usr/lib/perl5/vendor_perl/5.26.1/Lexical//usr/share/doc/packages//usr/share/doc/packages/perl-Lexical-Persistence//usr/share/man/man3/-fmessage-length=0 -grecord-gcc-switches -O2 -Wall -D_FORTIFY_SOURCE=2 -fstack-protector-strong -funwind-tables -fasynchronous-unwind-tables -fstack-clash-protection -gobs://build.opensuse.org/openSUSE:Backports:SLE-15-SP4/standard/a44ed45a4d7476bdcc746de19507daf6-perl-Lexical-Persistencecpioxz5noarch-suse-linuxdirectoryPerl5 module source textASCII textAlgol 68 source, ASCII texttroff or preprocessor input, ASCII text (gzip compressed data, max compression, from Unix)PBJ4t嚮Ihutf-8a5096120deec4a45c9d56f09b58c4f3c79ee1026d833800837b64030988445a0? 7zXZ !t/kPW] crt:bLL ?-BZ\6EH=eY1?1۠y4XJE辒lMI3:Œ[th|ϱA: цP˨>t9 w#a~2B-Ú5Q+@-B$H>XQ⌚ʁs FtK^7#M$1q.?RviU[ҥa9y\W?^+3LSu9۽ZO/rG( 2x’IHnmr E<ꭣ S YG!v^&dJO*1bJ3~y/c+r j4$s9AT"Z4^lw W*\x`Hrھ0)+ٍ Zd}wXn:XG%ɵ?8\otغk}zv3n p=ɱZXX`\v*xxG'+Koۼk[,f_M;wќeae=(ݯyįlQpN6~1FX44W/־8)>)1멄$\BЭD~m ҇s*XF +5 #cQR_لVJv/#ՊA6݇gj 믆~j"K,ˠNJ|b<Á3̮s-bg̰l4䉞Ng^^ 8rGy4s]lPȱN5WD6'}<[FC 푲 |`d=/5_hhњƬH. i{6 ^q3Z|I)!);TiFAtdCiXEM/'2v^k6y2@<Ab1^{*Ƚ*D^6i14Ŷ5qSw!`Pق/狾״FX]/*8uJ~9)(1q8G+ o#Hgs׉! A BO\D]ΙDgx-IWN)%;U~O gch l@"\3/LRHjQ^t)3fFuҼYf"J'm4=oÜ7R=D-)\IɟfO<J)La8A,Xt0D: [7|iz\_@EVeAQǖfٓ&w\qO( #YX&; BʹZy(-zIE&L vpE3kXrxYqVȮFOvmS8_y| 84KdTZ9m#Cٝ;I%{ZS@]-s37D;'ĝ4VOAbY\K03,*psi!m q`է)6iFU:m `a$1~䒮q &*u+Uqtl|b@K=Q 4WPսۤ+QoWTZߌV*sg\۞Shm< ʔIkԁLJ`6 {(ǤF13Bu@L% DΕ.g:a K>4Ð9iβ"T:-cf>ZwRYZJ/BTRhK!a7`QڦZMn0b˿,p8fիݫ8D(aiDSU2U˜/o|aT*r}V# 8B`>aq1gK:#t¾B6݁G3u&*WTJ]$GE=එ` 2Eaϕ {OSY$RˀupBP!pɍT %#:V8jI[[ QGr;zV[S1ܯmg\y3t3.C}LfDPe)rtomiD\z:/P%xAt3ޒ[!Dr J-4G,̐-[ݟFT Ӆqkz^99w1aۻ)W]ۯ%I&R1ֱ /b9e!2vLH韏v[[oȧR(5zR!Z ω0L6_ .T<iQp1mw?>8):-+*'AiIo-D#;Ysl,"L!y#"0qWwI;I)ex`I2TϽJss ;6c4Gյ #&2ҷVy%MeIT6Ĉ}$Gywd1ArFaP9H3sp2 U8 NϮ+وvVՁz;Ts˧*6#N'iʒNSz9""AFif@ƻ/hރ3o>1QA#j. =Su)qaۺDS> k f~I,1s}[\/?&߷-k(Hrը [Xl[ Q8U6@ ~*4d;ʔp QrU%2MMoR/X-aaTkdv{)hs~"&FͨlRe̦:W-@se҈}껔AdiB1, T}$:TtR de2Qݑ=r% ; x/w'Ƽ\'[6E8]'Bl+m?גR)@@SMTvcD 2WTv1==3aڥцM5J?Oߋ+5LJT`wWm E}U% ˊM͈AX|οP=jX&Hy0Ly4[vhrNlo~8^f/E%\y#X]2&ioFO TmXTmb4/W&C @7ldIC4d\K$ p9{I '̅cNi#"SDI3!fW8PRH0CN:&חblHۃc% W]ơ1|1#;_&"_j< N@6lt$:QV>Ax:w!/wFYm:-RtC*X VFoM!լL^DԿ~4˜+pgS*#CWسڰApqĿ5#^'Kv*Q'tڰ.&¯q8[H^6zS\3 BEs}랙B-w &?-{+qvrk*z0:Fߜ4iqY$$=`$Y?J؟kE,A1 8䮀niDZov!X~pmTqf N<'CX ] 9!' > 7' p{jǺKNskAh5|&T?;9h6%hl]2x4~o7CJ: Pَ_].lHCKO*?ls8q4MUd;`*u! ZLݷ(+H>1 -h"qچDV29-KĦḁsQ\.nE9e ذ=BF0 @믄'Q;X m[wmfgKp<OL'8S ~|Fho50Z,б0+z,humJ#z>rTYaP !ʄG/L/w.5$:y ⨊-)}4,,4PVBaҮ^B,e[ ŵzQ"z%wr;1yX tbz*p@&b`e&w;Q qLGVAD+zoX 1 b snV3Iܬ:Q"Q< ^5f@Oڈ2h؃%̫Bŗt;s6y,d]L*Y֑\zGbYɓScoN=fm٫莉M>diT=ō$^U mHвbE Jc=eO%C@ӢT8?gblNZ_V|' '0d^tH~-l#٬w>3B;"Ocv@2]Zx; JMUlrK1uX;Y{rlxWMFM!hih E[]ql>*U2z~)y (P*d0-hxR peG_xfВmӉܤ Kvn8sN Z,xmYH]$PdU Ą@:&;/T[pev: g4@ppvokK80A•6{&N}=Y$ZR[}F莉Mz5?Y@%lW9?s4x]t ;+ɽOY\ 9]# .[lqwJBZwh~7FRfX:ohXIsbv4g74`fzAPy͇ZF.MC:WI"`*s3܄6ϯh6KHxBTNbuLTɀz&AXSJ$4 HB^uu.!.!sr=&f[ujo<*uщiu mVျ t"#pȭ0Ol0]pGf}cɑ!.[SiF)o:V)CbFԘ+asOj63W'm`O(+BD§.z=4 D< aajM#jX؊kdyH!SiZ y,jTܒ ^97I C~A{̕\)n ?0Ki}c0 y5˭v"0 ""VAwPp7~qJV7/ .~kHUO4c>۝]s|p3ZP^`8k/`[o!G6(NR?ۖ G.%2(7u~M0Gdj=~e^ãN|iwtHTQX u\;tcɬFn*"nnЬ鞟bbϦn cjGy*B•Lmj^ovŢXdfuK|R'yVZg2^!/isVBgчn^_,w0 XFJ}3.R%?࿠\BE̊K/ݴOcGV=L 5053kp ^|"OP nו?g.qŘ! Zvqb 2AHuS)#;]7hg)j]V`R.wVPV-ƫWsL&| ,? ¼Uz_ P:5P5bA0-KŢ(@mp^{s"}M\+)f*vQ<9MLH &:c Mk$i 0H4ؽ s_Z ` #>D= N,a h=y0G;.dXvyBxlf%Ud}v[|qy84H6(? _=σ7Nn=܆wNi ;x?͈76dz 9nfY<._݋׃2"{MAXs  k,I1R/,+ޯYvR J̳$l}nsɖ,S3v-%QBK yБ.9iEbi C[J>qreGےϰRstC\/g${/Dfck#P`Y&5֤f,Uu#iUsB~Ux삩7 vW_iՅKy~ F(tCÞe "ط ½1+2E`(-ӕw,uiaǘ40+[e 7*dfz||Q\,/c%G@` n>=X餕IF2WD7Jɩ Q[8,ˢcgɥh!HWWCl:\lJQpcD4z MByI]ˡv.F8G8ruP̟Y!RT]eޥ}#C{/_5J5G2~_JnL>ܔeaSdQwOFKr42Z4z -ڀ+FbbV$p̎wzkpzc(s Bc8Q64hT&EZmoXpXm%.aB/?2svI,hF\q$ 鲖q(;V٘/ӅP$bπP_,^rMMiK4Z2\U2MşQkꙮ3+*Mvލ7.eۖx)fe/߲`":^_AWVŪo|DJAD >mV=wVDpmoZD*ľn.jQRB*dQOJD[9ymd3jmμxнzMT,2kc+s )ehE ^C,̌KX>Ch?BisL Il9oL5sO;[?0ޱknxb3KqxIgiTd1ѩuKZ7[艧 cR dH¥)f}2ԗ(Ag)@^@\] D7~Sp!re% F*F)ڷSeebQJ80m^S u"֬Tѐ- 1qK21O#<9EܞH;k?_Ydo9͗ 5/\GsWP%1!z^iGo;\z~6O8^rc8Y")^rLmִ:,h,1+e\zr D(Bjo>qߢz$H! / }G7'x^w"emfVd 0ĮP* /Z0YؽәETsm _LӪ?*ޙhX+% a6NlXq`l ,yS֔_nP GxgIJ Cd#n0I\ƃ|&zUSڨn szHs8 · Rr/7Aug>v-X )UcmI6׫LllN"\P*)C +c#%x&jc<>n"Uܒ[JpK_kF-xk l"htqmfa/TH]`llO;bWzW.zQkREI!h_&hMt"qW$$o[}X5P5ôԶ]T,uN8)7ҁ)/ry׌`#jI@+gVxdJi7cV^^'@1ڴl>^% H~cP~J>6)ȑRDT!*REٚg 3ɌK5p K 9I&1C.~,_B_EF),R+ӆn7Ԑop9PgKc2VNHHtR;Olk՟{~^p]O\?8'@ 3*qDuvw#z= ]g6xxT] mO 0~=jh0 MubmFzfʱMʏ-,|x0c`kC-W؟4-u'鷅3+ Tŕ d.~P٧hbm\*U{'ŽAD0$d;yVd<3 Xi1Cl5s283HH\Xf{2ҷ،6e˗ {xֺk̛"J "v^ g1џTyp0D>оCgl+(z>(. nmb-PUhY$2?rOT-S51"m\g*I8/blG(90z L;jҍ{^V)ӃAWf?F\h/48I.G~$N6Iҕ=>} &Twm/5ZO=\guDŽR@ԱMyluG[?O۽=p8~qu0G2E;RU|vԾ8` ҧb. FܴL\g 4{A .}!Y|";L喱 ..TXВqA a5t$)NQ}˒֣6_0vRUGJ8ƕ-to(I >9>ɒ8hw)}6+xʤ##2_@]o_{@=Ti#e\"x[1gX-3m)pblj#r}@iƶ@W|7̟Y(?fJ'qQBQ,7cpCR:QSaU-Ai i$iWo0AH4JVt9&>K{t,u;/hi{U P()g{KtNQMA2W]?b|FM3.tLO3֋Z_#h-z0UڣP^!gbT {oN;P`ܩϕ4s=V!* , bQQ+7 99G1L@Vt"olJX`oҏ yK= z)V,C!'lW)R$ӷ=}b]۱ĬD_z[у2;*$ ϙꚄؘ̭P}P@ ¸ kĸVx7:t6Dpń kob_1"'NoL?D ~( 4.ɞy_!@x}, lgmnLd [mK$Ĵ᱀؍ HeE.U񄳔uյ76c_AƊ}mhZlwb=BohE05}Slh `7Sկn0#x/lw6zJ<~A Y~{O%eyZāY@mݧRXcEgښfkUePf:F}upzK~۲7@ᏗjWujN׹.FiBC=>݆aN]y>E)$xр9M[&I=FάjQN̫ג 76e'3<˚yϽt-{r3!6?*ԙ0/6*'Ɣ#yL)( Z"}z%m2;\{[sN2&"Gx3=4KȽDkt\ Lly#DQK rb&+: 2荱֒(;QP }!ȞmnHK 0FRPOr"ă@QG󞃮 (ORj!'i~H;WQ3o]aqw(b+S:XJKJzlTWrJ4A4kq\W`m KR3Qz48f|!CIE9VކI_[ÎǀyNQ[dͅuBkd M+{#mȗ.Ty ݞsA7QK闑t5L67E). }#7jJ&sbS&ֱ%c}Nl0 gR5S'e}S8A5y3DxD)|g?L@P}nmixM+ c8ޖTky\B]{rrCsVY)qwbb6UTg~&jn i$DSq>rbWwOSDNtOGXݭZ|]."Q?,R%Rl g QvCfnzZ\ujjX;$c V`]xaȏc.g*cw>Q ?U {lbChmHi}Y^ms3Y̖]{4}ePDFq}:O ></-&%^J̣ʓ09?J(,>pO5\¨buYeZU7Gx~&j;tlERK1YAR!A&Yj>5hGs)Šy, tb)"f)Gt  Ri3GFA~tXi38T癌b 6zLdGe,ZtzPH$AXHrjsoxr>]-sF !1?Uny"il-n-B\'vV\d#0WRVlA I]䓲)BV . VnVW/#D-wн2͙cZ%h~lN}ҙ1v[ICHZqg=L]cov_r4%O((axU`y~/%ZQ8H(zy$lH>\K&wkj )lfK'c&d8r Wq`3m谊/ JtgpMȑghYkH\b=Uh1ڟ w2xHהb[W{+ّ~ՃHc|o!Q*G_7bոNU PPw[o)I@ҹJjP=rC3E&oǏHŰUNOj{؛/vP69pĬGtJώ6 sH@Кx0Q܃!ÜPB$5JKۑċ=PSֺ#gT`ź_;qlN|?Jo4<vQYho]ʖ:w0o[q(_scXTk@yZ?O($oaԍ5KNS/o߁dV!bN9DF/5G j쭧SLBSl>G+0KQ&?|}`A I~EU /H+lS[iz{f|<BMyewR倚EgiY' (˽41Tem҈TWb/A~=rփt{MsPh'Cj7$cڞ1Ajao[L]IW(f{)g/,W.(Pɶ YZ