@_

#!/usr/bin/perl

use strict;
use warnings;

methode('Param1','Param2');

sub methode{
  print $_,"\n" for(@_);
}

use strict;
use warnings;

package TestModul;

use strict;
use warnings;
use Data::Dumper;

sub method1 { print "$_\n" for @_ }
sub method2 { print "$_\n" for @_ }
sub method3 { my @arr = @_; return bless \@arr, shift; }
sub method4 { print Dumper(\@_) }

1;

use TestModul;

# Jemand, der versucht, ueber ein Objekt eine Methode anzusprechen,
# wuerde ein "die" ausloesen - aus diesem Grund verwende ich hier ein
# eval{}, damit das Skript nicht abbricht.
eval {
   my $obj = method1 TestModul(1);
   $obj->method2(1);
} or warn $!;

# Hier bricht das Skript nicht ab, da method3() den Packetnamen
# an $obj zurueckliefert.
my $obj = method3 TestModul(1);
$obj->method4(1);

package Foo;
use strict;

sub foo { print "foo\n" }

package Bar;
use strict;
use base 'Foo';

package main;

Bar->foo();
Bar::foo();