Select Code to Download

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

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