Perl unit test中使用skip

代码段中的使用

SKIP: {

skip "JIRA Server is unavailable",1 if $rets[0] == ERR_SERVER_UNAVAILABLE;
is($rets[0], SUCCESS, "Validate jira ticket existence in checkout");
}

结尾处必须添加，x为代码段中使用skip的数量

done_testing(x);