r40971 - in /branches/upstream/liblexical-persistence-perl/current: CHANGES META.yml Makefile.PL README lib/Lexical/Persistence.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Jul 29 03:36:12 UTC 2009
Author: jawnsy-guest
Date: Wed Jul 29 03:36:06 2009
New Revision: 40971
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40971
Log:
[svn-upgrade] Integrating new upstream version, liblexical-persistence-perl (1.01)
Modified:
branches/upstream/liblexical-persistence-perl/current/CHANGES
branches/upstream/liblexical-persistence-perl/current/META.yml
branches/upstream/liblexical-persistence-perl/current/Makefile.PL
branches/upstream/liblexical-persistence-perl/current/README
branches/upstream/liblexical-persistence-perl/current/lib/Lexical/Persistence.pm
Modified: branches/upstream/liblexical-persistence-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblexical-persistence-perl/current/CHANGES?rev=40971&op=diff
==============================================================================
--- branches/upstream/liblexical-persistence-perl/current/CHANGES (original)
+++ branches/upstream/liblexical-persistence-perl/current/CHANGES Wed Jul 29 03:36:06 2009
@@ -1,3 +1,21 @@
+=================================
+2009-07-27T16:08:44.238440Z v1_01
+=================================
+
+ 2009-07-27 16:08:19 (r22) by rcaputo; lib/Lexical/Persistence.pm M
+
+ Reorganize documentation links.
+
+ 2009-07-27 04:48:07 (r21) by rcaputo
+ lib/Lexical/Persistence.pm M; Makefile.PL M
+
+ Added a machine-readable repository directory to the distribution.
+ Documented the bug tracker, repository, and other resource URLs.
+
+ 2008-12-15 16:19:56 (r20) by rcaputo; Makefile.PL M
+
+ Keep UTF8 out of the README, because that messes up the SYNOPSIS.
+
=================================
2008-11-07T18:12:14.808090Z v0_98
=================================
Modified: branches/upstream/liblexical-persistence-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblexical-persistence-perl/current/META.yml?rev=40971&op=diff
==============================================================================
--- branches/upstream/liblexical-persistence-perl/current/META.yml (original)
+++ branches/upstream/liblexical-persistence-perl/current/META.yml Wed Jul 29 03:36:06 2009
@@ -1,15 +1,26 @@
--- #YAML:1.0
-name: Lexical-Persistence
-version: 0.98
-abstract: Persistent, continuation-like contexts for lexical variables.
-license: perl
-author:
+name: Lexical-Persistence
+version: 1.01
+abstract: Persistent, continuation-like contexts for lexical variables.
+author:
- Rocco Caputo <rcaputo at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Devel::LexAlias: 0.04
- PadWalker: 1.1
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Devel::LexAlias: 0.04
+ PadWalker: 1.1
+resources:
+ license: http://dev.perl.org/licenses/
+ repository: http://thirdlobe.com/svn/lex-per/trunk
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.54
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/liblexical-persistence-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblexical-persistence-perl/current/Makefile.PL?rev=40971&op=diff
==============================================================================
--- branches/upstream/liblexical-persistence-perl/current/Makefile.PL (original)
+++ branches/upstream/liblexical-persistence-perl/current/Makefile.PL Wed Jul 29 03:36:06 2009
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL 9 2006-11-17 06:29:03Z rcaputo $
+# $Id: Makefile.PL 21 2009-07-27 04:48:07Z rcaputo $
use warnings;
use strict;
@@ -19,20 +19,26 @@
NAME => 'Lexical::Persistence',
AUTHOR => 'Rocco Caputo <rcaputo at cpan.org>',
ABSTRACT => 'Persistent, continuation-like contexts for lexical variables.',
- VERSION_FROM => 'lib/Lexical/Persistence.pm',
+ VERSION_FROM => 'lib/Lexical/Persistence.pm',
LICENSE => 'perl',
- dist => {
- COMPRESS => 'gzip -9f',
- SUFFIX => 'gz',
- PREOP => (
- '../repo-tools/svn-log.perl | ' .
- '/usr/bin/tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES; ' .
- 'perldoc lib/Lexical/Persistence.pm | ' .
+ META_ADD => {
+ resources => {
+ license => 'http://dev.perl.org/licenses/',
+ repository => 'http://thirdlobe.com/svn/lex-per/trunk'
+ },
+ },
+ dist => {
+ COMPRESS => 'gzip -9f',
+ SUFFIX => 'gz',
+ PREOP => (
+ '../repo-tools/svn-log.perl | ' .
+ '/usr/bin/tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES; ' .
+ 'LANG=C perldoc lib/Lexical/Persistence.pm | ' .
'/usr/bin/tee ./$(DISTNAME)-$(VERSION)/README > ./README'
- ),
- },
+ ),
+ },
- PREREQ_PM => {
+ PREREQ_PM => {
'Devel::LexAlias' => 0.04,
'PadWalker' => 1.1,
},
Modified: branches/upstream/liblexical-persistence-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblexical-persistence-perl/current/README?rev=40971&op=diff
==============================================================================
--- branches/upstream/liblexical-persistence-perl/current/README (original)
+++ branches/upstream/liblexical-persistence-perl/current/README Wed Jul 29 03:36:06 2009
@@ -3,7 +3,7 @@
NNAAMMEE
- Lexical::Persistence − Persistent lexical variable values for arbitrary
+ Lexical::Persistence - Persistent lexical variable values for arbitrary
calls.
SSYYNNOOPPSSIISS
@@ -11,9 +11,9 @@
use Lexical::Persistence;
- my $persistence = Lexical::Persistence−>new();
+ my $persistence = Lexical::Persistence->new();
foreach my $number (qw(one two three four five)) {
- $persistence−>call(\&target, number => $number);
+ $persistence->call(\&target, number => $number);
}
exit;
@@ -33,7 +33,7 @@
DDEESSCCRRIIPPTTIIOONN
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.
+ 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
@@ -41,9 +41,9 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
- $lp−>call(\&setter);
- $lp−>call(\&getter);
+ my $lp = Lexical::Persistence->new();
+ $lp->call(\&setter);
+ $lp->call(\&getter);
sub setter { my $x = "some value" }
sub getter { print my $x, "\n" }
@@ -58,16 +58,16 @@
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(
+ 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" }
+ '%member' => { cat => "meow", dog => "woof" }
}
);
- $lp−>call(\&display);
+ $lp->call(\&display);
sub display {
my ($pi_member, @e_member, %animal_member);
@@ -95,12 +95,12 @@
my %animals = (
snake => "hiss",
- plane => "I’m Cartesian",
+ plane => "I'm Cartesian",
);
- my $lp = Lexical::Persistence−>new();
+ my $lp = Lexical::Persistence->new();
while (my ($animal, $sound) = each %animals) {
- $lp−>call(\&display, animal => $animal, sound => $sound);
+ $lp->call(\&display, animal => $animal, sound => $sound);
}
sub display {
@@ -110,7 +110,7 @@
And the corresponding output:
- The plane goes... I’m Cartesian!
+ The plane goes... I'm Cartesian!
The snake goes... hiss!
Sometimes you want to call functions normally. The _w_r_a_p_(_) method will
@@ -119,10 +119,10 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
- my $thunk = $lp−>wrap(\&display);
-
- $thunk−>(animal => "squirrel", sound => "nuts");
+ my $lp = Lexical::Persistence->new();
+ my $thunk = $lp->wrap(\&display);
+
+ $thunk->(animal => "squirrel", sound => "nuts");
sub display {
my ($arg_animal, $arg_sound);
@@ -134,8 +134,8 @@
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
+ 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 _s_e_t___c_o_n_t_e_x_t_(_), are
stored in that context.
@@ -145,16 +145,16 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
- $lp−>set_context(
+ my $lp = Lexical::Persistence->new();
+ $lp->set_context(
_ => {
- ’@mind’ => [qw(My mind is going. I can feel it.)]
+ '@mind' => [qw(My mind is going. I can feel it.)]
}
);
while (1) {
- $lp−>call(\&display);
- my $mind = $lp−>get_context("_")−>{’@mind’};
+ $lp->call(\&display);
+ my $mind = $lp->get_context("_")->{'@mind'};
splice @$mind, rand(@$mind), 1;
last unless @$mind;
}
@@ -175,19 +175,19 @@
My I
My
- It’s possible to create multiple Lexical::Persistence objects, each
+ 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);
+ 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";
@@ -195,7 +195,7 @@
Gets you this output:
- context 1’s foo
+ context 1's foo
the foo in context 2
You can also compile and execute perl code contained in plain strings
@@ -204,11 +204,11 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
-
- $lp−>do( ’my $message = "Hello, world" );
-
- $lp−>do( ’print "$message\n"’ );
+ my $lp = Lexical::Persistence->new();
+
+ $lp->do( 'my $message = "Hello, world" );
+
+ $lp->do( 'print "$message\n"' );
Which gives the output:
@@ -234,15 +234,15 @@
Store a context HASH within the persistence object, keyed on a NAME.
Members of the context HASH are unprefixed versions of the lexicals
- they’ll persist, including the sigil. For example, this _s_e_t___c_o_n_t_e_x_t_(_)
+ they'll persist, including the sigil. For example, this _s_e_t___c_o_n_t_e_x_t_(_)
call declares a "request" context with predefined values for three
variables: $request_foo, @request_foo, and %request_foo:
- $lp−>set_context(
+ $lp->set_context(
request => {
- ’$foo’ => ’value of $request_foo’,
- ’@foo’ => [qw( value of @request_foo )],
- ’%foo’ => { key => ’value of $request_foo{key}’ }
+ '$foo' => 'value of $request_foo',
+ '@foo' => [qw( value of @request_foo )],
+ '%foo' => { key => 'value of $request_foo{key}' }
}
);
@@ -252,7 +252,7 @@
ggeett__ccoonntteexxtt NNAAMMEE
Returns a context hash associated with a particular context name.
- Autovivifies the context if it doesn’t already exist, so be careful
+ Autovivifies the context if it doesn't already exist, so be careful
there.
ccaallll CCOODDEERREEFF,, AARRGGUUMMEENNTT__LLIISSTT
@@ -260,11 +260,11 @@
Call CODEREF with lexical persistence and an optional ARGUMENT_LIST,
consisting of name => value pairs. Unlike with _s_e_t___c_o_n_t_e_x_t_(_), however,
argument names do not need sigils. This may change in the future,
- however, as it’s easy to access an argument with the wrong variable
+ however, as it's easy to access an argument with the wrong variable
type.
The ARGUMENT_LIST is passed to the called CODEREF through @_ in the
- usual way. They’re also available as $arg_name variables for
+ usual way. They're also available as $arg_name variables for
convenience.
See _p_u_s_h___a_r_g___c_o_n_t_e_x_t_(_) for information about how $arg_name works, and
@@ -272,17 +272,17 @@
iinnvvookkee OOBBJJEECCTT,, MMEETTHHOODD,, AARRGGUUMMEENNTT__LLIISSTT
- Invoke OBJECT−>METHOD(ARGUMENT_LIST) while maintaining state for the
- METHOD’s lexical variables. Written in terms of _c_a_l_l_(_), except that it
+ Invoke OBJECT->METHOD(ARGUMENT_LIST) while maintaining state for the
+ METHOD's lexical variables. Written in terms of _c_a_l_l_(_), except that it
takes OBJECT and METHOD rather than CODEREF. See _c_a_l_l_(_) for more
details.
May have issues with methods invoked via AUTOLOAD, as _i_n_v_o_k_e_(_) uses
- _c_a_n_(_) to find the method’s CODEREF for _c_a_l_l_(_).
+ _c_a_n_(_) to find the method's CODEREF for _c_a_l_l_(_).
wwrraapp CCOODDEERREEFF
- Wrap a function or anonymous CODEREF so that it’s transparently called
+ Wrap a function or anonymous CODEREF so that it's transparently called
via _c_a_l_l_(_). Returns a coderef which can be called directly. Named
arguments to the call will automatically become available as $arg_name
lexicals within the called CODEREF.
@@ -294,12 +294,12 @@
Wrap a CODE string in a subroutine definition, and prepend declarations
for all the variables stored in the Lexical::Persistence default
context. This avoids having to declare variables explicitly in the
- code using ’my’. Returns a new code string ready for Perl’s builtâ€in
- _e_v_a_l_(_). From there, a program may $lp−>_c_a_l_l_(_) the code or $lp−>_w_r_a_p_(_)
+ code using 'my'. Returns a new code string ready for Perl's built-in
+ _e_v_a_l_(_). From there, a program may $lp->_c_a_l_l_(_) the code or $lp->_w_r_a_p_(_)
it.
Also see "_c_o_m_p_i_l_e_(_)", which is a convenient wrapper for _p_r_e_p_a_r_e_(_) and
- Perl’s builtâ€in _e_v_a_l_(_).
+ Perl's built-in _e_v_a_l_(_).
Also see "_d_o_(_)", which is a convenient way to _p_r_e_p_a_r_e_(_), _e_v_a_l_(_) and
_c_a_l_l_(_) in one step.
@@ -313,7 +313,7 @@
ddoo CCOODDEE
_d_o_(_) is a convenience method to _c_o_m_p_i_l_e_(_) a CODE string and execute it.
- It returns the result of CODE’s execution, or it throws an exception on
+ It returns the result of CODE's execution, or it throws an exception on
failure.
This example prints the numbers 1 through 10. Note, however, that _d_o_(_)
@@ -321,9 +321,9 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
- $lp−>do(’my $count = 0’);
- $lp−>do(’print ++$count, "\\n"’) for 1..10;
+ my $lp = Lexical::Persistence->new();
+ $lp->do('my $count = 0');
+ $lp->do('print ++$count, "\\n"') for 1..10;
Lexical declarations are preserved across _d_o_(_) invocations, such as
with $count in the surrounding examples. This behavior is part of
@@ -335,12 +335,12 @@
use Lexical::Persistence;
- my $lp = Lexical::Persistence−>new();
- $lp−>do(’my $count = 0’);
- my $coderef = $lp−>compile(’print ++$count, "\\n"’);
- $lp−>call($coderef) for 1..10;
-
- _d_o_(_) inherits some limitations from PadWalker’s _p_e_e_k___s_u_b_(_). For
+ my $lp = Lexical::Persistence->new();
+ $lp->do('my $count = 0');
+ my $coderef = $lp->compile('print ++$count, "\\n"');
+ $lp->call($coderef) for 1..10;
+
+ _d_o_(_) inherits some limitations from PadWalker's _p_e_e_k___s_u_b_(_). For
instance, it cannot alias lexicals within _s_u_b_(_) definitions in the
supplied CODE string. However, Lexical::Persistence can do this with
careful use of _e_v_a_l_(_) and some custom CODE preparation.
@@ -348,8 +348,8 @@
ppaarrssee__vvaarriiaabbllee VVAARRIIAABBLLEE__NNAAMMEE
This method determines whether VARIABLE_NAME should be persistent. If
- it should, _p_a_r_s_e___v_a_r_i_a_b_l_e_(_) will return three values: the variable’s
- sigil (’$’, ’@’ or ’%’), the context name in which the variable
+ it should, _p_a_r_s_e___v_a_r_i_a_b_l_e_(_) will return three values: the variable's
+ sigil ('$', '@' or '%'), the context name in which the variable
persists (see _s_e_t___c_o_n_t_e_x_t_(_)), and the name of the member within that
context where the value is stored. _p_a_r_s_e___v_a_r_i_a_b_l_e_(_) returns nothing if
VARIABLE_NAME should not be persistent.
@@ -359,7 +359,7 @@
have no sigils. This is done to support the unadorned argument names
used by _c_a_l_l_(_).
- This method implements a default behavior. It’s intended to be
+ This method implements a default behavior. It's intended to be
overridden or extended by subclasses.
ggeett__mmeemmbbeerr__rreeff SSIIGGIILL,, CCOONNTTEEXXTT,, MMEEMMBBEERR
@@ -371,10 +371,10 @@
Scalar values are stored internally as scalars to be consistent with
how most people store scalars.
- The persistent value is created if it doesn’t exist. The initial value
+ The persistent value is created if it doesn't exist. The initial value
is undef or empty, depending on its type.
- This method implements a default behavior. It’s intended to be
+ This method implements a default behavior. It's intended to be
overridden or extended by subclasses.
ppuusshh__aarrgg__ccoonntteexxtt AARRGGUUMMEENNTT__LLIISSTT
@@ -384,7 +384,7 @@
variables are supported. This method returns the previous context,
fetched by _g_e_t___c_o_n_t_e_x_t_(_) before the new context is set.
- This method implements a default behavior. It’s intended to be
+ This method implements a default behavior. It's intended to be
overridden or extended by subclasses. For example, to redefine the
parameters as $param_foo.
@@ -394,25 +394,30 @@
Restores OLD_ARG_CONTEXT after a target function has returned. The
OLD_ARG_CONTEXT is the return value from the _p_u_s_h___a_r_g___c_o_n_t_e_x_t_(_) call
- just prior to the target function’s call.
-
- This method implements a default behavior. It’s intended to be
+ just prior to the target function's call.
+
+ This method implements a default behavior. It's intended to be
overridden or extended by subclasses.
-
-BBUUGGSS
- Read them at
- http://rt.cpan.org/Public/Dist/Display.html?Name=lexical−persistence
-
- Report them at
- http://rt.cpan.org/Public/Bug/Report.html?Queue=lexical−persistence
SSEEEE AALLSSOO
POE::Stage, Devel::LexAlias, PadWalker, Catalyst::Controller::BindLex.
+ BBUUGG TTRRAACCKKEERR
+
+ https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=Lexical-Persistence
+
+ RREEPPOOSSIITTOORRYY
+
+ http://thirdlobe.com/svn/lex-per/
+
+ OOTTHHEERR RREESSOOUURRCCEESS
+
+ http://search.cpan.org/dist/Lexical-Persistence/
+
CCOOPPYYRRIIGGHHTT
- Lexical::Persistence in copyright 2006 by Rocco Caputo. All rights
- reserved. Lexical::Persistence is free software. It is released under
- the same terms as Perl itself.
+ Lexical::Persistence in copyright 2006-2009 by Rocco Caputo. All
+ rights reserved. Lexical::Persistence is free software. It is
+ released under the same terms as Perl itself.
AACCKKNNOOWWLLEEDDGGEEMMEENNTTSS
Thanks to Matt Trout and Yuval Kogman for lots of inspiration. They
@@ -431,4 +436,4 @@
-perl v5.8.8 2008â€11â€07 Lexical::Persistence(3)
+perl v5.10.0 2009-07-27 Lexical::Persistence(3)
Modified: branches/upstream/liblexical-persistence-perl/current/lib/Lexical/Persistence.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblexical-persistence-perl/current/lib/Lexical/Persistence.pm?rev=40971&op=diff
==============================================================================
--- branches/upstream/liblexical-persistence-perl/current/lib/Lexical/Persistence.pm (original)
+++ branches/upstream/liblexical-persistence-perl/current/lib/Lexical/Persistence.pm Wed Jul 29 03:36:06 2009
@@ -1,4 +1,4 @@
-# $Id: Persistence.pm 18 2008-11-07 18:11:57Z rcaputo $
+# $Id: Persistence.pm 22 2009-07-27 16:08:19Z rcaputo $
=head1 NAME
@@ -222,7 +222,7 @@
use warnings;
use strict;
-our $VERSION = '0.98';
+our $VERSION = '1.01';
use Devel::LexAlias qw(lexalias);
use PadWalker qw(peek_sub);
@@ -599,24 +599,28 @@
$self->set_context( arg => $old_context );
}
-=head1 BUGS
-
-Read them at
-http://rt.cpan.org/Public/Dist/Display.html?Name=lexical-persistence
-
-Report them at
-http://rt.cpan.org/Public/Bug/Report.html?Queue=lexical-persistence
-
=head1 SEE ALSO
L<POE::Stage>, L<Devel::LexAlias>, L<PadWalker>,
L<Catalyst::Controller::BindLex>.
+=head2 BUG TRACKER
+
+https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=Lexical-Persistence
+
+=head2 REPOSITORY
+
+http://thirdlobe.com/svn/lex-per/
+
+=head2 OTHER RESOURCES
+
+http://search.cpan.org/dist/Lexical-Persistence/
+
=head1 COPYRIGHT
-Lexical::Persistence in copyright 2006 by Rocco Caputo. All rights
-reserved. Lexical::Persistence is free software. It is released
-under the same terms as Perl itself.
+Lexical::Persistence in copyright 2006-2009 by Rocco Caputo. All
+rights reserved. Lexical::Persistence is free software. It is
+released under the same terms as Perl itself.
=head1 ACKNOWLEDGEMENTS
More information about the Pkg-perl-cvs-commits
mailing list