ACIL FM

Pilih semua

Nama	Ukuran	Aksi
Base.pm	4.97 MB	View DL Edit
classic.pm	2.06 MB	View DL Edit
pedantic.pm	1.4 MB	View DL Edit
rush.pm	2.54 MB	View DL Edit

Edit file: /usr/lib64/perl5/vendor_perl/DBD/Gofer/Policy/classic.pm

package DBD::Gofer::Policy::classic;

#   $Id: classic.pm 10087 2007-10-16 12:42:37Z Tim $
#
#   Copyright (c) 2007, Tim Bunce, Ireland
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.

use strict;
use warnings;

our $VERSION = "0.010088";

use base qw(DBD::Gofer::Policy::Base);

__PACKAGE__->create_policy_subs({

# always use connect_cached on server
    connect_method => 'connect_cached',

# use same methods on server as is called on client
    prepare_method => '',

# don't skip the connect check since that also sets dbh attributes
    # although this makes connect more expensive, that's partly offset
    # by skip_ping=>1 below, which makes connect_cached very fast.
    skip_connect_check => 0,

# most code doesn't rely on sth attributes being set after prepare
    skip_prepare_check => 1,

# we're happy to use local method if that's the same as the remote
    skip_default_methods => 1,

# ping is not important for DBD::Gofer and most transports
    skip_ping => 1,

# only update dbh attributes on first contact with server
    dbh_attribute_update => 'first',

# we'd like to set locally_* but can't because drivers differ

# get_info results usually don't change
    cache_get_info => 1,
});

1;

=head1 NAME

DBD::Gofer::Policy::classic - The 'classic' policy for DBD::Gofer

=head1 SYNOPSIS

$dbh = DBI->connect("dbi:Gofer:transport=...;policy=classic", ...)

The C<classic> policy is the default DBD::Gofer policy, so need not be included in the DSN.

=head1 DESCRIPTION

Temporary docs: See the source code for list of policies and their defaults.

In a future version the policies and their defaults will be defined in the pod and parsed out at load-time.

=head1 AUTHOR

Tim Bunce, L<http://www.tim.bunce.name>

=head1 LICENCE AND COPYRIGHT

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.

=cut

Batal

Isi Zip:

Create