use
strict;
sub
api {
die
"you must definie TEST_API_KEY and TEST_API_SECRET env variables"
unless
$ENV
{TEST_API_KEY} &&
$ENV
{TEST_API_SECRET};
return
Pikeo::API->new({
api_key
=>
$ENV
{TEST_API_KEY},
api_secret
=>
$ENV
{TEST_API_SECRET}
});
}
sub
login {
die
"you must define TEST_USERNAME and TEST_PASSWORD env variables"
unless
$ENV
{TEST_USERNAME} &&
$ENV
{TEST_PASSWORD};
my
$api
=
shift
;
$api
->login({
username
=>
$ENV
{TEST_USERNAME},
password
=>
$ENV
{TEST_PASSWORD}});
}
1;