view release on metacpan or  search on metacpan

t/02-client.t  view on Meta::CPAN

plan skip_all => "Currently a developer-only test" unless -d '.svn' || -d ".git";

# Create the instance
my $client;
my $base_url;
for (@{(BASE_URLS)}) {
    $base_url = $_;
    $client = MToken::Client->new(
        url                 => $base_url,
        insecure            => 1, # IO::Socket::SSL::set_defaults(SSL_verify_mode => 0); # Skip verify for test only!
        pwcache             => PWCACHE_FILE,
        max_redirects       => 2,
        connect_timeout     => 3,
        inactivity_timeout  => 5,
        request_timeout     => 10,
    );
    last if $client->check(); # Check
}
plan skip_all => "Can't initialize the client" unless $client->status;
#note $client->trace;