From 873a729130e7a63a490afbd2db84bbfcdbe0efb8 Mon Sep 17 00:00:00 2001 From: plobbes Date: Sat, 13 Jan 2007 17:35:54 +0000 Subject: [PATCH] - minor cleanup --- t/bop_https.t | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/t/bop_https.t b/t/bop_https.t index a67f695..caecf40 100644 --- a/t/bop_https.t +++ b/t/bop_https.t @@ -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) ); -- 2.11.0