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
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;
view release on metacpan or search on metacpan
}
my $bg_cursed = [1 , 0 , 0, 0.5];
my $bg_magic = [0.2, 0.2, 1, 0.5];
sub update_widgets {
my ($self) = @_;
# necessary to avoid cyclic references
DC::weaken $self;
view release on metacpan or search on metacpan
Deliantra/MapWidget.pm view on Meta::CPAN
$self->queue_draw_area ($x - $self->{x}, $y - $self->{y}, $w, $h);
}
}
sub update_tooltip {
my ($self) = @_;
if ($self->{tooltip} >= 0
&& $self->mapped
&& $self->get_toplevel->has_toplevel_focus) {
view release on metacpan or search on metacpan
Animator.pm view on Meta::CPAN
$self->set('_meta_data_end_display', sprintf( "%8d", scalar(@{$self->{_meta_ref}}) ) );
$self->set( '_index', $self->{_mw}->{_mod_start_seq}->get());
$self->set_started_state();
}
sub update_delay {
my $self = shift;
my $delay = shift;
return if ( ! defined($self->{_timer_id}));
Animator.pm view on Meta::CPAN
}
return(undef)
}
sub update_table {
my $self = shift;
my $table = shift;
$self->{_mw}->update;
return if ($self->{_status} eq 'STOPPED');
view release on metacpan or search on metacpan
bin/debugServer.pl view on Meta::CPAN
# variables
# result
#
# };
#=cut
sub updateProcessInfo {
my ($infos) = @_;
my $pid = $infos->{pid};
$processesInfos{$pid} = $infos;
bin/debugServer.pl view on Meta::CPAN
$text = "[$$]".$text."\n";
print $fh $text;
close $fh;
}
sub updateEffectiveBreakpoints{
my ($effectiveBreakpointsList) = @_;
for my $breakpoint (@{$effectiveBreakpointsList}){
my $file= $breakpoint->{file};
my $requestedLineNumber = $breakpoint->{requestedLineNumber};
view release on metacpan or search on metacpan
lib/Devel/Events/Generator/ClassPublisher.pm view on Meta::CPAN
my ( $self, $publisher, $event ) = @_;
$publisher->delete_subscriber($event, $self);
}
sub update {
my ( $self, $publisher, $type, @data ) = @_;
$self->send_event( $type, publisher => $publisher, @data );
}
__PACKAGE__;
view release on metacpan or search on metacpan
lib/Devel/IntelliPerl.pm view on Meta::CPAN
after inc => sub {
my $self = shift;
unshift( @INC, @{ $_[0] } ) if ( $_[0] );
};
sub update_inc {
my $self = shift;
return unless ( $self->filename );
my $parent = Path::Class::File->new( $self->filename );
my @libs;
while ( $parent = $parent->parent ) {
view release on metacpan or search on metacpan
t/lib/NYTProfTest.pm view on Meta::CPAN
is_deeply(\@got, \@exp, $testname)
? unlink($got_file)
: diff_files($exp_file, $got_file, $got_file."_patch");
}
sub update_file_content_array {
my $lines = shift;
my $file_info_start;
foreach my $i (0 .. $#$lines) {
next if not $lines->[$i] =~ /^fid_fileinfo/;
view release on metacpan or search on metacpan
lib/Devel/PDB/NamedListbox.pm view on Meta::CPAN
$this->{-named_list} = $list if defined $list;
$this->{-named_list};
}
sub update {
my ($this, $refresh) = @_;
my $list = $this->{-named_list};
my @display;
if ($this->{-sort_key}) {
view release on metacpan or search on metacpan
lib/Devel/REPL/Plugin/ShowClass.pm view on Meta::CPAN
$self->display_class($_) foreach @metas_to_show;
$self->update_metaclass_cache;
};
sub update_metaclass_cache {
my $self = shift;
foreach my $class (Class::MOP::get_all_metaclass_names()) {
$self->metaclass_cache->{$class} = (
("" . Class::MOP::get_metaclass_by_name($class))
);
view release on metacpan or search on metacpan
lib/Devel/StatProfiler/EvalSource.pm view on Meta::CPAN
$self->{all}{$process_id}{$process_ordinal}{sparse}{$name} = $hash;
$self->{hashed}{$hash} = $source_code->{$name};
}
}
sub update_genealogy {
my ($self, $process_id, $process_ordinal, $parent_id, $parent_ordinal) = @_;
$self->{genealogy}{$process_id}{$process_ordinal} = [$parent_id, $parent_ordinal];
}
view release on metacpan or search on metacpan
lib/Devel/Trepan/DB/LineCache.pm view on Meta::CPAN
is wrong, return I<undef>. Return I<true> if the cache was updated and
I<false> if not.
=cut
sub update_script_cache($$)
{
my ($script, $opts) = @_;
return 0 unless filename_is_eval($script);
my $string = $opts->{string};
my $lines_href = {};
lib/Devel/Trepan/DB/LineCache.pm view on Meta::CPAN
$I<$opts-E<gt>{use_perl_d_file}> is I<true>, use that as the source for the
lines of the file.
=cut
sub update_cache($;$)
{
my ($filename, $opts) = @_;
my $read_file = 0;
$opts = {} unless defined $opts;
my $use_perl_d_file = $opts->{use_perl_d_file};
view release on metacpan or search on metacpan
# restore the height and width of the window
$self->{main_window}->geometry( $main_win_geometry ) ;
}
} # end of retstoreState
sub updateEvalWindow {
my ($self, @result) = @_ ;
my ($leng, $str, $d) ;
$leng = 0 ;
for( @result ) {
# the executing script while in the DB
# package. When we had updateExprs in the Devel::ptkdb
# package eval would turn up an undef result.
#
sub updateExprs {
my ($package) = @_ ;
#
# Update expressions
#
$DB::window->deleteAllExprs() ;
view release on metacpan or search on metacpan
# restore the height and width of the window
$self->{main_window}->geometry( $main_win_geometry ) ;
}
} # end of retstoreState
sub updateEvalWindow {
my ($self, @result) = @_ ;
my ($leng, $str) = (0,'');
for (@result) {
if( $self->{hexdump_evals} ) {
# the executing script while in the DB
# package. When we had updateExprs in the Devel::tcltkdb
# package eval would turn up an undef result.
#
sub updateExprs {
my ($package) = @_ ;
#
# Update expressions
#
$DB::window->deleteAllExprs();
view release on metacpan or search on metacpan
}
$self->{int}->SetVar('event','update');
} # end of retstoreState
sub updateEvalWindow {
my ($self, @result) = @_ ;
my ($leng, $str) = (0,'');
for (@result) {
if( $self->{hexdump_evals} ) {
# the executing script while in the DB
# package. When we had updateExprs in the Devel::tkdb
# package eval would turn up an undef result.
#
sub updateExprs {
my ($package) = @_ ;
#
# Update expressions
#
$DB::window->deleteAllExprs();