r21804 - in /trunk/libspiffy-perl: Changes debian/changelog lib/Spiffy.pm t/field3.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Tue Jun 17 16:03:17 UTC 2008
Author: gregoa
Date: Tue Jun 17 16:03:17 2008
New Revision: 21804
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21804
Log:
New upstream release.
Modified:
trunk/libspiffy-perl/Changes
trunk/libspiffy-perl/debian/changelog
trunk/libspiffy-perl/lib/Spiffy.pm
trunk/libspiffy-perl/t/field3.t
Modified: trunk/libspiffy-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspiffy-perl/Changes?rev=21804&op=diff
==============================================================================
--- trunk/libspiffy-perl/Changes (original)
+++ trunk/libspiffy-perl/Changes Tue Jun 17 16:03:17 2008
@@ -1,3 +1,8 @@
+---
+version: 0.30
+date: Sun Jan 29 12:18:02 PST 2006
+changes:
+- Use faster runtime code in `field`.
---
version: 0.29
date: Thu Jan 19 08:12:06 PST 2006
Modified: trunk/libspiffy-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspiffy-perl/debian/changelog?rev=21804&op=diff
==============================================================================
--- trunk/libspiffy-perl/debian/changelog (original)
+++ trunk/libspiffy-perl/debian/changelog Tue Jun 17 16:03:17 2008
@@ -1,4 +1,4 @@
-libspiffy-perl (0.29-2) UNRELEASED; urgency=low
+libspiffy-perl (0.30-1) UNRELEASED; urgency=low
* Take over for the Debian Perl Group with maintainer's permission
(http://lists.debian.org/debian-perl/2008/06/msg00039.html)
@@ -9,6 +9,8 @@
<rafl at debian.org>); Florian Ragwitz <rafl at debian.org> moved to
Uploaders.
* Add debian/watch.
+
+ * New upstream release.
-- gregor herrmann <gregoa at debian.org> Sun, 15 Jun 2008 17:12:50 +0200
Modified: trunk/libspiffy-perl/lib/Spiffy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspiffy-perl/lib/Spiffy.pm?rev=21804&op=diff
==============================================================================
--- trunk/libspiffy-perl/lib/Spiffy.pm (original)
+++ trunk/libspiffy-perl/lib/Spiffy.pm Tue Jun 17 16:03:17 2008
@@ -4,7 +4,7 @@
use warnings;
use Carp;
require Exporter;
-our $VERSION = '0.29';
+our $VERSION = '0.30';
our @EXPORT = ();
our @EXPORT_BASE = qw(field const stub super);
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
@@ -176,26 +176,26 @@
my %code = (
sub_start =>
- "sub {\n my \$self = shift;\n",
+ "sub {\n",
set_default =>
- " \$self->{%s} = %s\n unless exists \$self->{%s};\n",
+ " \$_[0]->{%s} = %s\n unless exists \$_[0]->{%s};\n",
init =>
- " return \$self->{%s} = do { %s }\n" .
- " unless \@_ or defined \$self->{%s};\n",
+ " return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
+ " unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
- " \$self->{%s} = do { %s };\n" .
- " Scalar::Util::weaken(\$self->{%s}) if ref \$self->{%s};\n" .
- " \$self->{%s};\n" .
- " } unless \@_ or defined \$self->{%s};\n",
+ " \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
+ " Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
+ " \$_[0]->{%s};\n" .
+ " } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
- " return \$self->{%s} unless \@_;\n",
+ " return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
- " \$self->{%s} = shift;\n",
+ " \$_[0]->{%s} = \$_[1];\n",
weaken =>
- " Scalar::Util::weaken(\$self->{%s}) if ref \$self->{%s};\n",
+ " Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
- " return \$self->{%s};\n}\n",
+ " return \$_[0]->{%s};\n}\n",
);
sub field {
Modified: trunk/libspiffy-perl/t/field3.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspiffy-perl/t/field3.t?rev=21804&op=diff
==============================================================================
--- trunk/libspiffy-perl/t/field3.t (original)
+++ trunk/libspiffy-perl/t/field3.t Tue Jun 17 16:03:17 2008
@@ -24,79 +24,72 @@
__DATA__
sub {
- my $self = shift;
- $self->{test1} = []
- unless exists $self->{test1};
- return $self->{test1} unless @_;
- $self->{test1} = shift;
- return $self->{test1};
+ $_[0]->{test1} = []
+ unless exists $_[0]->{test1};
+ return $_[0]->{test1} unless $#_ > 0;
+ $_[0]->{test1} = $_[1];
+ return $_[0]->{test1};
}
...
sub {
- my $self = shift;
- $self->{test2} = {}
- unless exists $self->{test2};
- return $self->{test2} unless @_;
- $self->{test2} = shift;
- return $self->{test2};
+ $_[0]->{test2} = {}
+ unless exists $_[0]->{test2};
+ return $_[0]->{test2} unless $#_ > 0;
+ $_[0]->{test2} = $_[1];
+ return $_[0]->{test2};
}
...
sub {
- my $self = shift;
- $self->{test3} = [
+ $_[0]->{test3} = [
1,
2,
3,
4
]
- unless exists $self->{test3};
- return $self->{test3} unless @_;
- $self->{test3} = shift;
- return $self->{test3};
+ unless exists $_[0]->{test3};
+ return $_[0]->{test3} unless $#_ > 0;
+ $_[0]->{test3} = $_[1];
+ return $_[0]->{test3};
}
...
sub {
- my $self = shift;
- $self->{test4} = {
+ $_[0]->{test4} = {
'1' => 2,
'3' => 4
}
- unless exists $self->{test4};
- return $self->{test4} unless @_;
- $self->{test4} = shift;
- return $self->{test4};
+ unless exists $_[0]->{test4};
+ return $_[0]->{test4} unless $#_ > 0;
+ $_[0]->{test4} = $_[1];
+ return $_[0]->{test4};
}
...
sub {
- my $self = shift;
- $self->{test5} = '-weaken'
+ $_[0]->{test5} = '-weaken'
- unless exists $self->{test5};
- return $self->{test5} unless @_;
- $self->{test5} = shift;
- return $self->{test5};
+ unless exists $_[0]->{test5};
+ return $_[0]->{test5} unless $#_ > 0;
+ $_[0]->{test5} = $_[1];
+ return $_[0]->{test5};
}
...
sub {
- my $self = shift;
- return $self->{test6} = do { $self->setup(@_) }
- unless @_ or defined $self->{test6};
- return $self->{test6} unless @_;
- $self->{test6} = shift;
- return $self->{test6};
+ return $_[0]->{test6} = do { my $self = $_[0]; $self->setup(@_) }
+ unless $#_ > 0 or defined $_[0]->{test6};
+ return $_[0]->{test6} unless $#_ > 0;
+ $_[0]->{test6} = $_[1];
+ return $_[0]->{test6};
}
...
sub {
- my $self = shift;
return do {
- $self->{test7} = do { $self->setup(@_) };
- Scalar::Util::weaken($self->{test7}) if ref $self->{test7};
- $self->{test7};
- } unless @_ or defined $self->{test7};
- return $self->{test7} unless @_;
- $self->{test7} = shift;
- Scalar::Util::weaken($self->{test7}) if ref $self->{test7};
- return $self->{test7};
+ $_[0]->{test7} = do { my $self = $_[0]; $self->setup(@_) };
+ Scalar::Util::weaken($_[0]->{test7}) if ref $_[0]->{test7};
+ $_[0]->{test7};
+ } unless $#_ > 0 or defined $_[0]->{test7};
+ return $_[0]->{test7} unless $#_ > 0;
+ $_[0]->{test7} = $_[1];
+ Scalar::Util::weaken($_[0]->{test7}) if ref $_[0]->{test7};
+ return $_[0]->{test7};
}
More information about the Pkg-perl-cvs-commits
mailing list