[Jifty-commit] r5409 - in Net-Jifty: .

[Jifty commits]

Author: sartak
Date: Wed May  7 22:07:27 2008
New Revision: 5409

Modified:
   Net-Jifty/   (props changed)
   Net-Jifty/lib/Net/Jifty.pm

Log:
 r55395 at onn:  sartak | 2008-05-07 22:07:22 -0400
 has_writer ignores accessor, so check has_write_method instead (until has_write_method hits CPAN)


Modified: Net-Jifty/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/lib/Net/Jifty.pm	Wed May  7 22:07:27 2008
@@ -974,13 +974,13 @@
     );
 
     for my $attribute (@attributes) {
-        next unless $attribute->has_writer;
-
         my $name   = $attribute->name;
         my $reader = $attribute->get_read_method;
         my $writer = $attribute->get_write_method;
 
-        $meta->add_after_method($writer => sub {
+        next unless $reader && $writer;
+
+        $meta->add_after_method_modifier($writer => sub {
             my $self = shift;
             return if @_ == 0; # read
             $self->update($name, $self->$reader);