view release on metacpan or search on metacpan
lib/DBIx/Schema/UpToDate.pm view on Meta::CPAN
)
or croak $dbh->errstr;
}
sub updates {
my ($self) = @_;
return $self->{updates} ||= [
];
}
sub update_to_version {
my ($self, $version) = @_;
$self->begin_work();
# execute updates to bring database to $version
view release on metacpan or search on metacpan
lib/DBIx/Skinny.pm view on Meta::CPAN
my $code = $class->_attributes->{dbd}->can('bulk_insert') or Carp::croak "dbd don't provide bulk_insert method";
$code->($class, $table, $args);
}
sub update {
my ($class, $table, $args, $where) = @_;
my $schema = $class->schema;
$class->call_schema_trigger('pre_update', $schema, $table, $args);
view release on metacpan or search on metacpan
lib/DBIx/Struct.pm view on Meta::CPAN
my $update;
if (not ref $table) {
# means this is just one simple table
$update = <<UPD;
sub update {
my \$self = \$_[0];
if(\@_ > 1 && CORE::ref(\$_[1]) eq 'HASH') {
my (\$set, \$where, \@bind, \@bind_where);
{
no strict 'vars';
view release on metacpan or search on metacpan
lib/DBIx/TextIndex/DBD.pm view on Meta::CPAN
SELECT COUNT(*) FROM $self->{COLLECTION_TABLE}
END
}
sub update_collection_info {
my $self = shift;
my $field = shift;
return <<END;
UPDATE $self->{COLLECTION_TABLE}
view release on metacpan or search on metacpan
lib/DBIx/VersionedSubs.pm view on Meta::CPAN
these will behave weird if you redefine a subroutine
that was previously closed over.
=cut
sub update_code {
my ($package) = @_;
my $version = $package->code_version || 0;
#warn "Checking against $version";
my $sth = $package->dbh->prepare_cached(sprintf <<'SQL', $package->code_history);
SELECT distinct name,action,new_code,version FROM %s
view release on metacpan or search on metacpan
lib/DBIx/Wrapper.pm view on Meta::CPAN
This is so that the order of the parameters in the C<WHERE> clause
are kept in the same order. This is required to use the correct
multi field indexes in some databases.
=cut
sub update {
my ($self, $table, $keys, $data) = @_;
if (defined($keys)) {
unless ((UNIVERSAL::isa($keys, 'HASH') or UNIVERSAL::isa($keys, 'ARRAY'))) {
return $self->setErr(-1, 'DBIx::Wrapper: No keys passed to update()');
view release on metacpan or search on metacpan
lib/DBR/Config/Field.pm view on Meta::CPAN
}
### Admin functions
sub update_translator{
my $self = shift;
my $transname = shift;
$self->[O_session]->is_admin or return $self->_error('Cannot update translator in non-admin mode');
view release on metacpan or search on metacpan
DBX/Recordset.pm view on Meta::CPAN
my ($self) = @_;
return !$self->{eof};
}
sub update
{
my ($self) = @_;
return unless $self->{dirty};
my %changed = %{$self->{changed}};
view release on metacpan or search on metacpan
lib/DB_File/DB_Database.pm view on Meta::CPAN
my %data = $self->check_field_names_hash(@_);
$self->set_record($id, map { $data{$_} } $self->field_names );
}
# ###############################################################################
# Write record, fields specified as hash, unspecified will be unchanged
sub update_record_hash {
my ($self, $id) = ( shift, shift );
my %olddata = $self->get_record_hash($id);
return unless %olddata;
$self->set_record_hash($id, %olddata, @_);
}
view release on metacpan or search on metacpan
DBomb/Base.pm view on Meta::CPAN
else{
$self->_dbo_insert_static(@_);
}
}
sub update
{
my $self = shift;
if (ref $self){
$self->_dbo_update(@_);
}
view release on metacpan or search on metacpan
lib/DNS/EasyDNS.pm view on Meta::CPAN
The function returns C<TRUE> of success. On failure it returns C<FALSE> and
sets C<$@>.
=cut
sub update {
my ($obj,%args) = @_;
my %get;
while (my ($k,$v) = each %args) {
if ( $k eq "username" ) { $obj->{"username"} = $v }
view release on metacpan or search on metacpan
lib/DNS/Hetzner/API/PrimaryServers.pm view on Meta::CPAN
sub get ($self, %params) {
return $self->_do( 'GetPrimaryServer', \%params, '/:PrimaryServerID', { type => 'get' } );
}
sub update ($self, %params) {
return $self->_do( 'UpdatePrimaryServer', \%params, '/:PrimaryServerID', { type => 'put' } );
}
1;
view release on metacpan or search on metacpan
lib/DNS/NIOS.pm view on Meta::CPAN
return $self->__request( 'POST', $args{path},
( payload => $args{payload}, params => $args{params} ) );
}
sub update {
my ( $self, %args ) = @_;
defined( $args{$_} )
or croak("$_ is required!")
for qw(path payload);
view release on metacpan or search on metacpan
lib/DNS/PunyDNS.pm view on Meta::CPAN
$self->{'password'} = $args[0]->{'password'} || die "No password provided";
return $self;
}
sub update_dns {
my ( $self, $domain, $ip, $record_type, $old_record_type ) = @_;
die "You must provide a domain" if !$domain;
die "You must provide an IP address" if !$ip;
my %args = (
view release on metacpan or search on metacpan
lib/DNS/WorldWideDns.pm view on Meta::CPAN
A hash reference identical to the one returned by getDomain().
=cut
sub updateDomain {
my ($self, $domain, $params) = @_;
# validate inputs
unless (defined $domain) {
MissingParam->throw(error=>'Need a domain.');
view release on metacpan or search on metacpan
lib/DNS/ZoneEdit.pm view on Meta::CPAN
Returns C<TRUE> on success. On failure it returns C<FALSE> and
sets C<$@>.
=cut
sub update {
my ($self,%args) = @_;
croak "update(): Argument 'username' is required"
unless defined $args{"username"};
view release on metacpan or search on metacpan
ZoneFile.pm view on Meta::CPAN
}
#updateSerial
# This function will update the serial number in the zone file loaded.
sub updateSerial
{
my $self=shift;
my $snum;
view release on metacpan or search on metacpan
sub emit {
if ($opt{0}) { push @script, splice @batch }
else { push @script, join '', splice @batch }
}
sub update {
my ($addel,$owner,$rrs) = @_;
push @batch, map "update $addel $owner $_", sort @$rrs;
}
for my $owner (keys %del) {
update 'delete', $owner, delete $del{$owner};
view release on metacpan or search on metacpan
lib/DR/Tarantool/AsyncClient.pm view on Meta::CPAN
=back
=cut
sub update {
my $self = shift;
my $space = shift;
my $key = shift;
my $op = shift;
$self->_llc->_check_cb( my $cb = pop );
view release on metacpan or search on metacpan
lib/DR/Tnt/Proto.pm view on Meta::CPAN
# HACK
_call_lua($sync, $schema_id, "box.space.$space:delete", $key);
}
sub update($$$$$) {
my ($sync, $schema_id, $space, $key, $ops) = @_;
croak 'Oplist must be Arrayref' unless 'ARRAY' eq ref $ops;
$key = [ $key ] unless ref $key;
croak "Cant convert HashRef to key" if 'HASH' eq ref $key;
view release on metacpan or search on metacpan
lib/DSP/LinPred.pm view on Meta::CPAN
}
# update only
# x should be array reference
sub update{
my $self = shift;
my $x = shift;
my $h_length = $self->h_length;
my $h = $self->h;
my $x_stack = $self->x_stack;
view release on metacpan or search on metacpan
lib/DSP/LinPred_XS.pm view on Meta::CPAN
}
# update only
# x should be array reference
sub update{
my $self = shift;
my $x = shift;
my $h_length = $self->h_length;
my $h = $self->h;
my $x_stack = $self->x_stack;
view release on metacpan or search on metacpan
lib/DTL/Fast/Tag/Ifchanged.pm view on Meta::CPAN
}
return $result;
}
sub update_preserved
{
my $self = shift;
my $context = shift;
$self->{preserved} = [ ];
view release on metacpan or search on metacpan
lib/DVB/Epg.pm view on Meta::CPAN
Return 0 if sections are already uptodate.
Return undef on error;
=cut
sub updateEit {
my $self = shift;
my $pid = shift;
my $dbh = $self->{dbh};
my $updated = 0;
view release on metacpan or search on metacpan
lib/Dackup/Target/CloudFiles.pm view on Meta::CPAN
. $self->container->name . '/'
. $self->prefix
. $entry->key;
}
sub update {
my ( $self, $source, $entry ) = @_;
my $container = $self->container;
my $prefix = $self->prefix;
my $source_type = ref($source);
my $object = $self->object($entry);