no need for custom res accessor
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 1 Mar 2011 19:22:57 +0000 (19:22 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 1 Mar 2011 19:22:57 +0000 (19:22 +0000)
lib/MojoX/Gearman.pm

index af521b8..21153a9 100644 (file)
@@ -26,6 +26,7 @@ __PACKAGE__->attr(
                  }
        }
 );
+__PACKAGE__->attr(res => undef);
 
 sub DESTROY {
        my $self = shift;
@@ -98,15 +99,6 @@ sub parse_packet {
        return ( $type, split("\0", substr($data,12,$len)) );
 }
 
-sub res {
-       my ( $self, $value ) = @_;
-       if ( defined $value ) {
-               warn "# ++ res = ",dump $value;
-               $self->{_res} ||= $value;
-       }
-       return $self->{_res};
-}
-
 sub req {
        my $self = shift;
        my $type = shift;