sub registered
{
my $self = shift;
+ my $val;
+ if (defined $_[0]) {
+ $val = unpad($_[0]);
+ $self->{registered} = $val;
+ }
if (exists $self->{registered}) {
- return $self->{registered} || 0;
+ $val = $self->{registered} // 0;
}
- return ''; # to stop undef warnings
+ return $val // 0 ; # to stop undef warnings
}
1;