perl-Lexical-Persistence-1.023-bp155.2.8 >  A dd I%z J`*Q9v]+kl~u;%噐8(/wZTSao/yo !2_fe#!t4Yy WY:5GŜNU9YPC >-Ge<.V޳5{bK֭{nC)n[WE_M(%5)IiY~X)d9PLF/|<C6luCpy+zh!&.G.p7gS*#})KJFQ89c37tۏ~9 㥌i"1' -*ի,Fa=trҥf#n%վwN6Fz'p0zf %6fLdo|'fsp>?d! + c\`pt ( L  ^  p      ( L y  0L(8 90:zFG HD Ih XtY|\ ] ^Abcdeflu0 vTw x yDzHX\bCperl-Lexical-Persistence1.023bp155.2.8Persistent 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.ddhci-cnode1-e5SUSE Linux Enterprise 15 SP5openSUSEArtistic-1.0 or GPL-1.0+https://bugs.opensuse.orgDevelopment/Libraries/Perlhttp://search.cpan.org/dist/Lexical-Persistence/linuxnoarch@@G;G3nA$AA큤$ddR ddddR R R R dd1994bcac3b193adda12d104c9ab8e3d09ac4984da593fe839b6e5363611065cc298cffe0b672ee2f732d48032570c619a939f032aadc87ef15cde1f116dd329784a124b6cd78b42a029f845dc23c06dd41a8c35ebd025f1c8c24d3b96c044134ab0db08ae77898ec7681c261c441e80228d8c2edfd1c585e1b7ba110e77eefeeb3ff25ed817414fd8a9e2b9edbc56b9a15193f19473fb0d7fe28da94f9335c77835ce7d128755e58e81494aa70977e1ac71d59e85a20f8e01b403c2bc3b9b71arootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootrootperl-Lexical-Persistence-1.023-bp155.2.8.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)hci-cnode1-e5 1684333311 1.0201.023-bp155.2.8LexicalPersistence.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-SP5/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)PrS43 jbX/utf-82947399dcf8d2a8c741d3338decef8f61657285ffd041a661d7204d65719eee9? 7zXZ !t/kP`] crt:bLL ?$WK-WDsQBêQj("(z4OY / EF#=\u+nt2VѬpwf{״۩m&#LEdZ;n"]8Oet1kcZ߱F-1vc QKHI/e.rB*BGKx.RA *~ 8|~TnOHmҪ'Ɯd`=YU(45цDdQÑvK_n휅׿ |Ps%-~Ò,-L~ĈA r0̽ID"Csx7YSısEf%n)S2whFD,&ΫԍCDrRR<*Al Q%:~xZL<6PQcTC4К29靐IdN**)v1Je53 yEhkDcﵮC̑Sm^He`[v7Mḻ*&he?\֬9ݗB^/)D2֎ x?^t]joZ.s̮T,=_/8#ڻ)Y-j>DR3ޭO-gD:COsDgbkzf\:Dw0v|-X1JUE-l@=duw}2KU!槙MB%bJKf09*yPfV40!‹50tJJN[F{vk߅ӤXtHff Z H{0G׹|na`քlV޲7ɞ9u4^_e#=6 6ph1@ʽQMU--,QkbZq"&4/e;G(fAud MPir!fuegio$,r(q'XV;?Hΐ]U’Bapq/>zYJ2RPZՈ׋_ )c` oEku4 +k*aP^bP}XwF^&Tokz<{JNYQ.SFs a0>0734%ġ"eǩaſQ{dCEEd <AZn?=K Q!P#r 5dVc,0;-WO~#ǭh+h ]NG7Qo!*jC6} .I+?9Y$;l|/&?r5kxȦ V+Rok'K%9#)CM(4=wraB'?<,EՉvVO.*[yUÔ\!hݪIb$[. o=)Nٮ#!\ϮgѧK>[ߏh-6ч< '(Yh. "3@^pQ 0h~o h$mʍqhڲ=8/+heLO4Z -E>Ro6E'Y~lu6eO^a,t6K(37k=L3ŜW=Hxd|ݱ7`^j3L[v{iU45b$.4D-m؏P)#W}W`~Ĕᴗ `X R{Amd-Awj"Ot%ck1ZckJwGILu mFadXɦ1aG/J0sE[ a>_g%تP$92OVu 2ODL|֏(}*!-ңxhSO!ƣ:,?TԶ?UF`VHS6 _Uݦy}lw$vPee,>.;y&QC=_]*uCMb \ p;G~0t۪=Z}SJ *Z%p%#7^e aȯ 0D ܎tI&B+7׭htϨlEmp[e,:ZNѱtRH^ itv _xNE[B/?бbKLg(|W}Ii @tкu;X [6>DBcEs=,xE'az®ǔ7FlRmw {2F yհAV4|3W]OKҴ2! sa %.0bf:`aF8P٣B6ЄǶ xK9ּi2s*p8Ʌ}gc:5nĸ\E $^ŇǪ[sļSɔ%&2̅T)Ą 7/ƑkH'N:9a?4o<HD6Tl[Z[ao!1 Km.hi\-X:(pDD~+JByz@er<&YHp>^KqTxM}pc W5S; &>,rə8 \G 3 ;*N껎hC$u|(O0>A>g(ʄ<}fħuƉ5FDw<>)q>+.A/}JK?F.X_N[&x28Y*T}kfygWTI]0xI> US@BZRaA v V(>ycDiP`P.ΤXlUXʜ+@*B7W I l|"`Vi= RDҩ^Yپi onjDʋl9rbց?TY>pml XKTŔbL8Vr罜 L#hC6GX;bWpBӧD1dNoe# 췉ܮ#b i`O֝&oվn'l RYwj#m m*;]eu%iƐdC Xv@#UJȧljp/HKY 3M`$)hPϯ%\㏤r+\qکG9$ Y64 zÃfeA|_m ݯAh، |/)ۊ AMxW h\ާ'Tax*Q-@Ͷ_ E /µPsW k"s1sΊ5>n"?0Ǫjcwalx$;Y~ @=&@Srg*\E ;x5ųsx2ܤK~r= īkO5U$kCjk=P(VC[z1&D!/@<Ԯ{99>^2d6NUY`M9h,T4?|0;ԆNp9bL"9 K(?J k6!@`8Ck3Q2ռy;~wa v="4b&'e_ ŵ}4 dw]`24c;n/b 6HhfuLL|c]?,CxL }ҞW hsڋIUA"YL0!8<цo%ڕ@eِ/V}w }4W0pcoh䰘XVmjp'G:Wl MC.oEޚ,9ܟNR%C&i:c{]-t?zضk1dz:/;$JEPAޘINϓ|%l`]1&6Pb&ooz$kD}(3;^iZi\>ҵw@A)Kh?(B2\vfj*VX(B_A-'}W74x_c'Fۈ.hќQXc"W f_.Bn"K?)Vn!}4BKeFl1upm_nDj!X偙#L$"s։`i(l@i97=;CO|*~,Q#[{ߢڑW@HOJ͈$4Ho4@@{?Y~z#~pãR$J,O\7lxӁ-͞| ,#~bK酁\*HSԌw>t!̷o`E;y%${߸9 PmiKKzY)r ?Áڍro6ePMfrxхAfS@b(s4Phi ,SᲬI^Y8]GeM(SU+pK<׷-Y9P]z9t)؞ot#Rȼ9;}!duGAOT'AGR ^C{(aGFbs08n9d*cXBʹ(^"s4;2(9ya|~)MV];AZMd)tPq-)șV;kKPM e"FtUZKp,XȚī9Es?>uWP TUZQ6+@hGj "@hp1+rD*˸ǑVEC dcc$]7 VPµE~Ӛ#|KaU٘[\?Q1:1#ts} vh*FSpuQ܎ʔrYb;uc#/aIfcоVH@V:egqm{zgr'Q^8eC4B0#8wzފ9GJl[PMi OQ"tf˱)Ww軣$Jl@heWЄW`+sɀqK\}#p ӯnt\UN$VՋؐS1SAZF)~Kq^DFChVwzm5XŞNI/pCtWEsx(2ܮQ2Emt~09ݳҸ01=j!@wdžM^p b>8!@tL# b7x/ ֵ ߭9JX-Cl(Լ5Tq/M'ФwhÆ[/9E Yii}鱣ȇwc/L !K|'\p)j7vL9iNXG Nvy'et]/g8:Q1 WХa2ۦſօYw#ePe`ql>dqA!uPcVq APYC>=ƹȥPSeK Tj۔ƮPphZF݀?M hb6@X%*Aˎ)yðl8%nLkx?N'|{FґG#s(旔5t>2`o V@[J{hNQ+ K:O+E_pdi:,.Ѽu$=#]VpHH vbcWA M,gߥUG1GE,+@ , 7!1Z_-y0cC3=MPpdNgLHv-B~6T dtQ{'5L2uk&ac2HI1zZ4sA[+x&n]+, JB7Rdə0!QGJ_CF2{\;d99!oNP[4]3Xoy4- t5<>2xSj\^xlS|p#WS8ho[Yt6Հf$U왝OhU Uv?k Y2Ifr*㋦zvCn2yZe'1ʯ=& qxMM|:jx{\5+^v=ߣ5.ՄnčKTʞ@v{{CW6mE٪F4E>ݒldV|09]Z8muIO>޺Z:_pNИPecbrHEk4&[E㷧N&Hsk31 0b"?j&,1[Ʀ +A%wx,%SΨ3[K tLiʓ{ DET:ܠ4S\#j8L4\ }G/}k4i-7A^Hz?Z۠~}>_ZY%z]T\,|;b_tNߔc6b neL&:4s_`m|1AZ9_(.fR2sL2rQgDwl b-DcZ[2^̨*9_Q0VIc uTF/[nׯ$O\N,0T]ʾ؆(c`GR`Tw6uRKg=xngvd_feNa/-m lqҥ;cy$xύ fȄv⌘txʓ=" )` ɜNB{ F)l|;9>$nɾbq0B`1:]1B~N%D&8y}+Pa^qeŬvoӼÝ1xh!4dB@e ]?5FT0i=kj=y <}i0&3X6oʷЩ7)UH9Lt6NE^PUCX{ ^% ӷ!KB#~ IU M>[^.:b{Tn^uځ}}7{Z튀'Yۓŗ/*^jpUey-L#&!1)H'j[chi1Gz qv-$*"#ݥ ߛ!$PVIW`ɀ.m8(gyRNv:oPg Ld^ 0Bo#G_Q#ݽ6!X~ͨHC[ kbXi XH J qw#Q+$EӮu~89 #Nq -Pj&==sh=^A~tHˆU‘۩s^K ,/iTED/=#BEU 7~fBej;+^Mw/ڤЦ )CI(5Of21>hF^ Qwu]C?%W)P)oU RRTYc-,]lE㬻AySjԘ\xf?mfڢh :d6iJ"̢_PQt(ϿAmb]6?ʂ GóҬl>_&/QGҁBċ +J +ہ2T6O8{]ilp 0+<. & F$fԁ8 LyP@s؀LWL\t>g j7dÙ 8ͱ>f?BJ\qNA0s}spĸ0?hIm؎}]BGB{-^‡Ck|Y Gi0Va6ZqvHׄqy71b.e4ZE"'veqʗA&$Ulw @J]K~&;4/ڑc\3]_s$u9C`X\ %#;u@ܜYNu?0f'z u&Mf+c+nw\;;`f淎~')WטmZDpi֑BqqfcC{B( :bZ [ngw XW^[gʹ"wf1(A{&5.]f1vgw' ?qF[U2e|!ƌHrt ]g/\Ӻ.:.J8w_AcJ.s'"]e~QLz6E>gm?VZRi/Z_718k|Zgu5HgΡRj,d&h <񄉦} waLn3q/By */ĶS{>DeK=#K&%ddS5M | Ԗi|Bl7e82;pѽȹ8<90`rIme߯/L/{~y5Edt+ ^άêMj5 M 5o#M$|nܕ:ɨuNxW|}gVoc]4`=O`'lW4Ylt7n ]~9=X޹9>,ӀjapFQm~Y|=_Olp R ߦH-[`Nq2w7 4p;Ue:hG0Zs͙`8>qMCYYo1O͗RNX}r)|Pfy$X9G9WĦݐ h`P{Ug5 #XsH n[fUL ɮp렖lr[&RCg1 NvnoȶhCQQ^}";bXp_}%V/n&B sK)i^ mwst\\|a MO13WobIpx?3%KiGRHB(ڃGǂeK\8tT;MYu/E,e[w4>\ik-,s(bL2D'UHan4jG kU=%Ѥ̈O'ӽ젻0OS#J&HF2:ݲ5;3(krEiv ߠi*AUrPֽ?3oo#6>FOP %otggE+޶{O 9.VYDw>\m ocy͔<e1 QgyF<a2{31HK{d?&RµG`PD /p@s*]7^d vWǥLVB̪1L?G;Xi.[*K(ʂdMFm\3DlȽ/{x1^H^ni@c Q+ ]-p>]I`WΪ, 'HNxfJJZ}jOMogh wN\iRŭ`t@JKm6aښSzbvQ3P$#RB$Fɏ:|}--dzT|{ f=^K/e daqzK>DCaݞܻbs<\cyR,^ X# 6;0+CHQHЍq^ZO^Qט\{kςamւe%b,!]O IF*;"oč].X"D.TafHPvhBL[-+ؠ]b'BJhꜿ{H c>RkEd0 NM&S杣y<\&a=l݇v+Ѹȃ\<[ƶ i,`Zz΅Doe/璖;0VqElgnB12.gJ-W|ҽ86\ѵdÒ-QGI~9O98="M7( to)GK=/N/ f"|y򩊍jwNuPA[(:N2?0L3^{$wO%Z>EHyX ]SPz3]߇(]y\ 1B_t4ϼ`PnjtkD1C2;q!E rl*n2skgH #W4QAΉ"Ɗox+k 6?f7,K f_%x5janh_i+*o0`)|æǟBqѪB))k۽ _JB :k"5a=#[($ŋT!Zye+>߯{C(}67x+CvR'xl#D%#H3"NZ8mk"nʜ2]znsv ^%g+A¢2;2Jh rQs3E\p7 0##ڥZ( ÔԥztP[) 9-a1LW {nt1o@n%޿zngf >lvdeU^U ђ I,D}D;"ax|PNcI_YwHk|S H\2jXD!6Bax,ǀ' {oeoi NVgzS^#q.{Ji#5᳂yK98WY0Q3@ V:#tF8'\<Zw…׈ln %*AHL+FTX!uH7 z:׈pSՙqI%x6;u)d8h18čS:$4a:ii}8ݏ@:-M|(Oe4QtmB MMXs$L`^7$&eICTdp|'Sr~/HI?. ZӃ;Q7y)\ e^_%r[عjx}r,{r~aױIÛ*[ulu5i&_9R a5κF2]G1PAXhݝVUŎ? ˆvc:xƑﶸs$35K-ӆy6YN6Tr2 K{}pm-j8[Ӗ݁Mo(_ޠ^mi,eNj:U J@[&]f[ϐ:m'L QR?he.{En_$w_sw NJF{l>8zڇ斘O*<]8nAQK1;T2ҐyC«.I'9XQWn#a(nhZmx,T؀g_⠖L>։f=C{$^:T|||,dcI[o".궳h6hLRTɡ.jPRN_ ߮;XS bYtk·DmG֔uEX e|lfcKcc|hsd#wUTs W:ZIl xePPO0}βhX=~SY>Y@>ō<Bs \*.RU$԰3.ɑ@_بS/3i`e{?uus@v%b]@Ƥ#X,?)iR4dXF =-Fpj9KRrZKFkjhpӣחS{bHr/ce)lsw2uqհY >Đ)(9@s"}^zKG54j\Ѽվ}@Wz&5R'd78n@{ue Q@MT|Y$6oVfbCbK0F%.q͙f[oTSNv {bAq [=~'ہM^]o7WoQz-zHʗn|`BgK|RkHQgϕ.Wρ&o^ os}^hO$8':tu4#N/qhϐ̀t&1HF{dz`ya)P>=$sE%LS9Ѕ@6ɏ0!ivK~6 A+8m HRX+m:q+.A Kq1#GY׵ X\?R'd-hno+ m/V )n(?-"JKd\΃^] J܀P'plLT_ÎX4 얞tyIC@ѳh/20NJޠmqt'LtFEģqwl&O;4M JR ft5Lh}0ػj73YSgvU'liзLkQzAۛR#;8JշĞ>\M; w-#D/ls?@f]ؕmZf#_.Z wٌˎ ۇɪ3Wlw̘ GxȀxf4G qeDVԀPOC}{Jl"# PTta(c ; }n{FDݟL8D,+ ⩍w(_p~8zbd܏m=*RҐic  $d+0;wZ80|s~fotS|! UDj㉩*q<U*þƫHBEjcI'*Uy J1QD˞?llB౛A";Y8,R^`!jSnS$$5&Sjd+GS~-V':4xt0_RKǵ/Zݖ _>ЊO)dDzw JUk Γ2O"q`D[7a,e8<]?4xRbx z*Y}sWp-A5 p+ M_Ћ@Rۏ6? S&+O%rәVLx9@,_`WrceLk{\̺x7˛iB %knshH{}AOA'.IDk=͟Y@Mx/40 n FM#zkX骖]'h`#qx@S?z!k fb(nȒ;@ cvE ֵOgX?aP˸IW&ޜ,Cbп{q٧EyS:Oe6o6ݧ#9h8),;rFvMDzq|Rj)1SJ!f~,H| -cp!:i,!E#!}IujkrQU]T%K2S>rDBڍ/]<ġW8wY`{Q*y7b>HDwg ~1hcB_ iߕ!C4jһl\ؿUhk;y_Ԧ\yn gO3ӟjt@=?r󞄱N/sh} :Ǻ5qG0`?zDFL*ۿs9* VM&N-}#q%ݟ??8E>i*4ϗ;QϠo!+ MCAZ, lI b fkX!L'~,q%r//\{lmP4!Ȅ[&V#*:2s0f}[.ڔK)Wp8x%B:LCWg0r?~mNg1Ub4;0+O"?5 h}Qu`m; YZ