[Bast-commits] r5159 - in trunk/Class-Accessor-Grouped: . lib/Class/Accessor t

[claco at dev.catalyst.perl.org]

Author: claco
Date: 2008-11-18 02:10:02 +0000 (Tue, 18 Nov 2008)
New Revision: 5159

Modified:
   trunk/Class-Accessor-Grouped/Changes
   trunk/Class-Accessor-Grouped/MANIFEST.SKIP
   trunk/Class-Accessor-Grouped/README
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
   trunk/Class-Accessor-Grouped/t/manifest.t
Log:
Removed unnecessary code in get_simple: RT#40992, BUCHMULLER Norbert

Modified: trunk/Class-Accessor-Grouped/Changes
===================================================================
--- trunk/Class-Accessor-Grouped/Changes	2008-11-17 11:04:54 UTC (rev 5158)
+++ trunk/Class-Accessor-Grouped/Changes	2008-11-18 02:10:02 UTC (rev 5159)
@@ -1,5 +1,8 @@
 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
 

Modified: trunk/Class-Accessor-Grouped/MANIFEST.SKIP
===================================================================
--- trunk/Class-Accessor-Grouped/MANIFEST.SKIP	2008-11-17 11:04:54 UTC (rev 5158)
+++ trunk/Class-Accessor-Grouped/MANIFEST.SKIP	2008-11-18 02:10:02 UTC (rev 5159)
@@ -9,7 +9,9 @@
 \bconfig$
 \bbuild$
 \.DS_Store$
+\.git
 
+
 # Avoid Makemaker generated and utility files.
 \bMakefile$
 \bblib

Modified: trunk/Class-Accessor-Grouped/README
===================================================================
--- trunk/Class-Accessor-Grouped/README	2008-11-17 11:04:54 UTC (rev 5158)
+++ trunk/Class-Accessor-Grouped/README	2008-11-18 02:10:02 UTC (rev 5159)
@@ -105,9 +105,9 @@
     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();
 
@@ -121,7 +121,7 @@
 
         __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
         __PACKAGE__->result_class('MyClass');
-    
+
         $self->result_class->method();
 
   get_super_paths

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2008-11-17 11:04:54 UTC (rev 5158)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2008-11-18 02:10:02 UTC (rev 5159)
@@ -6,7 +6,7 @@
 use Scalar::Util ();
 use MRO::Compat;
 
-our $VERSION = '0.08001';
+our $VERSION = '0.08002';
 
 =head1 NAME
 
@@ -243,8 +243,6 @@
 =cut
 
 sub get_simple {
-    my ($self, $get) = @_;
-  return $self->{$get};
   return $_[0]->{$_[1]};
 }
 

Modified: trunk/Class-Accessor-Grouped/t/manifest.t
===================================================================
--- trunk/Class-Accessor-Grouped/t/manifest.t	2008-11-17 11:04:54 UTC (rev 5158)
+++ trunk/Class-Accessor-Grouped/t/manifest.t	2008-11-18 02:10:02 UTC (rev 5159)
@@ -17,6 +17,6 @@
 
 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'
 });