r23754 - in /branches/upstream/librose-object-perl/current: Changes MANIFEST META.yml 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:13:36 UTC 2008
Author: eloy
Date: Mon Aug 4 08:13:33 2008
New Revision: 23754
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23754
Log:
[svn-upgrade] Integrating new upstream version, librose-object-perl (0.853)
Added:
branches/upstream/librose-object-perl/current/t/pod.t (with props)
Modified:
branches/upstream/librose-object-perl/current/Changes
branches/upstream/librose-object-perl/current/MANIFEST
branches/upstream/librose-object-perl/current/META.yml
branches/upstream/librose-object-perl/current/lib/Rose/Class/MakeMethods/Generic.pm
branches/upstream/librose-object-perl/current/lib/Rose/Object.pm
branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm
branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm
branches/upstream/librose-object-perl/current/t/basic.t
branches/upstream/librose-object-perl/current/t/makemethods.t
Modified: branches/upstream/librose-object-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/Changes?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/Changes (original)
+++ branches/upstream/librose-object-perl/current/Changes Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/MANIFEST?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/MANIFEST (original)
+++ branches/upstream/librose-object-perl/current/MANIFEST Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/META.yml?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/META.yml (original)
+++ branches/upstream/librose-object-perl/current/META.yml Mon Aug 4 08:13:33 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Rose-Object
-version: 0.85
+version: 0.853
abstract: ~
license: ~
author: ~
Modified: branches/upstream/librose-object-perl/current/lib/Rose/Class/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Class/MakeMethods/Generic.pm?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Class/MakeMethods/Generic.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Class/MakeMethods/Generic.pm Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/lib/Rose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object.pm?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object.pm Mon Aug 4 08:13:33 2008
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '0.85';
+our $VERSION = '0.853';
sub new
{
Modified: branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object/MakeMethods/Generic.pm Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm (original)
+++ branches/upstream/librose-object-perl/current/lib/Rose/Object/MixIn.pm Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/t/basic.t?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/t/basic.t (original)
+++ branches/upstream/librose-object-perl/current/t/basic.t Mon Aug 4 08:13:33 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: branches/upstream/librose-object-perl/current/t/makemethods.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/t/makemethods.t?rev=23754&op=diff
==============================================================================
--- branches/upstream/librose-object-perl/current/t/makemethods.t (original)
+++ branches/upstream/librose-object-perl/current/t/makemethods.t Mon Aug 4 08:13:33 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
Added: branches/upstream/librose-object-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-object-perl/current/t/pod.t?rev=23754&op=file
==============================================================================
--- branches/upstream/librose-object-perl/current/t/pod.t (added)
+++ branches/upstream/librose-object-perl/current/t/pod.t Mon Aug 4 08:13:33 2008
@@ -1,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::More;
+
+eval 'use Test::Pod 1.00';
+
+plan(skip_all => 'Test::Pod 1.00 required for testing POD') if($@);
+
+all_pod_files_ok();
Propchange: branches/upstream/librose-object-perl/current/t/pod.t
------------------------------------------------------------------------------
svn:executable = *
More information about the Pkg-perl-cvs-commits
mailing list