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