Select Code to Download

my $self = {};

...
    bless $self, $class;
    return $self;
}

sub public_method {
    my ($self,$args) = @_;
...
sub _do_private_stuff {
    print $self->{foo};
}

sub public_method {
    my ($self,$args) = @_;
...
    my $self = shift;
    print $self->{foo};
}

//avert your eyes - Java code ahead
class Ball {
...
        this.color = c;
    }
}