- minor cleanup
authorplobbes <plobbes>
Sat, 13 Jan 2007 17:35:54 +0000 (17:35 +0000)
committerplobbes <plobbes>
Sat, 13 Jan 2007 17:35:54 +0000 (17:35 +0000)
t/bop_https.t

index a67f695..caecf40 100644 (file)
@@ -8,14 +8,6 @@ my $package = "Business::OnlinePayment::HTTPS";
 eval "use $package;";
 
 # HTTPS support is optional
-if ($@) {
-    plan( skip_all => "$package: $@\n" );
-}
-else {
-    plan( tests => 1 );
-}
+plan( $@ ? ( skip_all => "$package: $@\n" ) : ( tests => 1 ) );
 
-{
-    can_ok( $package, qw(https_get https_post) );
-    my $obj;
-}
+can_ok( $package, qw(https_get https_post) );