sub foo { my ($self, $data) = @_; $self->{bar} = $self->method($data); } #### sub foo { my ($self, $data) = @_; $self->{bar} = method($self, $data); }