1 2 3 4 5 6 7
no warnings "redefine"; # entweder *CGI::param = sub { ... }; # oder sub CGI::param { ... }
1 2 3 4 5
package Modifikationen; no warnings "redefine"; sub main::funktion1 { ... }
use Modifikationen;
1 2 3 4 5 6 7 8 9 10 11 12 13
use strict; use warnings; sub foo; # damit kann foo() ohne Klammern *foo = \&bar; foo "Dollar"; # Alles in bar und in Dollar!!! sub bar{ my $currency = shift; print "Alles in bar und in $currency!!!\n"; }