The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package local ;
use Google::OAuth ;

sub Google::OAuth::setclient {
	my %client = Google::OAuth::Config->setclient ;
	$client{client_secret} = 'xAtN' ;
	$client{dsn}->connect( 'DBI:mysql:'.$dbname, @login ) ;
	Google::OAuth::Client->setclient( %client ) ;
	}

1