From: Arthur Axel 'fREW' Schmidt Date: Tue, 3 May 2011 00:05:33 +0000 (-0500) Subject: Add examples for methods that get used most often X-Git-Tag: v0.10003~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18922520eb03bc7fb5e1cdfd7304748365b7210e;p=p5sagit%2FClass-Accessor-Grouped.git Add examples for methods that get used most often --- diff --git a/Changes b/Changes index 2155bae..66288fe 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,7 @@ Revision history for Class::Accessor::Grouped. - Add SYNOPSIS + - Add examples for methods that get used most often 0.10002 Sun Dec 19 05:23:44 2010 - Fix grave bug of XS-enabled simple accessors clobbering an diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm index 3d2d49d..77c5575 100644 --- a/lib/Class/Accessor/Grouped.pm +++ b/lib/Class/Accessor/Grouped.pm @@ -97,6 +97,8 @@ getters and setters. =head2 mk_group_accessors + __PACKAGE__->mk_group_accessors(simple => 'hair_length'); + =over 4 =item Arguments: $group, @fieldspec @@ -129,6 +131,8 @@ sub mk_group_accessors { =head2 mk_group_ro_accessors + __PACKAGE__->mk_group_ro_accessors(simple => 'birthdate'); + =over 4 =item Arguments: $group, @fieldspec @@ -151,6 +155,8 @@ sub mk_group_ro_accessors { =head2 mk_group_wo_accessors + __PACKAGE__->mk_group_wo_accessors(simple => 'lie'); + =over 4 =item Arguments: $group, @fieldspec @@ -173,6 +179,8 @@ sub mk_group_wo_accessors { =head2 make_group_accessor + __PACKAGE__->make_group_accessor(simple => 'hair_length', 'hair_length'); + =over 4 =item Arguments: $group, $field, $method @@ -191,6 +199,8 @@ sub make_group_accessor { $gen_accessor->('rw', @_) } =head2 make_group_ro_accessor + __PACKAGE__->make_group_ro_accessor(simple => 'birthdate', 'birthdate'); + =over 4 =item Arguments: $group, $field, $method @@ -209,6 +219,8 @@ sub make_group_ro_accessor { $gen_accessor->('ro', @_) } =head2 make_group_wo_accessor + __PACKAGE__->make_group_wo_accessor(simple => 'lie', 'lie'); + =over 4 =item Arguments: $group, $field, $method