if (@_) { 
    \$self->{$_} = shift;
    }
[download]

Arrays get interpolated too, so I think the code above – and likewise in OPed code – should be (note  \@_ vice  @_):

if (\@_) { 
    \$self->{$_} = shift;
    }
[download]