use warnings;
use Scalar::Util qw/refaddr/;
-our $VERSION = '1.006';
+our $VERSION = '1.009';
BEGIN { __PACKAGE__->mk_accessors(qw/user store/) }
return $string;
}
else {
- my ($string) = $self->$userfield;
- return $string;
+ my $val = $self->$userfield;
+ return ref($val) eq 'ARRAY' ? $val->[0] : $val;
}
}