Revision history for Class::Accessor::Grouped.
+0.08002 Mon Nov 17 20:27:22 2008
+ - Removed unnecessary code in get_simple: RT#40992, BUCHMULLER Norbert
+
0.08001 Wed Jan 09 19:35:34 2008
- Fixed Makefile.PL tests setting that was killing older installs
\bconfig$
\bbuild$
\.DS_Store$
+\.git
+
# Avoid Makemaker generated and utility files.
\bMakefile$
Gets the value of the specified component class.
__PACKAGE__->mk_group_accessors('component_class' => 'result_class');
-
+
$self->result_class->method();
-
+
## same as
$self->get_component_class('result_class')->method();
__PACKAGE__->mk_group_accessors('component_class' => 'result_class');
__PACKAGE__->result_class('MyClass');
-
+
$self->result_class->method();
get_super_paths
use Scalar::Util ();
use MRO::Compat;
-our $VERSION = '0.08001';
+our $VERSION = '0.08002';
=head1 NAME
=cut
sub get_simple {
- my ($self, $get) = @_;
- return $self->{$get};
return $_[0]->{$_[1]};
}
ok_manifest({
exclude => ['/t/var', '/cover_db'],
- filter => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/, qr/\.DS_Store/],
+ filter => [qr/\.(svn|git)/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/, qr/\.DS_Store/],
bool => 'or'
});