Hello community,
here is the log from the commit of package perl-Lexical-Persistence for
openSUSE:Factory checked in at 2013-11-26 19:25:50
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Lexical-Persistence (Old)
and /work/SRC/openSUSE:Factory/.perl-Lexical-Persistence.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Lexical-Persistence"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Lexical-Persistence/perl-Lexical-Persistence.changes
2012-09-13 00:05:52.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Lexical-Persistence.new/perl-Lexical-Persistence.changes
2013-11-26 19:25:51.000000000 +0100
@@ -1,0 +2,5 @@
+Mon Nov 25 09:32:32 UTC 2013 - [email protected]
+
+- updated to 1.023, they forgot to update their changelog
+
+-------------------------------------------------------------------
Old:
----
Lexical-Persistence-1.020.tar.gz
New:
----
Lexical-Persistence-1.023.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Lexical-Persistence.spec ++++++
--- /var/tmp/diff_new_pack.BQym8N/_old 2013-11-26 19:25:52.000000000 +0100
+++ /var/tmp/diff_new_pack.BQym8N/_new 2013-11-26 19:25:52.000000000 +0100
@@ -1,8 +1,7 @@
-# vim: set sw=3 ts=3 noet:
#
# spec file for package perl-Lexical-Persistence
#
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,60 +17,228 @@
Name: perl-Lexical-Persistence
-Version: 1.020
+Version: 1.023
Release: 0
-Summary: Persistent lexical variable values for arbitrary calls
+%define cpan_name Lexical-Persistence
+Summary: Persistent lexical variable values for arbitrary calls.
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
-Source:
http://www.cpan.org/modules/by-module/Lexical/RCAPUTO/Lexical-Persistence-%{version}.tar.gz
Url: http://search.cpan.org/dist/Lexical-Persistence/
+Source:
http://www.cpan.org/authors/id/R/RC/RCAPUTO/%{cpan_name}-%{version}.tar.gz
+BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
-Requires: perl
-Requires: perl(Devel::LexAlias) >= 0.04
-Requires: perl(PadWalker) >= 1.1
-BuildRequires: make
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Devel::LexAlias) >= 0.04
-BuildRequires: perl(PadWalker) >= 1.1
+BuildRequires: perl(Carp) >= 1.26
+BuildRequires: perl(Devel::LexAlias) >= 0.05
+BuildRequires: perl(PadWalker) >= 1.96
+BuildRequires: perl(Scalar::Util) >= 1.29
+BuildRequires: perl(Test::More) >= 0.98
+#BuildRequires: perl(Lexical::Persistence)
+Requires: perl(Devel::LexAlias) >= 0.05
+Requires: perl(PadWalker) >= 1.96
%{perl_requires}
%description
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.
+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 perists in
-the $lp object between setter() and getter().
+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.
%prep
-%setup -q -n "Lexical-Persistence-%{version}"
-%__sed -i '/^auto_install/d' Makefile.PL
+%setup -q -n %{cpan_name}-%{version}
%build
-%__perl Makefile.PL PREFIX="%{_prefix}"
-%__make %{?jobs:-j%{jobs}}
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%{__make} %{?_smp_mflags}
+
+%check
+%{__make} test
%install
%perl_make_install
%perl_process_packlist
+%perl_gen_filelist
-%clean
-%__rm -rf "%{buildroot}"
-
-%files
-%defattr(-,root,root)
-%doc README
-%dir %{perl_vendorlib}/Lexical
-%{perl_vendorlib}/Lexical/Persistence.pm
-%dir %{perl_vendorarch}/auto/Lexical
-%{perl_vendorarch}/auto/Lexical/Persistence
-%doc %{perl_man3dir}/Lexical::Persistence.%{perl_man3ext}%{ext_man}
-
-# Local Variables:
-# mode: rpm-spec
-# tab-width: 3
-# End:
+%files -f %{name}.files
+%defattr(-,root,root,755)
+%doc CHANGES LICENSE README README.mkdn
%changelog
++++++ Lexical-Persistence-1.020.tar.gz -> Lexical-Persistence-1.023.tar.gz
++++++
++++ 2544 lines of diff (skipped)
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
