diff -Nru libpackage-new-perl-0.08/Changes libpackage-new-perl-0.09/Changes
--- libpackage-new-perl-0.08/Changes	2019-12-14 05:43:54.000000000 +0000
+++ libpackage-new-perl-0.09/Changes	2020-02-18 03:56:48.000000000 +0000
@@ -1,5 +1,9 @@
 Revision history for Perl module Package::New
 
+0.09 2020-02-17
+  - Updated lib/Package/New.pm - fixed testing coverage issue
+  - Updated t/002_base.t and t/003_dump.t - added testing coverage
+
 0.08 2019-12-14
   - Updated t/001_load.t - Added test cases from cpancover.com
   - Added t/004_dump.t - Added test cases from cpancover.com
diff -Nru libpackage-new-perl-0.08/debian/changelog libpackage-new-perl-0.09/debian/changelog
--- libpackage-new-perl-0.08/debian/changelog	2019-12-27 16:13:52.000000000 +0000
+++ libpackage-new-perl-0.09/debian/changelog	2020-02-22 16:55:46.000000000 +0000
@@ -1,3 +1,11 @@
+libpackage-new-perl (0.09-1) unstable; urgency=medium
+
+  * Team upload.
+  * Import upstream version 0.09
+  * Declare compliance with Debian Policy 4.5.0.
+
+ -- gregor herrmann <gregoa@debian.org>  Sat, 22 Feb 2020 17:55:46 +0100
+
 libpackage-new-perl (0.08-1) unstable; urgency=medium
 
   * Team upload.
diff -Nru libpackage-new-perl-0.08/debian/control libpackage-new-perl-0.09/debian/control
--- libpackage-new-perl-0.08/debian/control	2019-12-27 16:13:52.000000000 +0000
+++ libpackage-new-perl-0.09/debian/control	2020-02-22 16:55:46.000000000 +0000
@@ -7,7 +7,7 @@
 Build-Depends: debhelper-compat (= 12)
 Build-Depends-Indep: libdevel-hide-perl <!nocheck>,
                      perl
-Standards-Version: 4.4.1
+Standards-Version: 4.5.0
 Vcs-Browser: https://salsa.debian.org/perl-team/modules/packages/libpackage-new-perl
 Vcs-Git: https://salsa.debian.org/perl-team/modules/packages/libpackage-new-perl.git
 Homepage: https://metacpan.org/release/Package-New
diff -Nru libpackage-new-perl-0.08/lib/Package/New.pm libpackage-new-perl-0.09/lib/Package/New.pm
--- libpackage-new-perl-0.08/lib/Package/New.pm	2019-12-14 05:41:09.000000000 +0000
+++ libpackage-new-perl-0.09/lib/Package/New.pm	2020-02-18 03:54:20.000000000 +0000
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-our $VERSION='0.08';
+our $VERSION='0.09';
 
 =head1 NAME
 
@@ -63,9 +63,9 @@
 =cut
 
 sub new {
-  my $this=shift;
-  my $class=ref($this) || $this;
-  my $self={};
+  my $this  = shift;
+  my $class = ref($this) ? ref($this) : $this;
+  my $self  = {};
   bless $self, $class;
   $self->initialize(@_);
   return $self;
diff -Nru libpackage-new-perl-0.08/META.json libpackage-new-perl-0.09/META.json
--- libpackage-new-perl-0.08/META.json	2019-12-14 05:47:22.000000000 +0000
+++ libpackage-new-perl-0.09/META.json	2020-02-18 03:58:56.000000000 +0000
@@ -4,7 +4,7 @@
       "Michael R. Davis (mdavis@stopllc.com)"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351",
+   "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.120921",
    "license" : [
       "unknown"
    ],
@@ -38,5 +38,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "0.08"
+   "version" : "0.09"
 }
diff -Nru libpackage-new-perl-0.08/META.yml libpackage-new-perl-0.09/META.yml
--- libpackage-new-perl-0.08/META.yml	2019-12-14 05:47:22.000000000 +0000
+++ libpackage-new-perl-0.09/META.yml	2020-02-18 03:58:56.000000000 +0000
@@ -7,7 +7,7 @@
 configure_requires:
   ExtUtils::MakeMaker: 0
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.120351'
+generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.120921'
 license: unknown
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,4 +20,4 @@
 requires:
   Devel::Hide: 0
   Test::Simple: 0.44
-version: 0.08
+version: 0.09
diff -Nru libpackage-new-perl-0.08/perl-Package-New.spec libpackage-new-perl-0.09/perl-Package-New.spec
--- libpackage-new-perl-0.08/perl-Package-New.spec	2019-12-14 05:41:37.000000000 +0000
+++ libpackage-new-perl-0.09/perl-Package-New.spec	2020-02-18 03:54:32.000000000 +0000
@@ -1,5 +1,5 @@
 Name:           perl-Package-New
-Version:        0.08
+Version:        0.09
 Release:        1%{?dist}
 Summary:        Simple base package from which to inherit
 License:        BSD
diff -Nru libpackage-new-perl-0.08/t/002_base.t libpackage-new-perl-0.09/t/002_base.t
--- libpackage-new-perl-0.08/t/002_base.t	2016-12-13 14:48:07.000000000 +0000
+++ libpackage-new-perl-0.09/t/002_base.t	2020-02-18 03:02:48.000000000 +0000
@@ -2,21 +2,45 @@
 
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 16;
 
 BEGIN { use_ok( 'Package::New' ); }
 
-my $object = My::Package->new(x=>1, y=>"a");
-isa_ok($object, 'Package::New');
-isa_ok($object, 'My::Package');
-
-can_ok($object, qw{new initialize x y});
-is($object->x, "1", "args work");
-is($object->y, "a", "args work");
-
-package #Hide from CPAN
-My::Package;
-use base qw{Package::New};
-sub x {shift->{"x"}};
-sub y {shift->{"y"}};
-1;
+{
+  my $object = My::Package->new(x=>1, y=>"a");
+  isa_ok($object, 'Package::New');
+  isa_ok($object, 'My::Package');
+
+  can_ok($object, qw{new initialize x y});
+  is($object->x, "1", "args work");
+  is($object->y, "a", "args work");
+}
+
+{
+  my $object = My::Package->new(x=>undef)->new(x=>1, y=>"a");
+  isa_ok($object, 'Package::New');
+  isa_ok($object, 'My::Package');
+
+  can_ok($object, qw{new initialize x y});
+  is($object->x, "1", "args work");
+  is($object->y, "a", "args work");
+}
+
+{
+  my $object = new My::Package x=>1, y=>"a";
+  isa_ok($object, 'Package::New');
+  isa_ok($object, 'My::Package');
+
+  can_ok($object, qw{new initialize x y});
+  is($object->x, "1", "args work");
+  is($object->y, "a", "args work");
+}
+
+{
+  package #Hide from CPAN
+  My::Package;
+  use base qw{Package::New};
+  sub x {shift->{"x"}};
+  sub y {shift->{"y"}};
+  1;
+}
diff -Nru libpackage-new-perl-0.08/t/003_dump.t libpackage-new-perl-0.09/t/003_dump.t
--- libpackage-new-perl-0.08/t/003_dump.t	2016-12-13 14:48:07.000000000 +0000
+++ libpackage-new-perl-0.09/t/003_dump.t	2020-02-18 03:58:13.000000000 +0000
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 12;
+use Test::More tests => 17;
 
 BEGIN { use_ok( 'Package::New::Dump' ); }
 
@@ -20,30 +20,57 @@
 is($object->baz, "buz", "object method");
 is(Bar->baz,     "buz", "class method");
 
-if ($ENV{"DEVELOPER"}) {
-  diag("Dump Level 1");
-  diag($object->dump(1));
-  diag("Dump Level default");
-  diag($object->dump);
-  diag("Dump Level 2");
-  diag($object->dump(2));
-  diag("Dump Level 3");
-  diag($object->dump(3));
-  diag("Dump Level 4");
-  diag($object->dump(4));
-  diag("Dump Level 0");
-  diag($object->dump(0));
-}
-
-package #hide
-Foo;
-use base qw{Package::New::Dump};
-sub bar {"baz"};
-1;
-
-package #hide
-Bar;
-use base qw{Foo};
-sub baz {"buz"};
-1;
+{
+  my $dump = $object->dump(1);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>'HASH(XXX)'},'Bar');});
+}
+
+{
+  my $dump = $object->dump();
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
+
+{
+  my $dump = $object->dump(undef);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
+
+{
+  my $dump = $object->dump(2);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
+
+{
+  my $dump = $object->dump(0);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>{'three'=>{'four'=>{}}}}},'Bar');});
+}
 
+{
+  package #hide
+  Foo;
+  use base qw{Package::New::Dump};
+  sub bar {"baz"};
+  1;
+}
+
+{
+  package #hide
+  Bar;
+  use base qw{Foo};
+  sub baz {"buz"};
+  1;
+}