← Back to branch summary

~ubuntu-branches/ubuntu/maverick/libclass-accessor-grouped-perl/maverick

« back to all changes in this revision

Viewing changes to t/lib/AccessorGroupsRO.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2007-07-14 21:51:56 UTC
  • Revision ID: james.westby@ubuntu.com-20070714215156-l0iazyikbi21rpu8
Tags: upstream-0.07000
Import upstream version 0.07000

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/lib/AccessorGroupsRO.pm
 
1
package AccessorGroupsRO;
 
2
use strict;
 
3
use warnings;
 
4
use base 'Class::Accessor::Grouped';
 
5
 
 
6
__PACKAGE__->mk_group_ro_accessors('single', 'singlefield');
 
7
__PACKAGE__->mk_group_ro_accessors('multiple', qw/multiple1 multiple2/);
 
8
__PACKAGE__->mk_group_ro_accessors('listref', [qw/lr1name lr1field/], [qw/lr2name lr2field/]);
 
9
 
 
10
sub new {
 
11
    return bless {}, shift;
 
12
};
 
13
 
 
14
foreach (qw/single multiple listref/) {
 
15
    no strict 'refs';
 
16
 
 
17
    *{"get_$_"} = \&Class::Accessor::Grouped::get_simple;
 
18
};
 
19
 
 
20
1;