Select Code to Download

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

sub _some_function {
  my ( $self, $data ) = @_;
  return ParentClass::_some_function($data);
}

#!/usr/bin/perl -w
use strict;
...
my $o2 = Bar->new;
$o2->foobared;
print $o2->{foo};

3
Bar=HASH(0xa065cc8)