my $self = shift;
my %params = @_;
- for my $rq_param qw(changer plan_cb dumpspecs) {
+ for my $rq_param (qw(changer plan_cb dumpspecs)) {
croak "required parameter '$rq_param' mising"
unless exists $params{$rq_param};
}
my $self = shift;
my %params = @_;
- for my $rq_param qw(holding_file plan_cb) {
+ for my $rq_param (qw(holding_file plan_cb)) {
croak "required parameter '$rq_param' mising"
unless exists $params{$rq_param};
}
my $self = shift;
my %params = @_;
- for my $rq_param qw(filelist plan_cb) {
+ for my $rq_param (qw(filelist plan_cb)) {
croak "required parameter '$rq_param' mising"
unless exists $params{$rq_param};
}