remove unneeded temp variables

t/load-bad.t

@@ -15,12 +15,10 @@ my @files = sort grep { /^\w/ } $data_dir->read;
 
 for my $f ( sort @files ) {
   my $path = File::Spec->catfile('t','data-fixable',$f);
-  my $meta = eval { CPAN::Meta->load_file( $path ) };
-  ok( defined $meta, "load_file('$f')" ) or diag $@;
+  ok( eval { CPAN::Meta->load_file( $path ) }, "load_file('$f')" ) or diag $@;
   my $string = _slurp($path);
   my $method =  $path =~ /\.json/ ? "load_json_string" : "load_yaml_string";
-  my $meta2 = eval { CPAN::Meta->$method( $string, { fix_errors => 1 } ) };
-  ok( defined $meta2, "$method(slurp('$f'))" ) or diag $@;
+  ok( eval { CPAN::Meta->$method( $string, { fix_errors => 1 } ) }, "$method(slurp('$f'))" ) or diag $@;
 }
 
 done_testing;

t/merge.t

@@ -106,12 +106,18 @@ my $first_result = $merger->merge(\%base, \%first);
 is_deeply($first_result, \%first_expected, 'First result is as expected');
 
 is_deeply($merger->merge(\%base, { abstract => 'This is a test' }), \%base, 'Can merge in identical abstract');
-my $failure = eval { $merger->merge(\%base, { abstract => 'And now for something else' }) };
-is($failure, undef, 'Trying to merge different author gives an exception');
+is(
+    eval { $merger->merge(\%base, { abstract => 'And now for something else' }) },
+    undef,
+    'Trying to merge different author gives an exception',
+);
 like $@, qr/^Can't merge attribute abstract/, 'Exception looks right';
 
-my $failure2 = eval { $merger->merge(\%base, { provides => { Baz => { file => 'Baz.pm' } } }) };
-is($failure2, undef, 'Trying to merge different author gives an exception');
+is(
+    eval { $merger->merge(\%base, { provides => { Baz => { file => 'Baz.pm' } } }) },
+    undef,
+    'Trying to merge different author gives an exception',
+);
 like $@, qr/^Duplication of element provides\.Baz /, 'Exception looks right';
 
 # issue 67

t/optional_feature-merge.t

@@ -92,8 +92,7 @@ my $fragment3 = {
 	}
 };
 
-my $result = eval { $merger->merge($meta1, $fragment3) };
-is($result, undef, 'Trying to merge optional_features with same feature name and different descriptions gives an exception');
+is( eval { $merger->merge($meta1, $fragment3) }, undef, 'Trying to merge optional_features with same feature name and different descriptions gives an exception');
 like $@, qr/^Cannot merge two optional_features named 'FeatureName' with different 'description' values/, 'Exception looks right';
 
 my $fragment4 = {
@@ -106,8 +105,7 @@ my $fragment4 = {
 	}
 };
 
-$result = eval { $merger->merge($meta1, $fragment4) };
-is($result, undef, 'Trying to merge optional_features with same feature name and differences in other keys gives an exception');
+is( eval { $merger->merge($meta1, $fragment4) }, undef, 'Trying to merge optional_features with same feature name and differences in other keys gives an exception');
 like $@, qr/^Cannot merge two optional_features named 'FeatureName' with different 'x_default' values/, 'Exception looks right';
 
 my $fragment5 = {

t/prereqs-finalize.t

@@ -9,9 +9,7 @@ delete $ENV{$_} for qw/PERL_JSON_BACKEND PERL_YAML_BACKEND/; # use defaults
 sub dies_ok (&@) {
   my ($code, $qr, $comment) = @_;
 
-  my $lived = eval { $code->(); 1 };
-
-  if ($lived) {
+  if (eval { $code->(); 1 }) {
     fail("$comment: did not die");
   } else {
     like($@, $qr, $comment);