r23756 - in /trunk/librose-object-perl: Changes MANIFEST META.yml debian/changelog lib/Rose/Class/MakeMethods/Generic.pm lib/Rose/Object.pm lib/Rose/Object/MakeMethods/Generic.pm lib/Rose/Object/MixIn.pm t/basic.t t/makemethods.t t/pod.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Mon Aug 4 08:16:46 UTC 2008
Author: eloy
Date: Mon Aug 4 08:16:44 2008
New Revision: 23756
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23756
Log:
new upstream release
Added:
trunk/librose-object-perl/t/pod.t
- copied unchanged from r23755, branches/upstream/librose-object-perl/current/t/pod.t
Modified:
trunk/librose-object-perl/Changes
trunk/librose-object-perl/MANIFEST
trunk/librose-object-perl/META.yml
trunk/librose-object-perl/debian/changelog
trunk/librose-object-perl/lib/Rose/Class/MakeMethods/Generic.pm
trunk/librose-object-perl/lib/Rose/Object.pm
trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm
trunk/librose-object-perl/lib/Rose/Object/MixIn.pm
trunk/librose-object-perl/t/basic.t
trunk/librose-object-perl/t/makemethods.t
Modified: trunk/librose-object-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/Changes?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/Changes (original)
+++ trunk/librose-object-perl/Changes Mon Aug 4 08:16:44 2008
@@ -1,3 +1,16 @@
+0.853 (07.30.2008) - John Siracusa <siracusa at gmail.com>
+
+ * Fixed a bug in the hash get_set_init method interface. (Reported
+ by Bill Moseley)
+
+0.852 (06.25.2008) - John Siracusa <siracusa at gmail.com>
+
+ * Documented Rose::Object::MixIn->import()'s -target_class parameter.
+
+0.851 (06.06.2008) - John Siracusa <siracusa at gmail.com>
+
+ * Corrected mistakes in the Rose::Class::MakeMethods::Generic POD.
+
0.85 (05.28.2008) - John Siracusa <siracusa at gmail.com>
* Added "inherited_hash" and "inheritable_boolean" class method types.
Modified: trunk/librose-object-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/MANIFEST?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/MANIFEST (original)
+++ trunk/librose-object-perl/MANIFEST Mon Aug 4 08:16:44 2008
@@ -13,5 +13,6 @@
t/lib/Person1.pm
t/lib/Person2.pm
t/makemethods.t
+t/pod.t
t/redefine.t
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/librose-object-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/META.yml?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/META.yml (original)
+++ trunk/librose-object-perl/META.yml Mon Aug 4 08:16:44 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Rose-Object
-version: 0.85
+version: 0.853
abstract: ~
license: ~
author: ~
Modified: trunk/librose-object-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/debian/changelog?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/debian/changelog (original)
+++ trunk/librose-object-perl/debian/changelog Mon Aug 4 08:16:44 2008
@@ -1,3 +1,9 @@
+librose-object-perl (0.853-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org> Mon, 04 Aug 2008 10:10:32 +0200
+
librose-object-perl (0.85-1) unstable; urgency=low
* New upstream release
Modified: trunk/librose-object-perl/lib/Rose/Class/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Class/MakeMethods/Generic.pm?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Class/MakeMethods/Generic.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Class/MakeMethods/Generic.pm Mon Aug 4 08:16:44 2008
@@ -4,7 +4,7 @@
use Carp();
-our $VERSION = '0.81';
+our $VERSION = '0.851';
use Rose::Object::MakeMethods;
our @ISA = qw(Rose::Object::MakeMethods);
@@ -1500,7 +1500,7 @@
=item C<keys_method>
-The name of the class method that returns a reference to a list of keys in scalar context, or a list of keys in list context. Defaults to to C<plural_name>.
+The name of the class method that returns a reference to a list of keys in scalar context, or a list of keys in list context. Defaults to to C<plural_name> with "_keys" added to the end.
=item C<plural_name>
Modified: trunk/librose-object-perl/lib/Rose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object.pm?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object.pm Mon Aug 4 08:16:44 2008
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '0.85';
+our $VERSION = '0.853';
sub new
{
Modified: trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object/MakeMethods/Generic.pm Mon Aug 4 08:16:44 2008
@@ -4,7 +4,7 @@
use Carp();
-our $VERSION = '0.85';
+our $VERSION = '0.853';
use Rose::Object::MakeMethods;
our @ISA = qw(Rose::Object::MakeMethods);
@@ -133,6 +133,9 @@
# If called with an index, get that value, or a slice for array refs
if(@_ == 1)
{
+ # Initialize hash if undefined
+ $self->{$key} = $self->$init_method() unless(defined $self->{$key});
+
return ref $_[0] eq 'ARRAY' ? @{$self->{$key}}{@{$_[0]}} :
$self->{$key}{$_[0]};
}
Modified: trunk/librose-object-perl/lib/Rose/Object/MixIn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/lib/Rose/Object/MixIn.pm?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/lib/Rose/Object/MixIn.pm (original)
+++ trunk/librose-object-perl/lib/Rose/Object/MixIn.pm Mon Aug 4 08:16:44 2008
@@ -6,7 +6,7 @@
our $Debug = 0;
-our $VERSION = '0.84';
+our $VERSION = '0.852';
use Rose::Class::MakeMethods::Set
(
@@ -52,7 +52,7 @@
{
$force = 1;
}
- elsif($arg =~ /^-?-target-class$/)
+ elsif($arg =~ /^-?-target[-_]class$/)
{
$target_class = undef; # set on next iteration...lame
next;
@@ -274,7 +274,11 @@
=item * C<-force>
-The special literal argument "-force" will cause the specified methods to be imported even if the calling class L<can|perlfunc/can> already perform one or more of those methods.
+The special literal argument C<-force> will cause the specified methods to be imported even if the calling class L<can|perlfunc/can> already perform one or more of those methods.
+
+=item * C<-target_class CLASS>
+
+The special literal argument C<-target-class> followed by a class name will cause the specified methods to be imported into CLASS rather than into the calling class.
=back
Modified: trunk/librose-object-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/t/basic.t?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/t/basic.t (original)
+++ trunk/librose-object-perl/t/basic.t Mon Aug 4 08:16:44 2008
@@ -2,7 +2,7 @@
use strict;
-use Test::More tests => 21;
+use Test::More tests => 22;
BEGIN
{
@@ -43,6 +43,10 @@
is($p->roar, 'rawr', 'mixin rawr');
is($p->hiss, 'hiss', 'mixin hiss');
+DogLike->import(qw(-target_class Nonesuch yip));
+
+ok(Nonesuch->can('yip'), 'mixin -target_class yip');
+
BEGIN
{
use strict;
Modified: trunk/librose-object-perl/t/makemethods.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-object-perl/t/makemethods.t?rev=23756&op=diff
==============================================================================
--- trunk/librose-object-perl/t/makemethods.t (original)
+++ trunk/librose-object-perl/t/makemethods.t Mon Aug 4 08:16:44 2008
@@ -2,7 +2,7 @@
use strict;
-use Test::More tests => 626;
+use Test::More tests => 627;
BEGIN
{
@@ -154,6 +154,10 @@
ok(ref $ip eq 'HASH' && $ip->{'c'} == 3 && $ip->{'d'} == 4,
'Set hash - hash (hash --get_set_inited)');
+
+my $p2 = Person->new();
+
+is($p2->iparams('b'), 2, 'Init on key request (hash --get_set_inited)');
#
# hash --get_set_inited
More information about the Pkg-perl-cvs-commits
mailing list