}
#empty default
-sub _fieldhandlers { (); }
+sub _fieldhandlers { {}; }
sub virtual_fields {
my $self = shift;
my $x = shift;
my @x = ref($x) ? @$x : ($x);
- my $coderef = scalar(@_) ? shift : {};
+ my $coderef = scalar(@_) ? shift : $self->_fieldhandlers;
my $error =
$self->ut_numbern('svcnum')