[libmoosex-semiaffordanceaccessor-perl] 03/10: don't delete the is option unless it's 'ro' or 'rw'

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.04
in repository libmoosex-semiaffordanceaccessor-perl.

commit 883845e4c74163fd520ed46487e261800c749d06
Author: Jesse Luehrs <doy at tozt.net>
Date:   Wed Jul 8 18:13:34 2009 -0500

    don't delete the is option unless it's 'ro' or 'rw'
---
 lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm b/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm
index 3800bd1..5ae19f5 100644
--- a/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm
+++ b/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm
@@ -18,6 +18,7 @@ before '_process_options' => sub
         if ( $options->{is} eq 'ro' )
         {
             $options->{reader} = $name;
+            delete $options->{is};
         }
         elsif ( $options->{is} eq 'rw' )
         {
@@ -30,9 +31,8 @@ before '_process_options' => sub
             }
 
             $options->{writer} = $prefix . q{_} . $name;
+            delete $options->{is};
         }
-
-        delete $options->{is};
     }
 };
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-semiaffordanceaccessor-perl.git