CHI-Driver-HandlerSocket
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
chdir $cwd;
# import to main::
no strict 'refs';
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
inc/Module/AutoInstall.pm view on Meta::CPAN
sub _has_cpanplus {
return (
$HasCPANPLUS = (
$INC{'CPANPLUS/Config.pm'}
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
my $cpan = File::Spec->canonpath( $CPAN::Config->{cpan_home} );
return ( index( $cwd, $cpan ) > -1 );
}
lib/CHI/Driver/HandlerSocket.pm view on Meta::CPAN
};
# HandlerSocket uses the stack to buffer writes; remember how large the stack is
$self->mysql_thread_stack(do {
my $sth = $dbh->prepare( qq{ SHOW global variables WHERE Variable_name = 'thread_stack' } ) or die $dbh->errstr;
$sth->execute or die $sth->errstr;
my @row = $sth->fetchrow_array || do {
# every time you use a magic number in code, a devil gets his horns; seriously though, this is this
# particular MySQL releases default thread stack size
warn "couldn't figure out the thread_stack size; oh well, guessing";
(131072);
};
$sth->finish;
# 5824 is the amount of data my MySQL version/install said had already been used of the stack before the
# unaccomodatable request came in; 2 is a fudge factor
# if this is less than 0 for some reason, then all writes will go to DBI, which is probably necessary in that case
$row[0] - 5824 * 2;
});
# warn "host: @{[ $self->host ]} port: @{[ $self->read_port ]} database_name: $database_name table: $table read_index: @{[ $self->read_index ]} write_index: @{[ $self->write_index ]} thread_stack: @{[ $self->mysql_thread_stack ]}";
( run in 0.338 second using v1.01-cache-2.11-cpan-dcdd9aafbe2 )