r39868 - in /branches/upstream/libclass-accessor-classy-perl/current: Changes META.yml lib/Class/Accessor/Classy.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Jul 14 03:55:14 2009
New Revision: 39868

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39868
Log:
[svn-upgrade] Integrating new upstream version, libclass-accessor-classy-perl (0.9.1)

Modified:
    branches/upstream/libclass-accessor-classy-perl/current/Changes
    branches/upstream/libclass-accessor-classy-perl/current/META.yml
    branches/upstream/libclass-accessor-classy-perl/current/lib/Class/Accessor/Classy.pm

Modified: branches/upstream/libclass-accessor-classy-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-accessor-classy-perl/current/Changes?rev=39868&op=diff
==============================================================================
--- branches/upstream/libclass-accessor-classy-perl/current/Changes (original)
+++ branches/upstream/libclass-accessor-classy-perl/current/Changes Tue Jul 14 03:55:14 2009
@@ -1,4 +1,10 @@
 Revision history for Class-Accessor-Classy
+
+v0.9.1 2009-07-13
+
+  * better lw() documentation
+
+  * 'About' documentation
 
 v0.9.0 2008-02-18
 

Modified: branches/upstream/libclass-accessor-classy-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-accessor-classy-perl/current/META.yml?rev=39868&op=diff
==============================================================================
--- branches/upstream/libclass-accessor-classy-perl/current/META.yml (original)
+++ branches/upstream/libclass-accessor-classy-perl/current/META.yml Tue Jul 14 03:55:14 2009
@@ -1,6 +1,6 @@
 ---
 name: Class-Accessor-Classy
-version: v0.9.0
+version: v0.9.1
 author:
   - 'Eric Wilhelm @ <ewilhelm at cpan dot org>'
 abstract: accessors with minimal inheritance
@@ -11,11 +11,13 @@
   Module::Build: 0.28
   Test::More: 0
   version: 0
+configure_requires:
+  Module::Build: 0.3401
 provides:
   Class::Accessor::Classy:
     file: lib/Class/Accessor/Classy.pm
-    version: v0.9.0
-generated_by: Module::Build version 0.280801
+    version: v0.9.1
+generated_by: Module::Build version 0.3401
 meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4

Modified: branches/upstream/libclass-accessor-classy-perl/current/lib/Class/Accessor/Classy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-accessor-classy-perl/current/lib/Class/Accessor/Classy.pm?rev=39868&op=diff
==============================================================================
--- branches/upstream/libclass-accessor-classy-perl/current/lib/Class/Accessor/Classy.pm (original)
+++ branches/upstream/libclass-accessor-classy-perl/current/lib/Class/Accessor/Classy.pm Tue Jul 14 03:55:14 2009
@@ -1,5 +1,5 @@
 package Class::Accessor::Classy;
-$VERSION = v0.9.0;
+$VERSION = v0.9.1;
 
 use warnings;
 use strict;
@@ -43,6 +43,18 @@
   warn "foo ", $obj->foo;
   YourPackage->$set_socks("tube");
 
+=head1 About
+
+This module provides an extremely small-footprint accessor/mutator
+declaration scheme for fast and convenient object attribute setup.  It
+is intended as a simple and speedy mechanism for preventing hash-key
+typos rather than a full-blown object system with type checking and so
+on.
+
+The accessor methods appear as a hidden parent class of your package and
+generally try to stay out of the way.  The accessors and mutators
+generated are of the form C<foo()> and C<set_foo()>, respectively.
+
 =head1 Frontend
 
 Unlike other class-modifying code, this is not designed to be inherited
@@ -105,7 +117,10 @@
 
 Read-write list properties.  The mutator takes a list.
 
-  lw qw(foo bar baz);
+  lw 'foo';
+
+This defaults to create foo()|get_foo(), set_foo(), and add_foo()
+methods.  Other features are possible here, but currently experimental.
 
 =head2 ls
 
@@ -386,7 +401,7 @@
     lw => sub { # no list here
       my ($item, @args) = @_;
       my @f = @args;
-      @f and croak("not yet");
+      #@f and croak("not yet");
       $package->make_array_method(
         class => $CP->(caller),
         item  => $item, 
@@ -875,10 +890,10 @@
       push(\@{\$self->{$item}}, \@_);}",
     'pop' => "sub {$s\->{$item} or
       Carp::croak(\"'$item' list is empty\");
-      pop(\@{\$self->{$item}});}",
+      pop(\@{$s\->{$item}});}",
     'shift' => "sub {$s\->{$item} or
       Carp::croak(\"'$item' list is empty\");
-      shift(\@{\$self->{$item}});}",
+      shift(\@{$s\->{$item}});}",
     'unshift' => "sub {my \$self = shift;
       \$self->{$item} or Carp::croak(\"'$item' list is empty\");
       unshift(\@{\$self->{$item}}, \@_);}",