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();
view release on metacpan or search on metacpan
lib/Developer/Dashboard/CLI/Progress.pm view on Meta::CPAN
# update($event)
# Applies one lifecycle progress event to the tracked task board.
# Input: hash reference with task_id, status, and optional label.
# Output: true value.
sub update {
my ( $self, $event ) = @_;
return 1 if !$event || ref($event) ne 'HASH';
$self->add_tasks( $event->{add_tasks} ) if exists $event->{add_tasks};
my $id = $event->{task_id} || return 1;
my $task = $self->{tasks}{$id} || return 1;
view release on metacpan or search on metacpan
examples/bitbang-tickit-ui.pl view on Meta::CPAN
$bb->tris_gpio( CBUS, 0xFF ),
)->get;
my $tickit = Tickit->new( root => $grid );
sub update_buttons
{
my ( $port ) = @_;
my $mask = 0;
$dirbuttons[$port][$_]->is_active and $mask |= ( 1 << $_ )
view release on metacpan or search on metacpan
examples/example_stepper.pl view on Meta::CPAN
$context->{progStep} = $nextStep;
$device->stepper_step(0,$nextProg[0],$nextProg[1],$nextProg[2]);
}
sub updatePosition {
my ($context) = @_;
my @stepperProgram = @{$context->{program}};
my $lastStep = $context->{progStep};
my @lastProg = @{$stepperProgram[$lastStep]};
view release on metacpan or search on metacpan
lib/Device/kilngraph.pl view on Meta::CPAN
my $pjx = new CGI::Ajax( 'exported_func' => \&update );
print $pjx->build_html( $cgi, \&Show_HTML);
}
sub update {
}
sub test ($$){
view release on metacpan or search on metacpan
lib/Device/OUI.pm view on Meta::CPAN
}
return $self->{ 'lookup' } = {};
}
sub update_from_file {
my $self = shift;
my $oui = $self->norm;
my $cf = $self->cache_file;
if ( ! $cf ) { return }
lib/Device/OUI.pm view on Meta::CPAN
} else {
return $url_format.$oui;
}
}
sub update_from_web {
my $self = shift;
if ( not ref $self ) { return }
if ( not $self->have_lwp_simple ) { return }
view release on metacpan or search on metacpan
lib/Device/PCD8544.pm view on Meta::CPAN
my ($self, $img) = @_;
$self->_buffer( $img );
return 1;
}
sub update
{
my ($self) = @_;
$self->_send_buffer;
return 1;
}
view release on metacpan or search on metacpan
# Update the device.
# Need: NA
# Return: NA
# How: Use parport to update byte and then flash it.
sub update {
my ($this) = @_;
foreach my $board (@{$this->{BOARDS}}) {
$this->_parport->set_byte(2, chr($cardmap{$board})); # Prepare
$this->_parport->set_byte(0, chr($this->_byte_calc($board))); # Set data
view release on metacpan or search on metacpan
lib/Device/PiGlow.pm view on Meta::CPAN
This updates the values set to the LED registers to the LEDs and changes
the display.
=cut
sub update
{
my ( $self ) = @_;
return $self->_write_byte(CMD_UPDATE, 0xFF);
}
view release on metacpan or search on metacpan
eg/demo3.plx view on Meta::CPAN
my $evt_c="Win32";
my $err_c="Win32";
## if ($rint == 0xffffffff) { $rint = "OFF "; }
sub update_menu {
$baud=$ob->baudrate;
$par=$ob->parity;
$data=$ob->databits;
$stop=$ob->stopbits;
$hshake=$ob->handshake;
view release on metacpan or search on metacpan
lib/Device/SpaceNavigator.pm view on Meta::CPAN
if ($self->{'_fh'}) {
CORE::close $self->{'_fh'} || croak("$!");
}
}
sub update {
my ($self, $wait) = @_;
my $str;
if (!$self->{'_fh'}) {
$self->open();
view release on metacpan or search on metacpan
}
printf "firstPtr=%d lastPtr=%d\n", $firstPtr, $lastPtr;
return $self->updateArchiveFromPtr($firstPtr, $file);
}
sub updateArchiveFromPtr {
my ($self, $lastArchivedPtr, $file) = @_;
my $i;
my $rdFailed = 0;
my $newPtrHex = $self->getNewPtr();
return 0 unless defined $newPtrHex;
view release on metacpan or search on metacpan
lib/DeyeCloud/Client/Device.pm view on Meta::CPAN
map { $_ = 0 unless defined $_ } values %options;
__PACKAGE__->mk_ro_accessors(keys %options);
return bless { %options }, __PACKAGE__;
}
sub updateTime :prototype($) ($self) {
return POSIX::strftime('%F %T %Z', (localtime $self->updateTimestamp)[0 .. 5]);
}
*batteryI = \&BATC1;
view release on metacpan or search on metacpan
lib/Dezi/Bot/Utils.pm view on Meta::CPAN
otherwise returns hash ref of the updated
row.
=cut
sub update_or_insert {
my ( $dbix, $data, $vars, $where, $table, $dbh ) = @_;
# object defaults
if ( ref $dbix ) {
$where ||= $dbix->where;
view release on metacpan or search on metacpan
lib/DhMakePerl/Command/Packaging.pm view on Meta::CPAN
my $fh = $self->_file_w($file);
$fh->print( $self->cfg->dh, "\n" );
$fh->close;
}
sub update_file_list( $ % ) {
my ( $self, %p ) = @_;
my $pkgname = $self->pkgname;
while ( my ( $file, $new_content ) = each %p ) {
view release on metacpan or search on metacpan
DiaColloDB/Upgrade/Base.pm view on Meta::CPAN
};
}
## $bool = $up->updateHeader(\%extra_uinfo, \%extra_header_data)
## + updates header $dbdir/header.json, creating backup if requested
sub updateHeader {
my ($up,$xinfo,$xhdr) = @_;
my $dbdir = $up->{dbdir};
##-- backup old header if requested
!$up->{backup}
view release on metacpan or search on metacpan
} else {
return 0;
}
}
##############################################################################
sub update {
my $sid = shift;
my $file = shift || $UserSID::FILE;
if ((not $sid) || (not $sid->{'user'})) {
return 0;
view release on metacpan or search on metacpan
lib/DigitalOcean/Domain/Record.pm view on Meta::CPAN
my ($self) = @_;
return $self->Domain->path . '/' . $self->id;
}
sub update {
my $self = shift;
my (%args) = @_;
return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::Domain::Record', 'domain_record', \%args);
}
view release on metacpan or search on metacpan
dsql_test.pl view on Meta::CPAN
return $cnt == 1;
}
sub update {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_utf8_latin {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $data = do { use utf8; "ABC Jörn Reder, ÄÜÖß" };
dsql_test.pl view on Meta::CPAN
params => [ $str_short ],
what => 'update',
);
}
sub update_memory_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $memory_blob = "das äüöÄÜÖß ist ein anderer super CLOB\n" x 10;
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_file_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_memory_blob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $memory_blob = "das äüöÄÜÖß ist ein anderer ".chr(250)." super BLOB\n" x 10;
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_file_blob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_utf8_latin_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $data = do { use utf8; "Jörn Reder, ÄÜÖß\n" };
dsql_test.pl view on Meta::CPAN
unlink $file;
return $rc;
}
sub update_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
params => [ "utf8 stuff: äüöÄÜÖß \x{263a}" ],
);
}
sub update_blob_mem_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $blob = "Das sind neue Binärdaten: ÄÖÜ äöü ß\n" x 3; # kein utf8 flag
dsql_test.pl view on Meta::CPAN
);
return $rc;
}
sub update_clob_mem_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
# mit utf8-flag
dsql_test.pl view on Meta::CPAN
where => "str_short = ?",
params => [ "Ä2" ],
);
}
sub update_blob_file_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $blob = "Das sind neue Binärdaten: ÄÖÜ äöü ß\n" x 3; # kein utf8 flag
dsql_test.pl view on Meta::CPAN
unlink $file;
return $rc;
}
sub update_clob_file_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
# mit utf8-flag
view release on metacpan or search on metacpan
lib/Digest/Directory/API.pm view on Meta::CPAN
=cut
######################################################################
sub update
{
my($self, $link, $user, $pass, $file, $nodetails, $nosummary, $showequal) = @_;
print "UPDATING\n"
if (!$self->{'quiet'});
view release on metacpan or search on metacpan
lib/Disk/SMART.pm view on Meta::CPAN
$smart->update_data('/dev/sda');
=cut
sub update_data {
my ( $self, @p_devices ) = @_;
my @devices = @p_devices ? @p_devices : $self->get_disk_list();
foreach my $device (@devices) {
my $out;