view release on metacpan or search on metacpan
lib/Class/DBI/FormBuilder.pm view on Meta::CPAN
If called on a class, will first retrieve the relevant object (via C<retrieve_from_form>).
=cut
sub update_from_form
{
my ( $proto, $form ) = @_;
my $them = ref( $proto ) ? $proto : $proto->retrieve_from_form( $form );
view release on metacpan or search on metacpan
FromForm.pm view on Meta::CPAN
Update object.
=cut
sub update_from_form {
my $self = shift;
die "update_from_form cannot be called as a class method" unless ref $self;
__PACKAGE__->_run_update( $self, @_ );
}
view release on metacpan or search on metacpan
lib/Class/DBI/Frozen/301.pm view on Meta::CPAN
sub _column_placeholder {
my ($self, $column) = @_;
return $self->find_column($column)->placeholder;
}
sub update {
my $self = shift;
my $class = ref($self)
or return $self->_croak("Can't call update as a class method");
$self->call_trigger('before_update');
view release on metacpan or search on metacpan
lib/Class/DBI/Lite.pm view on Meta::CPAN
}# end if()
}# end do_transaction()
#==============================================================================
sub update
{
my $s = shift;
confess "$s\->update cannot be called without an object" unless ref($s);
return 1 unless eval { keys(%{ $s->{__Changed} }) };
view release on metacpan or search on metacpan
lib/Class/DBI/MockDBD.pm view on Meta::CPAN
}
return 1;
}
sub update {
my $self = shift;
my $class = ref($self)
or return $self->_croak("Class::DBI::MockDBD -- Can't call update as a class method");
$self->call_trigger('before_update');
view release on metacpan or search on metacpan
lib/Class/DBI/Sweet.pm view on Meta::CPAN
}
return $self->SUPER::insert(@_);
}
sub update {
my $self = shift;
if ( $self->cache ) {
$self->cache->remove( $self->cache_key );
$self->cache->set( $self->_staleness_cache_key, time() );
view release on metacpan or search on metacpan
lib/Class/ExtraAttributes.pm view on Meta::CPAN
my $object = MyObject->new;
$object->foo($value);
my $value = $object->foo;
sub update { # in case you want persistence for extra attributes
my $object= shift;
$object->SUPER::update(@_);
my @extra= Class::ExtraAttributes->attributes;
# perform update for extra attributes
view release on metacpan or search on metacpan
my ($self) = @_ ;
return sort keys %{$self->{catalog_list}} ;
}
#internal
sub update_catalog_list
{
my $self = shift ;
# reset and update catalog lists (which is somewhat different from rebuild)
delete $self->{catalog} ;
view release on metacpan or search on metacpan
},
};
# dispatch method for Observer ( see Class::Observable )
sub update : method
{
my $this = shift;
my ( $object, $action ) = @_;
view release on metacpan or search on metacpan
lib/Class/Observable.pm view on Meta::CPAN
# Define an observer
package My::Observer;
sub update {
my ( $class, $object, $action ) = @_;
unless ( $action ) {
warn "Cannot operation on [", $object->id, "] without action";
return;
}
view release on metacpan or search on metacpan
lib/Class/User/DBI.pm view on Meta::CPAN
}
}
return @rv;
}
sub update_password {
my ( $self, $newpass, $oldpass ) = @_;
return if !$self->exists_user;
# If an old passphrase is supplied, only update if it validates.
view release on metacpan or search on metacpan
lib/Class/orMapper.pm view on Meta::CPAN
$sth->execute(@v);
$sth->finish;
}
# update
sub update{
my ($self,$p) = @_;
my ($s,@v);
$s = "update " . $p->{table} . " set " . join(',', map{push(@v,$p->{columns}->{$_});$_ = $_ . '=?'} keys %{$p->{columns}});
my ($w,@vv) = where($p);
if($w){
view release on metacpan or search on metacpan
files actually changed. It also suppresses logging by redirecting the
log file to /dev/null.
=cut
sub update {
my %opt;
GetOptions(\%opt, qw(quiet));
return 0 if !$opt{quiet};
if (!grep m%^-log%, @ARGV) {
splice(@ARGV, 1, 0, '-log', MSWIN ? 'NUL' : '/dev/null');
view release on metacpan or search on metacpan
lib/ClearPress/model.pm view on Meta::CPAN
}
$self->{_loaded} = 1;
return 1;
}
sub update {
my $self = shift;
my $pk = $self->primary_key();
if(!$pk || !$self->$pk()) {
croak q(No primary key);
view release on metacpan or search on metacpan
t/400_create.t view on Meta::CPAN
sub find {
}
sub update {
}
}
package Test1 {
view release on metacpan or search on metacpan
examples/helloworld/app/lib/Dwarf/Session/Store/DBI.pm view on Meta::CPAN
my $sql =qq~INSERT INTO $sid_table ($sid_col, $data_col, $expires_col) VALUES (?, ?, ?)~;
my $sth = $dbh->prepare($sql);
$sth->execute( $session_id, $data, time() + $self->expires );
}
sub update {
my ($self, $session_id, $data) = @_;
$data = encode_base64( nfreeze($data) );
my $dbh = $self->dbh;
view release on metacpan or search on metacpan
lib/Code/TidyAll/CacheModel.pm view on Meta::CPAN
return unless $self->_has_cache_engine;
my $cached_value = $self->cache_engine->get( $self->cache_key );
return defined $cached_value && $cached_value eq $self->cache_value;
}
sub update {
my ($self) = @_;
return unless $self->_has_cache_engine;
$self->cache_engine->set( $self->cache_key, $self->cache_value );
$self->is_cached(1);
view release on metacpan or search on metacpan
t/lib/Test/CodeGen/Helpers.pm view on Meta::CPAN
my @text = split /\n/ => $text;
my @expected = split /\n/ => $expected;
eq_or_diff \@text, \@expected, $message;
}
sub update_version ($) {
my $text = shift;
if ( $text =~ /\b(CodeGen::Protection::Format::\w+).*Checksum:/ ) {
my $module = $1;
my $version_re = $module->_version_re;
my $version = $module->VERSION;
view release on metacpan or search on metacpan
lib/Prima/CodeManager/Edit.pm view on Meta::CPAN
$self-> selection(0,0,0,0);
$self-> blockType( $blockType);
$self-> {anchor} = [ $self-> {cursorX}, $self-> {cursorY}];
}
sub update_block
{
my $self = $_[0];
return unless exists $self-> {anchor};
$self-> selection( @{$self-> {anchor}}, $self-> {cursorX}, $self-> {cursorY});
}
view release on metacpan or search on metacpan
lib/Cogit.pm view on Meta::CPAN
$ref = 'master' unless $ref;
$self->update_ref($ref, $object->sha1);
}
}
sub update_ref {
my ($self, $refname, $sha1) = @_;
my $ref = file($self->gitdir, 'refs', 'heads', $refname);
$ref->parent->mkpath;
my $ref_fh = $ref->openw;
$ref_fh->print($sha1) || die "Error writing to $ref";
view release on metacpan or search on metacpan
lib/CommitBit/Record.pm view on Meta::CPAN
return @ret;
}
sub update_all_repositories {
my $self = shift;
my $repositories = CommitBit::Model::RepositoryCollection->new;
$repositories->unlimit;
view release on metacpan or search on metacpan
lib/Conan/Promote/Xen.pm view on Meta::CPAN
};
return bless $args => $class;
}
sub update_image {
my $self = shift;
my ($node, $target) = @_;
print "D: Upgrading $node to $target\n";
}
view release on metacpan or search on metacpan
lib/Conclave/OTK/Backend/4store.pm view on Meta::CPAN
unless ($response->is_success) {
print STDERR "PUT failed: ", $response->status_line, "\n";
}
}
sub update {
my ($self, $sparql) = @_;
my $params = { 'update' => $sparql };
my $ua = new LWP::UserAgent(timeout => 300);
$ua->agent('perlproc/1.0');
view release on metacpan or search on metacpan
lib/Config/FileManager.pm view on Meta::CPAN
$cfg->update();
=cut
sub update($) {
my $self = shift;
# Check if config file is up-to-date
open (CFG_FILE, "<".$self->getPath) or croak "Unable to open config file [".$self->getPath."]: $!";
my @versions = $self->versions;
view release on metacpan or search on metacpan
lib/Config/Hosts.pm view on Meta::CPAN
New hosts' argument may be a single scalar instead of arrayref.
=cut
sub update_host ($$%) {
my $self = shift;
my $host = shift;
my %params = @_;
view release on metacpan or search on metacpan
lib/Config/Model/CursesUI.pm view on Meta::CPAN
push @{$self->{stack}} , sub{$self->scan($scan_type,$node,$element,$idx)};
$self->{cui}->getobj('center')->focus ;
}
sub update_location {
my ($self,$node,$element,$idx) = @_ ;
my $loc = $node->location ;
$loc .= ' ' if $loc ;
$loc .= $element if defined $element ;
view release on metacpan or search on metacpan
lib/Config/Model/Instance.pm view on Meta::CPAN
sub save {
goto &write_back;
}
sub update {
my ($self, %args) = @_;
my @msgs ;
my $hook = sub {
my ($scanner, $data_ref,$node,@element_list) = @_;