Revision b95c5658
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
SL/Template/Plugin/T8.pm | ||
---|---|---|
6 | 6 |
my $cached_instance; |
7 | 7 |
|
8 | 8 |
sub new { |
9 |
my ($class) = shift;
|
|
9 |
my ($class) = @_;
|
|
10 | 10 |
|
11 | 11 |
return $cached_instance ||= $class->SUPER::new(@_); |
12 | 12 |
} |
bin/mozilla/is.pl | ||
---|---|---|
473 | 473 |
|
474 | 474 |
$main::auth->assert('invoice_edit'); |
475 | 475 |
|
476 |
my ($recursive_call) = shift;
|
|
476 |
my ($recursive_call) = @_;
|
|
477 | 477 |
|
478 | 478 |
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call; |
479 | 479 |
|
bin/mozilla/oe.pl | ||
---|---|---|
516 | 516 |
sub update { |
517 | 517 |
$main::lxdebug->enter_sub(); |
518 | 518 |
|
519 |
my ($recursive_call) = shift;
|
|
519 |
my ($recursive_call) = @_;
|
|
520 | 520 |
|
521 | 521 |
my $form = $main::form; |
522 | 522 |
my %myconfig = %main::myconfig; |
Auch abrufbar als: Unified diff
Konstruktue "my ($foo) = shift" durch eindeutigere Konstrukte ersetzt