view release on metacpan or search on metacpan
lib/Data/Mapper.pm view on Meta::CPAN
push @result, $self->map_data($name, $_) for @$data;
\@result;
}
sub update {
my ($self, $data) = @_;
my $result;
my $has_changes = $data->isa('Data::Mapper::Data');
return if $has_changes && not $data->is_changed;
view release on metacpan or search on metacpan
lib/Data/Model.pm view on Meta::CPAN
my($klass, $model) = $class =~ /^(.+)::([^:]+)$/;
return unless (ref($self) || $self) eq $klass;
return $self->get_schema($model);
}
sub update {
my $self = shift;
Carp::croak "The 'update' method can not be performed during a transaction." if $self->{active_transaction};
my $row = shift;
return $self->update_direct($row, @_) unless ref($row) && $row->isa('Data::Model::Row');
lib/Data/Model.pm view on Meta::CPAN
# $model->update_direct( model_name => 'key', +{ querys }, +{ update columns } );
# $model->update_direct( model_name => [qw/ key1 key2 /], +{ querys }, +{ update columns } );
# $model->update_direct( model_name => +{ querys }, +{ update columns } );
# direct_update get ã—ãªã„ã§ç›´æŽ¥ updateã™ã‚‹ where ã®çµ„ã¿ç«‹ã¦ã¯ get/delete ã¨åŒã˜
sub update_direct {
my $self = shift;
Carp::croak "The 'update_direct' method can not be performed during a transaction." if $self->{active_transaction};
my $model = shift;
my $schema = $self->get_schema($model);
view release on metacpan or search on metacpan
lib/Data/MuForm/Role/Model/DBIC.pm view on Meta::CPAN
my $self = shift;
$self->model(undef);
$self->model_id(undef);
}
sub update_model {
my $self = shift;
my $model = $self->model;
my $source = $self->source;
my %update_params = (
view release on metacpan or search on metacpan
lib/Data/MuForm.pm view on Meta::CPAN
sub in_setup { }
sub after_setup { }
sub after_build_fields { }
sub update_model {
my $self = shift;
}
sub munge_params {
view release on metacpan or search on metacpan
lib/Data/Nested/Multiele.pm view on Meta::CPAN
###############################################################################
# UPDATE_ELE METHOD
###############################################################################
sub update_ele {
my($self,$ele,$path,$val,$new,$ruleset) = @_;
if (! $$self{'file'}) {
$$self{'err'} = 'nmefil06';
$$self{'errmsg'} = 'No file set.';
view release on metacpan or search on metacpan
lib/Data/OFAC/SDN.pm view on Meta::CPAN
}
return $self;
}
sub updateDatabase {
my $self = shift;
my $lwp = LWP::UserAgent->new();
$lwp->timeout(10);
$lwp->env_proxy;
view release on metacpan or search on metacpan
t/Data_Object_Types_Keywords.t view on Meta::CPAN
sub does {
undef
}
sub create;
sub update;
sub delete;
package Test::Student;
use base 'Test::Person';
view release on metacpan or search on metacpan
lib/Data/ObjectDriver/BaseObject.pm view on Meta::CPAN
return Data::ObjectDriver::Iterator->new($caching_iter, sub { $iter->end });
}
}
sub remove { shift->_proxy( 'remove', @_ ) }
sub update { shift->_proxy( 'update', @_ ) }
sub insert { shift->_proxy( 'insert', @_ ) }
sub replace { shift->_proxy( 'replace', @_ ) }
sub fetch_data { shift->_proxy( 'fetch_data', @_ ) }
sub uncache_object { shift->_proxy( 'uncache_object', @_ ) }
view release on metacpan or search on metacpan
bin/VisRep.pl view on Meta::CPAN
update_section();
update_textarea();
}
sub update_textarea() {
my $nrows = $visrep->{ACTUAL_SEC}->size();
my $topwin = $visrep->{TOPWIN};
my $nactrows = @{$visrep->{AROWS}}+0;
my $cont;
my $workarea = $visrep->{WWORKAREA};
bin/VisRep.pl view on Meta::CPAN
#update code area
$visrep->{WCODEAREA}->delete(0.1, 'end');
$visrep->{WCODEAREA}->insert(0.1, $visrep->{ACTUAL_SEC}->code());
}
sub update_section() {
my @lines = ();
my $nrows = @{$visrep->{AROWS}}+0;
my $cont;
for ($cont = 0; $cont < $nrows; $cont++) {
bin/VisRep.pl view on Meta::CPAN
$visrep->{ACTUAL_SEC}->configure(Lines => \@lines,
Code => $code,
Break_field => $visrep->{WBREAKFIELD}->get());
}
sub update_toolbar() {
$visrep->{WAREANAME}->configure(text => $visrep->{ACTUAL_SEC}->name());
$visrep->{WSIZEVAREA}->delete(0.1, 'end');
$visrep->{WSIZEVAREA}->insert(0, $visrep->{ACTUAL_SEC}->size());
$visrep->{WBREAKFIELD}->configure(state => 'normal');
$visrep->{WBREAKFIELD}->delete(0.1, 'end');
view release on metacpan or search on metacpan
lib/Data/SeaBASS.pm view on Meta::CPAN
Caching must be enabled to use C<update>, C<set>, or C<insert>.
=cut
sub update {
my $self = shift;
if ( !$self->{'options'}{'cache'} ) {
croak("Caching must be enabled to write.");
} elsif ( $self->{'dataidx'} == -1 ) {
croak("No rows read yet.");
lib/Data/SeaBASS.pm view on Meta::CPAN
my $new_row = $self->ingest_row(@_);
unless ( defined($new_row) ) {
croak("Error parsing inputs");
}
$self->{'data'}[ $self->{'dataidx'} ] = $new_row;
} ## end sub update
=head2 set($index, \%data_row | \@data_row | $data_row | %data_row)
my %row = (lat => 1, lon => 2, chl => 1);
$sb_file->set(0, \%row);
lib/Data/SeaBASS.pm view on Meta::CPAN
C<add_and_remove_fields> on each row. It then updates the /fields and /units
headers in the header hash.
=cut
sub update_fields {
my ($self) = @_;
if ( $self->{'options'}{'cache'} && $self->{'max_dataidx'} >= 0 ) {
foreach my $hash ( @{ $self->{'data'} } ) {
$self->add_and_remove_fields($hash);
}
}
my $slash = ( $self->{'options'}{'keep_slashes'} ? '/' : '' );
$self->{'headers'}{"${slash}fields"} = join( ',', @{ $self->{'actual_fields'} } );
$self->{'headers'}{"${slash}units"} = join( ',', @{ $self->{'actual_units'} } );
} ## end sub update_fields
=head2 add_and_remove_fields(\%row)
Given a reference to a row, this function deletes any fields removed with
C<remove_field> and adds an undefined or /missing value for each field added
view release on metacpan or search on metacpan
lib/Data/SearchEngine/ElasticSearch.pm view on Meta::CPAN
type => $data->{type},
id => $item->id
);
}
sub update {
my $self = shift;
$self->add(@_);
}
view release on metacpan or search on metacpan
lib/Data/SearchEngine/Solr.pm view on Meta::CPAN
}
return $result;
}
sub update {
my $self = shift;
$self->add(@_);
}
view release on metacpan or search on metacpan
t/lib/SearchEngineWee.pm view on Meta::CPAN
}
}
return 0;
}
sub update {
my ($self, $prod) = @_;
$self->set($prod->{name}, $prod);
}
view release on metacpan or search on metacpan
lib/Data/Section/Writer.pm view on Meta::CPAN
''
);
}
sub update_file ($self) {
my $perl;
my $orig;
if(-f $self->perl_filename) {
$orig = $perl = $self->perl_filename->slurp_utf8;
view release on metacpan or search on metacpan
lib/Data/Session/Driver/Pg.pm view on Meta::CPAN
} # End of store.
# -----------------------------------------------
sub update
{
my($self, $dbh, $table_name, $id_col_name, $data_col_name, $id, $data) = @_;
my($sql) = "update $table_name set $data_col_name = ? where $id_col_name = ?";
my($sth) = $dbh -> prepare($sql);
view release on metacpan or search on metacpan
bump-version view on Meta::CPAN
}
}
}
}
sub update_version($) {
my $file = shift;
$new_file = "$file.new";
chatf "Scanning %s for \$VERSION..\n", $file;
my($in, $out);
if (open($in, "<", $file)) {
view release on metacpan or search on metacpan
lib/Data/Table/Text.pm view on Meta::CPAN
confess "Unable to locate code delimited by $comment in $0\n"; #CODEBLOCK-begin
my $a = 1;
my $b = 2; #CODEBLOCK-end
}
sub updateDocumentation(;$) # Update the documentation for a Perl module from the comments in its source code. Comments between the lines marked with:\m #Dn title # description\mand:\m #D\mwhere n...
{my ($perlModule) = @_; # Optional file name with caller's file being the default
$perlModule //= $0; # Extract documentation from the caller if no perl module is supplied
my $package = perlPackage($perlModule); # Package name
my $maxLinesInExample = 900; # Maximum number of lines in an example
my %attributes; # Attributes defined in this package, the values of this hash are the flags for the attribute
lib/Data/Table/Text.pm view on Meta::CPAN
# my $r = eval $s;
# confess "$s\n". dump($@, $!) if $@;
# $r
}
sub updatePerlModuleDocumentation($) #P Update the documentation in a B<$perlModule> and display said documentation in a web browser.
{my ($perlModule) = @_; # File containing the code of the perl module
-e $perlModule or confess "No such file:\n$perlModule\n";
updateDocumentation($perlModule); # Update documentation
zzz("pod2html --infile=$perlModule --outfile=zzz.html && ". # View documentation
view release on metacpan or search on metacpan
lib/Data/Toolkit/Connector/DBI.pm view on Meta::CPAN
the SQL statement and the named attribute will be extracted from the supplied entry
by the update() method.
=cut
sub updatespec {
my $self = shift;
my $updatespec = shift;
carp "Data::Toolkit::Connector::DBI->updatespec $self $updatespec " if $debug;
lib/Data/Toolkit/Connector/DBI.pm view on Meta::CPAN
Note also that multiple rows could be affected by a single call to this method, depending
on how the updatespec has been defined.
=cut
sub update {
my $self = shift;
my $source = shift;
my $map = shift;
croak "Data::Toolkit::Connector::DBI->update called before updatespec has been defined" if !$self->{update_sth};
view release on metacpan or search on metacpan
lib/Data/Tranco.pm view on Meta::CPAN
return 1 unless (stat($ZIPFILE)->mtime > time() - $TTL);
return undef;
}
sub update_db {
my $package = shift;
mirror_file(TRANCO_URL, $TTL);
my $zip = Archive::Zip->new;
view release on metacpan or search on metacpan
lib/Data/Validate/Sanctions.pm view on Meta::CPAN
$self->{last_data_load} = 0;
return bless $self, ref($class) || $class;
}
sub update_data {
my ($self, %args) = @_;
$self->_load_data();
my $new_data = Data::Validate::Sanctions::Fetcher::run($self->{args}->%*, %args);
view release on metacpan or search on metacpan
lib/DataCube/MeasureUpdater.pm view on Meta::CPAN
$self->{measures} = $schema->{measures};
return $self;
}
sub update {
my($self,%opts) = @_;
my $source = $opts{source};
my $target = $opts{target};
my $source_key = $opts{source_key};
view release on metacpan or search on metacpan
lib/DataStore/CAS/FS.pm view on Meta::CPAN
++$_->{invalid} && &_invalidate_subtree for grep { ref $_ } values %{delete $_->{subtree}};
}
}
sub update_path {
my ($self, $path, $changes, $flags)= @_;
$flags ||= {};
my $nodes= $self->_resolve_path(undef, $path, { follow_symlinks => 1, partial => 1, %$flags });
croak $nodes unless ref $nodes;
view release on metacpan or search on metacpan
lib/Database/Abstraction.pm view on Meta::CPAN
Returns the timestamp of the last database update.
=cut
sub updated {
my $self = shift;
return $self->{'_updated'};
}
view release on metacpan or search on metacpan
lib/Datahub/Factory/Exporter/Datahub.pm view on Meta::CPAN
sub add {
my ($self, $item) = @_;
$self->out->bag->add($item);
}
sub update {
my ($self, $id, $item) = @_;
$self->out->bag->update($id, $item);
}
1;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
eval 'sub IndexBufferHits {3;}';
eval 'sub NbrReadOperations {4;}';
eval 'sub NbrBytesRead {5;}';
eval 'sub NbrWriteOperations {6;}';
eval 'sub NbrBytesWritten {7;}';
eval 'sub updateIFIL {-99;}';
eval 'sub cfgFILES {0;}';
eval 'sub cfgUSERS {1;}';
eval 'sub cfgIDX_MEMORY {2;}';
eval 'sub cfgDAT_MEMORY {3;}';
eval 'sub cfgTOT_MEMORY {4;}';
view release on metacpan or search on metacpan
DFC/IDfSysObject.pm view on Meta::CPAN
} else {
return $rv;
}
}
sub updatePart {
## METHOD: void updatePart(com.documentum.fc.common.IDfId,java.lang.String,double,boolean,boolean,int)
my ($self,$p0,$p1,$p2,$p3,$p4,$p5) = @_;
my $updatePart = JPL::AutoLoader::getmeth('updatePart',['com.documentum.fc.common.IDfId','java.lang.String','double','boolean','boolean','int'],[]);
my $rv = "";
eval { $rv = $$self->$updatePart($$p0,$p1,$p2,$p3,$p4,$p5); };
view release on metacpan or search on metacpan
lib/DbFramework/Persistent.pm view on Meta::CPAN
when you need to update one or more primary key columns. Returns the
number of rows updated if supplied by the DBI driver.
=cut
sub update {
my $self = attr shift;
my %attributes = defined($_[0]) ? %{$_[0]} : %{$self->attributes_h};
# get pk attributes
my %pk_attributes;
for ( $TABLE->is_identified_by->attribute_names ) {
view release on metacpan or search on metacpan
lib/Debian/Apt/PM.pm view on Meta::CPAN
$versions_info->{'min'} = (@versions ? $versions_info->{$versions[0]} : undef);
return $versions_info;
}
sub update {
my $self = shift;
my @existing = glob($self->cachedir.'/*.bz2');
foreach my $url ($self->_etc_apt_sources) {
my $filename = $url;
view release on metacpan or search on metacpan
lib/Decision/Depends/List.pm view on Meta::CPAN
\%depends;
}
sub update
{
my ( $self, $targets ) = @_;
local $Carp::CarpLevel = $Carp::CarpLevel + 1;