package
FBTest;
use
strict;
use
warnings;
my
%CONFIG
= (
test_email
=>
$ENV
{FRESHBOOKS_EMAIL} ||
'olaf@raybec.com'
,
account_name
=>
$ENV
{FRESHBOOKS_ACCOUNT_NAME} ||
'netfreshbooksapi'
,
auth_token
=>
$ENV
{FRESHBOOKS_AUTH_TOKEN}
||
'd2d6c5a50b023d95e1c804416d1ec15d'
,
);
sub
get {
my
$class
=
shift
;
my
$key
=
shift
;
return
$CONFIG
{
$key
};
}
1;