← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/Class/Accessor/Grouped.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ansgar Burchardt, gregor herrmann, Ansgar Burchardt
  • Date: 2008-11-22 22:11:47 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20081122221147-svlt1hfw4sksn7qy
Tags: 0.08002-1
[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
  (source stanza).

[ Ansgar Burchardt ]
* New upstream release.
* Convert debian/copyright to proposed machine-readable format.
* Refresh debian/rules for debhelper 7.
* Add myself to Uploaders.
* debian/control: Bump Standards-Version to 3.8.0 (no changes)

[ gregor herrmann ]
* debian/control: remove libmodule-install-perl from Build-Depends-Indep and
  wrap line.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Class/Accessor/Grouped.pm
6
6
use Scalar::Util ();
7
7
use MRO::Compat;
8
8
 
9
 
our $VERSION = '0.08001';
 
9
our $VERSION = '0.08002';
10
10
 
11
11
=head1 NAME
12
12
 
243
243
=cut
244
244
 
245
245
sub get_simple {
246
 
    my ($self, $get) = @_;
247
 
  return $self->{$get};
248
246
  return $_[0]->{$_[1]};
249
247
}
250
248
 
363
361
Gets the value of the specified component class.
364
362
 
365
363
    __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
366
 
    
 
364
 
367
365
    $self->result_class->method();
368
 
    
 
366
 
369
367
    ## same as
370
368
    $self->get_component_class('result_class')->method();
371
369
 
390
388
 
391
389
    __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
392
390
    __PACKAGE__->result_class('MyClass');
393
 
    
 
391
 
394
392
    $self->result_class->method();
395
393
 
396
394
=cut