From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 12 Nov 2012 13:25:32 +0000 (+0100)
Subject: Improve the documentation a *tiny* bit (needs much more work)
X-Git-Tag: v0.10008~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=533d4d9650ce9f5353ca36b1721217a4127c5f87;p=p5sagit%2FClass-Accessor-Grouped.git

Improve the documentation a *tiny* bit (needs much more work)
---

diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index d504c3f..81fe180 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -130,10 +130,18 @@ Class::Accessor::Grouped - Lets you build groups of accessors
  # make accessor that works for objects and classes
  __PACKAGE__->mk_group_accessors(inherited => 'awesome_level');
 
+ # make an accessor which calls a custom pair of getters/setters
+ sub get_column { ... this will be called when you do $obj->name() ... }
+ sub set_column { ... this will be called when you do $obj->name('foo') ... }
+ __PACKAGE__->mk_group_accessors(column => 'name');
+
 =head1 DESCRIPTION
 
 This class lets you build groups of accessors that will call different
-getters and setters.
+getters and setters. The documentation of this module still requires a lot
+of work (B<< volunteers welcome >.> >>), but in the meantime you can refer to
+L<this post|http://lo-f.at/glahn/2009/08/WritingPowerfulAccessorsForPerlClasses.html>
+for more information.
 
 =head1 METHODS