view release on metacpan or search on metacpan
</termEntry>
<termEntry id="aid1602">
<descrip type="subjectField">5.2 Interpreting / interpretation</descrip>
<note>Rejected</note>
<langSet xml:lang="en" id="cid2088">
<descrip type="definition">[[interpreter]] who has qualifications or credentials for the specific job at hand and who exhibits interpreting skills, has experience and observes the code of ethics of the profession and is able to carry out an...
<admin type="source">ISO/AWI 188413.6</admin>
<descrip type="definition">Alt.def: </descrip>
<admin type="source"/>
<note/>
<note/>
</termEntry>
<termEntry id="aid1355">
<descrip type="subjectField">5.2 Interpreting / interpretation</descrip>
<note>Rejected</note>
<langSet xml:lang="en" id="cid1806">
<descrip type="definition">person who may exhibit the ability to speak both the [[source]] and [[target languages]] and who may have some experience as an [[interpreter]] or may have been directed to interpret by an authority in the past, b...
<admin type="source">ISO/DIS 13611.2rev2.7</admin>
<descrip type="definition">Alt.def: person who neither holds a degree in interpreting, nor has any other qualifications or credentials, and who can have any experience in doing the task at hand or not, and can observe any code of ethics or ...
<admin type="source">ISO/AWI 188413.7</admin>
<note/>
<note/>
<note/>
<transacGrp>
view all matches for this distribution
view release on metacpan or search on metacpan
t/profile.t
t/redis-url.t
t/redis-version.t
t/register-invite-only.t
t/register-normal.t
t/register-server-credentials.t
t/release-production.t
t/secure-cookies.t
t/server-notice.t
t/sidebar-connection.t
t/start-with-embedded-server.t
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Coro/Amazon/SimpleDB.pm view on Meta::CPAN
=head1 ATTRIBUTES
=head2 aws_access_key
=head2 aws_secret_access_key
These are the AWS credentials providing access to your account. These
should be available on security credentials page of the AWS portal.
=head2 domain_name
A default domain to use for requests. This may be over-ridden in
requests passed as hash refs or objects.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Couchbase/Client.pm view on Meta::CPAN
likely to know of alternate entry points, and thus the server list is only
useful for discovering the initial entry point.
=item username, password
Authentication credentials for the connection. Defaults to NULL
=item bucket
The bucket name for the connection. Defaults to C<default>
view all matches for this distribution
view release on metacpan or search on metacpan
eg/sendgrid view on Meta::CPAN
subject($subject),
plain_body($plain),
html_body($html),
);
# Sendgrid login credentials
my $username = 'yourlogin@sendgrid.net';
my $password = "yourpassword";
my $transport = Email::Sender::Transport::SMTP->new(
host => 'smtp.sendgrid.net',
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crop/Object/Warehouse/Pg.pm view on Meta::CPAN
=begin nd
Constructor: new ($conn)
Establish connection to a specified database.
Parameters:
$conn - credentials for database connection (login, pass, etc.)
Returns:
$self - if OK
undef - if connection to database fails
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crop/Object/Warehouse/Pg.pm view on Meta::CPAN
=begin nd
Constructor: new ($conn)
Establish connection to a specified database.
Parameters:
$conn - credentials for database connection (login, pass, etc.)
Returns:
$self - if OK
undef - if connection to database fails
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
.claude/agents/crypt-age-release-checker.md view on Meta::CPAN
4. **`dzil build`** â runs clean: no missing files, no warnings. Note that `.claude/`
and `CLAUDE.md` **are** shipped in the tarball, deliberately: this distribution
discloses how it was built, so there is no `gather_exclude_match` in `dist.ini` and
their presence is not a finding. What *is* a finding: anything under `.claude/` that
should never be published â a stray `settings.local.json`, credentials, session
state. `.gitignore` keeps those untracked and `Git::GatherDir` ships tracked files
only, so check that the untracked set is still what it should be.
5. **Interop proof â the one specific to this distribution.** A release claims byte
compatibility with `age`. Check whether `t/04-interop.t` actually *ran*: it
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/Credentials.pm view on Meta::CPAN
use YAML::PP;
sub new {
my ($class, %args) = @_;
my $dir = rel2abs($args{dir} // catdir(curdir, 'credentials'));
my $check_file = catfile($dir, 'check.enc');
my $real_key;
lib/Crypt/Credentials.pm view on Meta::CPAN
sub _get {
my ($self, $filename, $key) = @_;
my $raw = read_binary($filename);
my ($iv, $tag, $ciphertext) = unpack $format, $raw;
my $plaintext = gcm_decrypt_verify('AES', $key, $iv, '', $ciphertext, $tag);
croak 'Could not decrypt credentials file' if not defined $plaintext;
return $plaintext;
}
sub get {
my ($self, $name) = @_;
my $filename = catfile($self->{dir}, "$name.yml.enc");
croak "No such credentials '$name'" if not -f $filename;
return $self->_get($filename, $self->{key});
}
sub get_yaml {
my ($self, $name) = @_;
lib/Crypt/Credentials.pm view on Meta::CPAN
version 0.006
=head1 SYNOPSIS
my $credentials = Crypt::Credentials->new(
dir => $dir,
keys => split /:/, $ENV{CREDENTIAL_KEYS},
);
my $password = $credentials->get('password');
=head1 DESCRIPTION
This module implements a credentials store. Essentially it allows you to expand one secret (the key of the store) into any number of secrets.
=head1 METHODS
=head2 new
$self->new(keys => \@keys, dir => $dir)
This creates a new C<Crypt::Credentials> object. It takes two named arguments: C<@keys> (mandatory) are the cryptographic keys used to encrypt the credentials, they must be either 16, 24, or 32 bytes long. If multiple keys are given they're tried unt...
=head2 get
$self->get($name)
This reads the credentials entry for C<$name>, or throws an exception if it can't be opened for any reason.
=head2 get_yaml
$self->get_yaml($name)
lib/Crypt/Credentials.pm view on Meta::CPAN
=head2 put
$self->put($name, $value)
This will write the values to the named credentials entry.
=head2 put_yaml
$self->put_yaml($name, \%values)
lib/Crypt/Credentials.pm view on Meta::CPAN
=head2 has
$self->has($name)
This checks if a credentials entry exists
=head2 remove
$self->remove($name)
This removes a credentials entry. It will silently succeed if no such entry exists.
=head2 list
$self->list
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/README view on Meta::CPAN
Test material for t/02-key.t and t/06-abi.t. Public by construction: these
are throwaway self-signed certificates and their private keys, generated
once on 2026-09-08 and committed so the suite is deterministic. They are
not credentials, they guard nothing, and they must never be regenerated -
a test that regenerates its own vectors proves only that the generator
agrees with itself.
The certificates expire in 2126. Nothing in Crypt::JWS reads a validity
date, so an expired one would not fail the suite, but a long life keeps
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/LE.pm view on Meta::CPAN
$self->{tos_changed} = 1;
$tos_message = "You need to accept TOS at $self->{links}->{'terms-of-service'}";
}
$self->_debug("New key is now registered, reg path: $self->{directory}->{reg}. $tos_message");
} elsif ($status == BAD_REQUEST and $kid and $mac and $self->_pull_error($content)=~/not awaiting/) {
# EAB credentials were already associated with the key.
if ($self->{directory}->{reg}) {
$self->_debug("EAB credentials already associated. Account URL is: $self->{directory}->{reg}.");
} else {
return $self->_status(ERROR, "EAB credentials already associated and no EAB id was provided.");
}
} else {
return $self->_status(ERROR, $content);
}
if ($self->{registration_info} and ref $self->{registration_info} eq 'HASH') {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/OPAQUE.pm view on Meta::CPAN
our $VERSION = 0.012;
our @ISA = qw(Exporter);
our @EXPORT = qw/
create_cleartext_credentials
store
recover
create_registration_request
create_registration_response
finalize_registration_request
derive_random_pwd
create_credential_request
create_credential_response
recover_credentials
/;
our @EXPORT_OK = @EXPORT;
sub recover_credentials {
my (
$cred_request, $cred_response, $pwd, $c_id, $s_id, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func,
$mac_func, $pwd_harden_func, $unpack_func
) = @_;
lib/Crypt/OPAQUE.pm view on Meta::CPAN
### recover s_pub: unpack("H*", $s_pub)
### recover c_priv: $recover_r->{c_priv}->to_hex
### recover export_key: unpack("H*", $recover_r->{export_key})
return $recover_r;
} ## end sub recover_credentials
sub create_credential_response {
my (
$request, $s_pub, $oprf_seed, $credential_identifier, $DSI, $envelope, $masking_key, $Nn, $Nseed, $group_name, $info, $DST,
$hash_name, $expand_message_func, $point_compress_t, $pack_func
lib/Crypt/OPAQUE.pm view on Meta::CPAN
my $blindedElement_hex = Crypt::OpenSSL::EC::EC_POINT::point2hex($ec_params->{group}, $blindedElement, 2, $ec_params->{ctx});
my $request = { data => pack( "H*", $blindedElement_hex ) };
return { request => $request, blind => $blind, ec_params => $ec_params };
}
sub create_cleartext_credentials {
my ( $s_pub, $c_pub, $s_id, $c_id ) = @_;
$s_id //= $s_pub;
$c_id //= $c_pub;
my $cleartext_credentials = join(
"", $s_pub,
map { i2osp( length( $_ ), 2 ) . $_ } ( $s_id, $c_id ) );
return $cleartext_credentials;
}
sub store {
my ( $randomized_pwd, $s_pub, $s_id, $c_id, $Nn, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func, $mac_func ) =
@_;
lib/Crypt/OPAQUE.pm view on Meta::CPAN
my $c_ec_key_r = derive_key_pair( $group_name, $seed, $info, $DST, $hash_name, $expand_message_func );
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: $c_priv->to_hex
my $cleartext_credentials = create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
### cleartext_credentails: unpack("H*", $cleartext_credentials)
my $auth_tag = $mac_func->( $envelope_nonce . $cleartext_credentials, $auth_key );
my $envelope = { auth_tag => $auth_tag, nonce => $envelope_nonce };
return {
envelope => $envelope, c_pub => $c_pub, masking_key => $masking_key,
export_key => $export_key,
c_priv => $c_priv, auth_key => $auth_key,
cleartext_credentails => $cleartext_credentials,
};
} ## end sub store
sub recover {
my (
lib/Crypt/OPAQUE.pm view on Meta::CPAN
my $c_ec_key_r = derive_key_pair( $group_name, $seed, $info, $DST, $hash_name, $expand_message_func );
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: $c_priv->to_hex
my $cleartext_credentials = create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
my $expected_tag = $mac_func->( $envelope->{nonce} . $cleartext_credentials, $auth_key );
if ( $envelope->{auth_tag} ne $expected_tag ) {
croak "not match envelope.auth_tag";
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/OpenSSL/CA/AlphabetSoup.pod view on Meta::CPAN
=over
=item *
the set of the cryptographic credentials (key and CA certificate) that
the CA-as-a-computing-equipment needs to perform,
=item *
the whole security domain (more computers and programs) that it relies
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/Protocol/OPAQUE.pm view on Meta::CPAN
our $VERSION = 0.012;
our @ISA = qw(Exporter);
our @EXPORT = qw/
create_cleartext_credentials
store
recover
create_registration_request
create_registration_response
finalize_registration_request
derive_random_pwd
create_credential_request
create_credential_response
recover_credentials
/;
our @EXPORT_OK = @EXPORT;
sub recover_credentials {
my (
$cred_request, $cred_response, $pwd, $c_id, $s_id, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func,
$mac_func, $pwd_harden_func, $unpack_func
) = @_;
lib/Crypt/Protocol/OPAQUE.pm view on Meta::CPAN
### recover s_pub: unpack("H*", $s_pub)
### recover c_priv: $recover_r->{c_priv}->to_hex
### recover export_key: unpack("H*", $recover_r->{export_key})
return $recover_r;
} ## end sub recover_credentials
sub create_credential_response {
my (
$request, $s_pub, $oprf_seed, $credential_identifier, $DSI, $envelope, $masking_key, $Nn, $Nseed, $group_name, $info, $DST,
$hash_name, $expand_message_func, $point_compress_t, $pack_func
lib/Crypt/Protocol/OPAQUE.pm view on Meta::CPAN
my $blindedElement_hex = sn_point2hex( $group_name, $blindedElement, 2 );
my $request = { data => pack( "H*", $blindedElement_hex ) };
return { request => $request, blind => $blind, ec_params => $ec_params };
}
sub create_cleartext_credentials {
my ( $s_pub, $c_pub, $s_id, $c_id ) = @_;
$s_id //= $s_pub;
$c_id //= $c_pub;
my $cleartext_credentials = join(
"", $s_pub,
map { i2osp( length( $_ ), 2 ) . $_ } ( $s_id, $c_id ) );
return $cleartext_credentials;
}
sub store {
my ( $randomized_pwd, $s_pub, $s_id, $c_id, $Nn, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func, $mac_func ) =
@_;
lib/Crypt/Protocol/OPAQUE.pm view on Meta::CPAN
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: $c_priv->to_hex
### c_pub: unpack("H*", $c_pub)
my $cleartext_credentials = create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
### cleartext_credentails: unpack("H*", $cleartext_credentials)
my $auth_tag = $mac_func->( $envelope_nonce . $cleartext_credentials, $auth_key );
my $envelope = { auth_tag => $auth_tag, nonce => $envelope_nonce };
return {
envelope => $envelope, c_pub => $c_pub, masking_key => $masking_key,
export_key => $export_key,
c_priv => $c_priv, auth_key => $auth_key,
cleartext_credentails => $cleartext_credentials,
};
} ## end sub store
sub recover {
my (
lib/Crypt/Protocol/OPAQUE.pm view on Meta::CPAN
my $c_ec_key_r = derive_key_pair( $group_name, $seed, $info, $DST, $hash_name, $expand_message_func );
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: $c_priv->to_hex
my $cleartext_credentials = create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
my $expected_tag = $mac_func->( $envelope->{nonce} . $cleartext_credentials, $auth_key );
if ( $envelope->{auth_tag} ne $expected_tag ) {
croak "not match envelope.auth_tag";
}
view all matches for this distribution
view release on metacpan or search on metacpan
Use of the C<HTTPS_PROXY> environment variable in this way
is similar to C<LWP::UserAgent->env_proxy()> usage, but calling
that method will likely override or break the C<Crypt::SSLeay>
support, so do not mix the two.
Basic auth credentials to the proxy server can be provided
this way:
# proxy_basic_auth
$ENV{HTTPS_PROXY_USERNAME} = 'username';
$ENV{HTTPS_PROXY_PASSWORD} = 'password';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypt/XkcdPassword/Words/EN.pm view on Meta::CPAN
elegant
elbow
customs
cuban
credibility
credentials
consistent
collapse
cloth
claws
cinderella
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
our $VERSION = 0.012;
our @ISA = qw(Exporter);
our @EXPORT = qw/
create_cleartext_credentials
store
recover
create_registration_request
create_registration_response
finalize_registration_request
derive_random_pwd
create_credential_request
create_credential_response
recover_credentials
/;
our @EXPORT_OK = @EXPORT;
sub recover_credentials {
my (
$cred_request, $cred_response, $pwd,
$c_id, $s_id, $Nseed,
$group_name, $info, $DST,
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
### recover s_pub: unpack("H*", $s_pub)
### recover c_priv: BN_bn2hex($recover_r->{c_priv})
### recover export_key: unpack("H*", $recover_r->{export_key})
return $recover_r;
} ## end sub recover_credentials
sub create_credential_response {
my (
$request, $s_pub, $oprf_seed,
$credential_identifier, $DSI, $envelope,
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
my $blindedElement_hex = sn_point2hex( $group_name, $blindedElement, 2 );
my $request = { data => pack( "H*", $blindedElement_hex ) };
return { request => $request, blind => $blind, ec_params => $ec_params };
}
sub create_cleartext_credentials {
my ( $s_pub, $c_pub, $s_id, $c_id ) = @_;
$s_id //= $s_pub;
$c_id //= $c_pub;
my $cleartext_credentials =
join( "", $s_pub, map { i2osp( length($_), 2 ) . $_ } ( $s_id, $c_id ) );
return $cleartext_credentials;
}
sub store {
my (
$randomized_pwd, $s_pub, $s_id, $c_id,
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: BN_bn2hex($c_priv)
### c_pub: unpack("H*", $c_pub)
my $cleartext_credentials =
create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
### cleartext_credentails: unpack("H*", $cleartext_credentials)
my $auth_tag =
$mac_func->( $envelope_nonce . $cleartext_credentials, $auth_key );
my $envelope = { auth_tag => $auth_tag, nonce => $envelope_nonce };
return {
envelope => $envelope,
c_pub => $c_pub,
masking_key => $masking_key,
export_key => $export_key,
c_priv => $c_priv,
auth_key => $auth_key,
cleartext_credentails => $cleartext_credentials,
};
} ## end sub store
sub recover {
my (
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
$expand_message_func );
my $c_priv = $c_ec_key_r->{priv_bn};
my $c_pub = $c_ec_key_r->{pub_bin};
### c_priv: BN_bn2hex($c_priv)
my $cleartext_credentials =
create_cleartext_credentials( $s_pub, $c_pub, $s_id, $c_id );
my $expected_tag =
$mac_func->( $envelope->{nonce} . $cleartext_credentials, $auth_key );
if ( $envelope->{auth_tag} ne $expected_tag ) {
croak "not match envelope.auth_tag";
}
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
L<https://datatracker.ietf.org/doc/draft-irtf-cfrg-opaque/>
=head1 FUNCTION
=head2 create_cleartext_credentials
my $cleartext_credentials = create_cleartext_credentials($s_pub, $c_pub, $s_id, $c_id);
=head2 store
my $store_r = store($randomized_pwd, $s_pub, $s_id, $c_id, $Nn, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func, $mac_func);
lib/Crypto/Utils/OPAQUE.pm view on Meta::CPAN
=head2 create_credential_response
my $cred_res_r = create_credential_response($request, $s_pub, $oprf_seed, $credential_identifier, $DSI, $envelope, $masking_key, $Nn, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func, $point_compress_t, $pack_func);
=head2 recover_credentials
my $recover_r = recover_credentials($cred_request, $cred_response, $pwd, $c_id, $s_id, $Nseed, $group_name, $info, $DST, $hash_name, $expand_message_func, $mac_func, $pwd_harden_func, $unpack_func);
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Curio/Role/GitLab/API/v4.pm view on Meta::CPAN
);
}
The C<myapp_secret> call is expected to be the place where you use
whatever tool you use to hold your GitLab tokens and likely all
passwords and other credentials (secrets) that your application needs.
Some common tools that people use to manage their secrets are
Kubernetes' secrets objects, AWS's Secret Manager, HashiCorp's Vault,
or just an inescure configuration file; to name a few.
view all matches for this distribution
view release on metacpan or search on metacpan
Parameters are all passed as a hash or hash reference whose keys are described below:
I<Connection Parameters>
To establish a connection to a datastore, the caller must pass credentials. These may be passed either in URL syntax and/or as separate keys. Any information passed separately overrides the appropriate value in the URL. If no connection informatio...
=over
=item DBED
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBD/BigQuery.pm view on Meta::CPAN
$auth = { get_token => sub { 'mock_token' } };
}
my $client = eval {
Google::Cloud::Bigquery::V2->new({
credentials => $auth,
});
};
my $transport = 'rest';
if ($dsn =~ /;transport=([^;]+)/i) {
view all matches for this distribution
view release on metacpan or search on metacpan
t/TestFirebird.pm view on Meta::CPAN
my $class = shift;
my $self = bless {@_}, $class;
$self->read_cached_configs;
$self->check_credentials;
return $self;
}
sub check_credentials {
my $self = shift;
unless ( defined $self->{pass}
or defined $ENV{DBI_PASS}
or defined $ENV{ISC_PASSWORD} )
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBD/MVS_FTPSQL.pm view on Meta::CPAN
my $dbh = DBI->connect("dbi:MVS_FTPSQL:$DSN", $username, $password)
or die $DBI::errstr;
establishes a connection to the DB2 subsystem identified by the DSN string
C<$DSN>, using as login credentials the C<$username> and C<$password> supplied.
Notice that in the OS/390 or z/OS environment you don't connect to a
database, instead you have to connect to the DB2 subsystem which gives
access to all the databases it contains (a mainframe database has very
little to do with its pc counterpart as it is basically a logical grouping
of tables, other objects and so, in many ways, it's more similar to a pc
view all matches for this distribution
view release on metacpan or search on metacpan
mariadb_dr_do_error(dbh, CR_SERVER_GONE_ERROR, "MySQL server has gone away", "HY000");
return 0;
}
mysql_options(imp_dbh->pmysql, FABRIC_OPT_MODE, str);
}
else if (memEQs(key, kl, "mariadb_fabric_opt_group_credentials"))
{
mariadb_dr_do_error(dbh, CR_UNKNOWN_ERROR, "'fabric_opt_group_credentials' is not supported", "HY000");
return 0;
}
#endif
else if (memEQs(key, kl, "mariadb_max_allowed_packet"))
{
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Neo4p/Test.pm view on Meta::CPAN
my $class = shift;
my ($db,$user,$pass) = @_;
REST::Neo4p->set_handle(0);
unless (REST::Neo4p->connected) {
eval {
REST::Neo4p->agent->credentials($db,'',$user,$pass) if defined $user;
REST::Neo4p->connect($db);
};
if (my $e = REST::Neo4p::CommException->caught) {
return
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBD/Oracle.pm view on Meta::CPAN
DBMS_OUTPUT.GET is discarded by the next call to DBMS_OUTPUT.PUT_LINE,
DBMS_OUTPUT.PUT, or DBMS_OUTPUT.NEW_LINE.
=head2 B<reauthenticate ( $username, $password )>
Starts a new session against the current database using the credentials
supplied. Note that this does not work with DRCP.
=head2 B<private_attribute_info>
$hashref = $dbh->private_attribute_info();
view all matches for this distribution
view release on metacpan or search on metacpan
}
#if SQLITE_USER_AUTHENTICATION
/*
** Return TRUE if zTable is the name of the system table that stores the
** list of users and their access credentials.
*/
SQLITE_PRIVATE int sqlite3UserAuthTable(const char *zTable){
return sqlite3_stricmp(zTable, "sqlite_user")==0;
}
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
}
#if SQLITE_USER_AUTHENTICATION
/*
** Return TRUE if zTable is the name of the system table that stores the
** list of users and their access credentials.
*/
SQLITE_PRIVATE int sqlite3UserAuthTable(const char *zTable){
return sqlite3_stricmp(zTable, "sqlite_user")==0;
}
#endif
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBD/Spanner.pm view on Meta::CPAN
$auth = { get_token => sub { 'mock_token' } };
}
my $client = eval {
Google::Cloud::Spanner::V1->new({
credentials => $auth,
});
};
my $transport = 'grpc';
if ($dsn =~ /;transport=([^;]+)/i) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/DBD/WMI.pm view on Meta::CPAN
=over 4
=item * Implement placeholders and proper interpolation of values
=item * Need to implement DSN parameters for remote computers, credentials
=back
=head1 SEE ALSO
view all matches for this distribution
view release on metacpan or search on metacpan
xt/03_turso_live.t view on Meta::CPAN
"Get the correct URL from your Turso dashboard at https://app.turso.io\n";
}
plan tests => 8;
# Test 1: Connection with Turso credentials (using DBI standard password parameter)
my $dsn = "dbi:libsql:$hostname";
my $dbh = DBI->connect($dsn, '', $turso_token, {
RaiseError => 1,
AutoCommit => 1,
});
view all matches for this distribution