package Schaap; sub new { my $package = shift; my $obj = { }; bless $obj, $package; return $obj; } sub blaat { my ($self, $blaat) = @_; $self->{geblaat}++; print "Dit schaap blaat nu al voor de $self->{geblaat}e keer.\n"; print "De parameter was: $blaat\n" } package main; my $dolly = new Schaap; # $dolly weet nu dat het bij ... # ... package Schaap hoort. $dolly->method wordt dus Schaap::method $dolly->blaat('Hoi'); # Schaap::blaat($dolly, 'Hoi') $dolly->blaat('Hallo'); # Schaap::blaat($dolly, 'Hallo') blaat $dolly('Ook dit werkt'); # Schaap::blaat($dolly, # 'Ook dit werkt');