The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;