my $self = shift;
my $x = shift;
my @x = ref($x) ? @$x : ($x);
- my %coderef = @_ ? shift : {};
+ my $coderef = scalar(@_) ? shift : {};
my $error =
$self->ut_numbern('svcnum')
my $columnname = $part_svc_column->columnname;
my $columnvalue = $part_svc_column->columnvalue;
- if ( exists( $coderef{columnname} ) ) {
- &{ $coderef{$columnname} }( $self, $columnvalue);
+ if ( exists( $coderef->{$columnname} ) ) {
+ &{ $coderef->{$columnname} }( $self, $columnvalue);
} else {
$self->setfield( $columnname, $columnvalue );
}