Changeset 4799 for lang/perl/Class-Accessor-Lvalue-Trigger

Timestamp:

01/17/08 18:18:00 (5 years ago)

Author:

yappo

Message:

lang/perl/Class-Accessor-Lvalue-Trigger: tidy

Files:

• lang/perl/Class-Accessor-Lvalue-Trigger/trunk/lib/Class/Accessor/Lvalue/Trigger.pm (modified) (1 diff)

lang/perl/Class-Accessor-Lvalue-Trigger/trunk/lib/Class/Accessor/Lvalue/Trigger.pm

@@ -59 +59 @@
             $self->$method($name, 'ro', @_);
         }
-        return $self->{$name};
+        $self->{$name};
     };
 }