Newer Perl does not allow defined with an array.

Index: lib/Test/Unit/TestCase.pm
--- lib/Test/Unit/TestCase.pm.orig
+++ lib/Test/Unit/TestCase.pm
@@ -103,7 +103,7 @@ sub list_tests {
     my $class = ref($_[0]) || $_[0];
     my @tests = ();
     no strict 'refs';
-    if (defined(@{"$class\::TESTS"})) {
+    if (@{"$class\::TESTS"}) {
         push @tests, @{"$class\::TESTS"};
     }
     else {
