view release on metacpan or search on metacpan
# in the Debugger
#
sub EnterActions {
my($self) = @_ ;
# $self->{'main_window'}->Unbusy() ;
}
#
# Subroutine called when we return from DB::DB()
# When the target script resumes.
view release on metacpan or search on metacpan
# in the Debugger
#
sub EnterActions {
my($self) = @_ ;
# $self->{'main_window'}->Unbusy() ;
}
#
# Subroutine called when we return from DB::DB()
# When the target script resumes.
view release on metacpan or search on metacpan
integration/blank-env/run-integration.pl view on Meta::CPAN
_write_text(
File::Spec->catfile( $compose, 'compose.yaml' ),
<<'YAML'
services:
hello:
image: busybox:latest
command: ["echo", "hello"]
YAML
);
_write_text(
view release on metacpan or search on metacpan
lib/Device/AVR/UPDI.pm view on Meta::CPAN
async method nvmctrl_command ( $cmd )
{
await $_updi->sts8( $_partinfo->baseaddr_nvmctrl + NVMCTRL_CTRLA, $cmd );
}
async method await_nvm_not_busy ()
{
my $timeout = 50;
while( --$timeout ) {
last if not( NVMCTRL_STATUS_FBUSY & await $_updi->lds8(
$_partinfo->baseaddr_nvmctrl + NVMCTRL_STATUS ) );
lib/Device/AVR/UPDI.pm view on Meta::CPAN
async method _write_page ( $addr, $data, $wordsize, $cmd )
{
# clear page buffer
await $self->nvmctrl_command( NVMCTRL_CMD_PBC );
await $self->await_nvm_not_busy;
# Disable response sig for speed
await $_updi->set_rsd( 1 );
if( $wordsize == 8 ) {
lib/Device/AVR/UPDI.pm view on Meta::CPAN
# Re-enable response sig again
await $_updi->set_rsd( 0 );
await $self->nvmctrl_command( $cmd );
await $self->await_nvm_not_busy;
}
async method write_flash_page ( $addr, $data )
{
await $self->_write_page( $_partinfo->baseaddr_flash + $addr, $data, 16, NVMCTRL_CMD_WP );
lib/Device/AVR/UPDI.pm view on Meta::CPAN
await $_updi->sts8 ( $baseaddr + NVMCTRL_DATA, $value );
await $self->nvmctrl_command( NVMCTRL_CMD_WFU );
await $self->await_nvm_not_busy;
}
}
class # hide from indexer
Device::AVR::UPDI::_NVMCtrlv2 {
lib/Device/AVR/UPDI.pm view on Meta::CPAN
}
# Re-enable response sig again
await $_updi->set_rsd( 0 );
await $self->await_nvm_not_busy;
# clear command
await $self->nvmctrl_command( NVMCTRL_CMD_NOCMD );
await $self->await_nvm_not_busy;
}
async method write_flash_page ( $addr, $data )
{
await $self->_set_flmap( $addr >> 15 );
view release on metacpan or search on metacpan
lib/Device/Chip/MPL3115A2.pm view on Meta::CPAN
await $chip->start_oneshot;
Sets the C<OST> bit of C<CTRL_REG1> to start a one-shot measurement when in
standby mode. After calling this method you will need to use
C<busywait_oneshot> to wait for the measurement to finish, or rely somehow on
the interrupts.
=cut
async method start_oneshot ()
lib/Device/Chip/MPL3115A2.pm view on Meta::CPAN
my $ctrl_reg1 = substr( $bytes, 0, 1 ) | "\x02"; # Set OST bit
await $self->write_reg( REG_CTRL_REG1, $ctrl_reg1 );
}
=head2 busywait_oneshot
await $chip->busywait_oneshot;
Repeatedly reads the C<OST> bit of C<CTRL_REG1> until it becomes clear.
=cut
async method busywait_oneshot ()
{
while(1) {
my $ctrl_reg1 = await $self->read_reg( REG_CTRL_REG1, 1 );
last if not( ord( $ctrl_reg1 ) & 0x02 );
}
lib/Device/Chip/MPL3115A2.pm view on Meta::CPAN
=head2 oneshot
await $chip->oneshot;
A convenient wrapper around C<start_oneshot> and C<busywait_oneshot>.
=cut
async method oneshot ()
{
await $self->start_oneshot;
await $self->busywait_oneshot;
}
field $_pending_trigger;
method _next_trigger
view release on metacpan or search on metacpan
0xD8 => "Reserved",
0xD9 => "Reserved",
0xDA => "Reserved",
0xDB => "Invalid Command or Invalid Parameter",
0xDC => "Invalid Parameter",
0xDD => "INVD: Command busy or Invalid Command.",
);
my %DST1 = (
0x00 => "Servo off",
0x01 => "Servo on",
view release on metacpan or search on metacpan
lib/Device/ELM327.pm view on Meta::CPAN
"Unsupported name" => "The vehicle does not support this value",
"Unrecognised name" => "ELM327.pm does not recognise this value",
"General Reject" => "Service was rejected. ECU did not specify the reason",
"Service Not Supported" => "The ECU does not support the requested service",
"Sub Function Not Supported - Invalid Format" => "The ECU does not support the arguments of the request message or the format of the argument bytes do not match the prescribed format for the service",
"Busy - Repeat Request" => "The ECU is temporarily too busy to perform the requested operation",
"Conditions Not Correct or Request Sequence Error" => "ECU prerequisite conditions not met. Have commands been issued in the correct order?",
"Request Correctly Received - Response Pending" => "Correct command and parameters received, but ECU is busy. Response will follow.",
};
# Negative response codes (received with a 7F Negative Response Service Identifier)
$self->{'negative_response_codes'} = {
view release on metacpan or search on metacpan
lib/Device/Gsm.pm view on Meta::CPAN
$mode = lc $mode || 'register';
$number ||= '';
my %reasons = (
'unconditional' => 0,
'busy' => 1,
'no reply' => 2,
'unreachable' => 3
);
my %modes = (
lib/Device/Gsm.pm view on Meta::CPAN
By default, it uses the currently set storage, via the C<storage()> method.
=head2 forward()
Sets call forwarding. Accepts three arguments: reason, mode and number.
Reason can be the string C<unconditional>, C<busy>, C<no reply> and
C<unreachable>. Mode can be the string C<disable>, C<enable>, C<query>,
C<register>, C<erase>.
Example:
view release on metacpan or search on metacpan
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
char* interrupt_out_buffer;
struct usb_endpoint_descriptor* interrupt_out_endpoint;
struct urb* interrupt_out_urb;
int interrupt_out_interval;
int interrupt_out_busy;
};
static ssize_t labjack_read(struct file *file, char *buffer, size_t count, loff_t *ppos);
static ssize_t labjack_read_feature(struct file *file, char *buffer, size_t count, loff_t *ppos);
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
up (&dev->sem);
labjack_delete (dev);
goto exit;
}
if (dev->interrupt_out_busy) {
wait_event_interruptible_timeout (dev->write_wait, !dev->interrupt_out_busy, 2 * HZ);
}
labjack_abort_transfers (dev);
dev->open_count = 0;
unlock_exit:
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
mb();
if (dev->interrupt_in_urb != NULL && dev->udev) {
usb_unlink_urb (dev->interrupt_in_urb);
}
}
if (dev->interrupt_out_busy) {
if (dev->interrupt_out_urb != NULL && dev->udev) {
usb_unlink_urb (dev->interrupt_out_urb);
}
}
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
labjack_check_for_read_packet(dev);
if (dev->read_packet_length > 0) {
mask |= POLLIN | POLLRDNORM;
}
if (!dev->interrupt_out_busy) {
mask |= POLLOUT | POLLWRNORM;
}
dbg(2, "%s: leave, mask = %d", __FUNCTION__, mask);
return mask;
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
if (retval < 0) {
goto unlock_exit;
}
if (read_timeout
&& (dev->read_buffer_length || dev->interrupt_out_busy)) {
timeout = jiffies + read_timeout * HZ / 1000;
}
if (read_timeout && time_after (jiffies, timeout)) {
retval = -ETIMEDOUT;
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
if (count == 0) {
dbg(1," %s : write request of 0 bytes", __FUNCTION__);
goto unlock_exit;
}
while (dev->interrupt_out_busy) {
if (file->f_flags & O_NONBLOCK) {
retval = -EAGAIN;
goto unlock_exit;
}
retval = wait_event_interruptible (dev->write_wait, !dev->interrupt_out_busy);
if (retval) {
goto unlock_exit;
}
}
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
bytes_to_write,
labjack_interrupt_out_callback,
dev,
dev->interrupt_out_interval);
dev->interrupt_out_busy = 1;
wmb();
retval = usb_submit_urb (dev->interrupt_out_urb, GFP_KERNEL);
if (retval) {
dev->interrupt_out_busy = 0;
err("Couldn't submit interrupt_out_urb %d", retval);
goto unlock_exit;
}
retval = bytes_to_write;
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
urb->status == -ECONNRESET ||
urb->status == -ESHUTDOWN)) {
dbg(1, "%s - nonzero write bulk status received: %d",
__FUNCTION__, urb->status);
}
dev->interrupt_out_busy = 0;
wake_up_interruptible(&dev->write_wait);
usb_labjack_debug_data(5,__FUNCTION__, urb->actual_length, urb->transfer_buffer);
dbg(4," %s : leave, status %d", __FUNCTION__, urb->status);
}
linux-labjack/driver/linux-2.6/labjack.c view on Meta::CPAN
dev->interrupt_in_done = 0;
dev->interrupt_out_buffer = NULL;
dev->interrupt_out_endpoint = NULL;
dev->interrupt_out_urb = NULL;
dev->interrupt_out_busy = 0;
iface_desc = &interface->altsetting[0];
for (i = 0; i < iface_desc->desc.bNumEndpoints; ++i) {
endpoint = &iface_desc->endpoint[i].desc;
view release on metacpan or search on metacpan
lib/Device/Modem.pm view on Meta::CPAN
# 'OK' => 'Command executed without errors',
# 'RING' => 'Detected phone ring',
# 'NO CARRIER' => 'Link not established or disconnected',
# 'ERROR' => 'Invalid command or command line too long',
# 'NO DIALTONE' => 'No dial tone, dialing not possible or wrong mode',
# 'BUSY' => 'Remote terminal busy'
#);
# object constructor (prepare only object)
sub new {
my($proto,%aOpt) = @_; # Get reference to object
view release on metacpan or search on metacpan
lib/Device/TLSPrinter.pm view on Meta::CPAN
my %status = (
printhead_open => $chars[0] eq "Y" ? 1 : 0,
out_of_labels => $chars[1] eq "Y" ? 1 : 0,
out_of_ribbon => $chars[2] eq "Y" ? 1 : 0,
printing_batch => $chars[3] eq "Y" ? 1 : 0,
busy_printing => $chars[4] eq "Y" ? 1 : 0,
printer_paused => $chars[5] eq "Y" ? 1 : 0,
touch_cell_error => $chars[6] eq "Y" ? 1 : 0,
low_battery => $chars[7] eq "Y" ? 1 : 0,
);
view release on metacpan or search on metacpan
bin/dezibot view on Meta::CPAN
# TODO
# if urls > workers, divide urls into pools
# of $pool_size, and assign each pool to a worker.
# if we can't schedule all urls immediately,
# then schedule the rest of the pools to start as each
# worker finishes. The goal is to keep all workers busy,
# not to wait on the slowest.
else {
exit(0);
}
view release on metacpan or search on metacpan
t/contents/test_debian_dists_sid_main_Contents view on Meta::CPAN
bin/bash shells/bash
bin/bash-minimal shells/bash-minimal
bin/bash-static shells/bash-static
bin/bsd-csh shells/csh
bin/bunzip2 utils/bzip2
bin/busybox utils/busybox,shells/busybox-static
bin/bzcat utils/bzip2
bin/bzcmp utils/bzip2
bin/bzdiff utils/bzip2
bin/bzegrep utils/bzip2
bin/bzexe utils/bzip2
view release on metacpan or search on metacpan
DiaColloDB/Client/list.pod view on Meta::CPAN
extend => $boo, ##-- use extend() queries to acquire correct f2 counts? (default=true)
logFudge => $level, ##-- log-level for fudge-coefficient debugging (default='debug')
logThread => $level, ##-- log-level for thread operations (default='none')
##
##-- guts
#clis => \@clis, ##-- per-url sub-clients for "busy" (non-"lazy") mode
The most important client parameter is the fudge-coefficient option C<fudge=E<gt>$fudge>, which requests
that up to C<$fudge*$kbest> items be retrieved from sub-clients for each L<profile()|profile>
call. If C<$fudge E<lt> 0>, all collocates will be retrieved from each sub-client,
and trimming will be performed exclusively by the superordinate DiaColloDB::Client::list object.
view release on metacpan or search on metacpan
I got a hat not a visor - I drink Budweiser
The turntables - up on the drum riser
The needle's in the groove and the vinyl's on the platter
I know that I'm fly man there's no need to flatter
I travel around the globe - it's keeping girlies dizzy
My name's Mike D. - now watch me get busy y'all
You're a fake wearin' sucker whose gold got rusted
Cheaper than a hot do with no mustard
You tried to steal my fresh and you got cold busted
Because your crew's all soft and I'm disgusted
Radar detector to tell me where the cops is Spend another night at the
Motel 6 It's five dollars extra get the porno flicks Concoct a black and
tan in my brandy snifter I'm a kleptomaniac K-Mart shoplifter Cash flow
getting low so I had to pull a job I found a nice place to visit but a
better place to rob Left the car outside with the engine still revvin' Time
to get busy at 7-Eleven Went inside to make my withdrawal I would've took
what he had had had I had to take it all Knucklehead deli tried to gyp me
on the price So I clocked him off the turban with the bag of ice Mellow
like Jell-O cool like lemonade Made my getaway and I thought that I had it
made I feel like Steve McQueen a former movie star Look in my rearview
mirror seen a police car Ballantine quarts with the puzzle on the cap I
his orange Stay up all night go to sleep watching Dragnet Never sleep alone
because Jimmy's the magnet I'm so rope they call me Mr. Roper When
the troubles arise I'm the cool coper On the mic I score just like
the Yankees Get over on Ms. Crabtree like my main man Spankee Excuse me
young lady I don't mean to trouble ya But you're looking mighty fine inside
your B.M.W. I got lucky I brought home a kitten Before I got busy I
schlepped on my mitten Can't get better odds cause I'm a sure thing Proud
Mary keeps on turning rolling like a Ring Ding Jump the turnstile never pay
the tool Doo wa diddy bust with the pre-roll Customs jail me over an herb
seed Don't rat on your boy over some rat weed Not perfect grammar always
perfect timing The Mike stands for money and the D. is for diamonds Out of
view release on metacpan or search on metacpan
lib/Dir/Flock.pm view on Meta::CPAN
the module will wait after a failed attempt to acquire a lock before
attempting to acquire it again. The default value is 0.001,
which is a good setting for having a high throughput when the
synchronized operations take a short amount of time. In contexts
where the synchronized operations take a longer time, it may
be appropriate to increase this value to reduce busy-waiting CPU
utilization.
=cut
# also under VARIABLES: HEARTBEAT_CHECK
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/ApocalypseTests.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Authority.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Bitbucket.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Config/Git.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/DualBuilders.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/MinimumPerl.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Pinto/Add.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Test/UseAllModules.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/Apocalyptic.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/Author/BBYRD.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L3.txt view on Meta::CPAN
Net::ICal::Attendee
Net::ICal::Daylight
Net::ICal::Duration
Net::ICal::ETJ
Net::ICal::Event
Net::ICal::Freebusy
Net::ICal::FreebusyItem
Net::ICal::Journal
Net::ICal::Period
Net::ICal::Recurrence
Net::ICal::Standard
Net::ICal::Time
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/Prereqs.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Role/MetaCPANInterfacer.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Dist/Zilla/Role/PluginBundle/Merged.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *