#!/usr/bin/perl use strict; use warnings; eval "use Config::Pit"; unless ($@) { my $config = pit_get('google.com', require => { username => 'your username', password => 'your password', } ); $::test_user = $config->{username}, $::test_password = $config->{password}, } $::test_db = "pnaniCZ8IX74Rlxkn0tWCCQ"; $::test_dsn = "dbi:GoogleSpreadsheets:$::test_db"; $::table = "test"; 1;