Fix eval() usage:

The eval() would mask the error because it wasn't reported. Instead,
we now check that both the eval succeeded and then that it's the
proper result.

The test for it (in e0b1895) makes
changes to the code for the sake of testing which I would prefer
not to merge.

lib/Test/Ping.pm

@@ -73,9 +73,9 @@ sub create_ping_object_ok {
     my $name = pop @args || q{};
     my $tb   = $CLASS->builder;
 
-    eval { $OBJPATH = Net::Ping->new(@args); };
+    my $success = eval { $OBJPATH = Net::Ping->new(@args); 1; };
 
-    $tb->is_eq( ref $OBJPATH, 'Net::Ping', $name );
+    $tb->ok( $success && ref $OBJPATH eq 'Net::Ping', $name );
 }
 
 sub create_ping_object_not_ok {