diff options
author | Don Armstrong <don@debian.org> | 2021-03-15 18:31:40 +0100 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2021-03-15 18:31:40 +0100 |
commit | 8e449af3c5b949af896674622ee24bf57e286d72 (patch) | |
tree | 3f7bd6e568ca8516aa8f09507ae0a7dcbc45c863 | |
parent | a7419c3889f5f883493516f7b3c3dcd44abf7255 (diff) |
Remove use of Tie::Hash::Method which only provides a deprecation notice; deprecate %Defaultsarchive/debian/1.28-1
Forwarded: not-needed
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2021-03-15
Gbp-Pq: Name remove_tie_hash_method.diff
-rw-r--r-- | lib/Test/PostgreSQL.pm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lib/Test/PostgreSQL.pm b/lib/Test/PostgreSQL.pm index 4195938..8ca619e 100644 --- a/lib/Test/PostgreSQL.pm +++ b/lib/Test/PostgreSQL.pm @@ -16,23 +16,6 @@ use User::pwent; our $VERSION = '1.28'; our $errstr; -# Deprecate use of %Defaults as we want to remove this package global -use Tie::Hash::Method; -tie our %Defaults, 'Tie::Hash::Method', FETCH => sub { - my $msg = "\nWARNING: using \$Test::PostgreSQL::Defaults is DEPRECATED."; - if ( $_[1] =~ /^(initdb|postmaster)_args$/ ) { - $msg .= " Use Test::PostgreSQL->new( extra_$_[1] => ... ) instead."; - } - warn $msg; - return $_[0]->base_hash->{ $_[1] }; - }; - -%Defaults = ( - auto_start => 2, - initdb_args => '-U postgres -A trust', - postmaster_args => '-h 127.0.0.1 -F', -); - has dbname => ( is => 'ro', isa => Str, |