config: allow taking an existing reference

This should make creating test cases easier and faster.

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index 3f3707ecc1470efda6a32787b6a053de365b5c36..b5f0fcb1d8ef7a0b3ebdd7537748d7b51dc0e462 100644 (file)
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -15,9 +15,12 @@ use File::Path::Expand qw/expand_filename/;
 sub new {
        my ($class, $file) = @_;
        $file = default_file() unless defined($file);
-       my $self = bless git_config_dump($file), $class;
-       $self->{-by_addr} = {};
-       $self->{-by_name} = {};
+       $file = ref $file ? $file : git_config_dump($file);
+       my $self = bless $file, $class;
+
+       # caches
+       $self->{-by_addr} ||= {};
+       $self->{-by_name} ||= {};
        $self;
 }