view release on metacpan or  search on metacpan

lib/AC/DC/IO.pm  view on Meta::CPAN

        $x->_timeout();
    }

    my $t2 = time();

    # track idle/busy time
    # debug("add idle? $t0, $t1, $t2 " . (defined &add_idle ? 'f' : '!'));
    add_idle( $t1 - $t0, $t2 - $t0 ) if defined &add_idle;
}

sub mainloop {

 view release on metacpan or  search on metacpan

lib/ACME/QuoteDB/DB/DBI.pm  view on Meta::CPAN

                   unicode    => 1,
                   # func/pragma's may not work here,..(probably isnt' smart anyway)
                   #count_changes  => 0,
                   #temp_store     => 2,
                   #synchronous    => 'OFF',
                   #busy_timeout => 3600000
               }
           )
      || croak "$QUOTES_DATABASE does not exist, or cant be created $!";

      # how to enable this function?
      #ACME::QuoteDB::DB::DBI->set_sql(func( 3600000, 'busy_timeout' ); 
}


sub get_current_db_path {
    return $QUOTES_DATABASE;

 view release on metacpan or  search on metacpan

lib/AFS/Command/VOS.pm  view on Meta::CPAN

	#
	if ( /^\*{4}/ ) {

	    my $header = AFS::Object::VolumeHeader->new();

	    if ( /Volume (\d+) is busy/ ) {
		$header->_setAttribute
		  (
		   id			=> $1,
		   status		=> 'busy',
		   attached		=> 1,
		  );
	    } elsif ( /Could not attach volume (\d+)/ ) {
		$header->_setAttribute
		  (

lib/AFS/Command/VOS.pm  view on Meta::CPAN

	    next if /^\s*$/;

	    s/\s+$//;

	    if ( /^Total volumes onLine (\d+) ; Total volumes offLine (\d+) ; Total busy (\d+)/ ) {
		$partition->_setAttribute
		  (
		   online		=> $1,
		   offline		=> $2,
		   busy			=> $3,
		  );
		last;		# Done with this partition
	    }

	    if ( /Volume (\d+) is busy/ ) {
		my $volume = AFS::Object::VolumeHeader->new
		  (
		   id			=> $1,
		   status		=> 'busy',
		   attached		=> 1,
		  );
		$partition->_addVolumeHeader($volume);
		next;
	    } elsif ( /Could not attach volume (\d+)/ ) {

 view release on metacpan or  search on metacpan

examples/xstat_fs_test  view on Meta::CPAN

  printf "\t%10d rx_packetsSent_SendClass\n",    $data->{rx_packetsSent_SendClass};
  printf "\t%10d rx_packetsSent_SpecialClass\n", $data->{rx_packetsSent_SpecialClass};
  printf "\t%10d rx_ackPacketsSent\n",     $data->{rx_ackPacketsSent};
  printf "\t%10d rx_pingPacketsSent\n",    $data->{rx_pingPacketsSent};
  printf "\t%10d rx_abortPacketsSent\n",   $data->{rx_abortPacketsSent};
  printf "\t%10d rx_busyPacketsSent\n",    $data->{rx_busyPacketsSent};
  printf "\t%10d rx_dataPacketsSent\n",    $data->{rx_dataPacketsSent};
  printf "\t%10d rx_dataPacketsReSent\n",  $data->{rx_dataPacketsReSent};
  printf "\t%10d rx_dataPacketsPushed\n",  $data->{rx_dataPacketsPushed};
  printf "\t%10d rx_ignoreAckedPacket\n",  $data->{rx_ignoreAckedPacket};
  printf "\t%10d rx_totalRtt_Sec\n",       $data->{rx_totalRtt_Sec};

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

      https://rt.cpan.org/Public/Dist/Display.html?Name=AFS-PAG

  I welcome bug reports and patches for this package at rra@cpan.org or
  via the CPAN bug tracker.  However, please be aware that I tend to be
  extremely busy and work projects often take priority.  I'll save your
  mail and get to it as soon as I can, but it may take me a couple of
  months.

SOURCE REPOSITORY

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

   AFS::Cell, AFS::CM, AFS::FS, AFS::BOS, and AFS::KTC_EKEY
 * improved POD documentation for AFS::FS and AFS
 * POD documentation gets installed automatically
 * fixed method AFS::VLDB->listaddrs: lists now all servers
 * fixed method AFS::VOS->listvol: returns correct name and volid when
   volume is busy
 * fixed method AFS::VOS->listvldb: returns proper "release" strings
 * improved error messages when OpenAFS configuration files are missing
 * compiles now with OpenAFS system libraries newer than 1.4.4
 * improved Makefile.PL script to avoid interactive queries

 view release on metacpan or  search on metacpan

demo/cpu.pl  view on Meta::CPAN

$f->addlabel("completely idle",       99,   100, 101);
$f->addlabel("very idle",       90,   95, 100);
$f->addlabel("idle",   		80,   87,  92);
$f->addlabel("somewhat idle",   40,   65,  80);
$f->addlabel("somewhat busy",   20,   45 , 60);
$f->addlabel("busy",            8,    13,  20);
$f->addlabel("very busy",        0,   5,  10);
$f->addlabel("completely busy",  -1,  0,  1);


my $count=100;

while (1) {

 view release on metacpan or  search on metacpan

libmegahal.c  view on Meta::CPAN

/*
 *		Function:	Usleep
 *
 *		Purpose:		Simulate the Un*x function usleep.  Necessary because
 *						Microsoft provide no similar function.  Performed via
 *						a busy loop, which unnecessarily chews up the CPU.
 *						But Windows '95 isn't properly multitasking anyway, so
 *						no-one will notice.  Modified from a real Microsoft
 *						example, believe it or not!
 */
#if defined(DOS) || defined(__mac_os)

 view release on metacpan or  search on metacpan

lib/API/Google/GCal.pm  view on Meta::CPAN

    }, $event_data);
}



sub busy_time_ranges {
   my ($self, $params) = @_;
    $self->api_query({ 
      method => 'post', 
      route => $self->{api_base}.'/freeBusy',
      user => $params->{user}

lib/API/Google/GCal.pm  view on Meta::CPAN

    $event_data->{end}{dateTime} = DateTime::Format::RFC3339->format_datetime($event_end);
    $event_data->{start}{timeZone} = $event_data->{end}{timeZone} = $timeZone; # not obligatory

    $gapi->add_event($user, $calendar_id, $event_data);

    my $freebusy_data = {
      user => $user,
      calendarId => $calendar_id,
      dt_start => DateTime::Format::RFC3339->format_datetime($event_start),
      dt_end => DateTime::Format::RFC3339->format_datetime($event_end),
      timeZone => 'Europe/Moscow'
    };

    $gapi->busy_time_ranges($freebusy_data);

    $gapi->events_list($freebusy_data);

=head2 get_calendars

Get all calendars of particular Google account

lib/API/Google/GCal.pm  view on Meta::CPAN

$gapi->add_event($user, $calendar_id, $event_data)

# https://developers.google.com/google-apps/calendar/v3/reference/events/insert

=head2 busy_time_ranges

Return List of time ranges during which this calendar should be regarded as busy. 

=head2 events_list

Return list of events in particular calendar

 view release on metacpan or  search on metacpan

lib/ASNMTAP/Asnmtap/Plugins/Modem.pod  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

returns the exact modem answer in the C<$answer> scalar. C<$answer> typically can contain strings like C<CONNECT 19200> or C<NO CARRIER>, C<BUSY>, ... all standard modem answers to a dial command.

=over 4

lib/ASNMTAP/Asnmtap/Plugins/Modem.pod  view on Meta::CPAN

   print 'ASNMTAP::Asnmtap::Plugins::Modem::get_modem_request::actionOnModemResponse: ', $asnmtapInherited->programDescription (), "\n" if ( $debug );

   unless ( $$ok ) {
     my $ATDT = 'ATDT'. $$parms{phonenumber};
     my $busy = ( $$answer eq $ATDT ? 1 : ( $$answer =~ /^$ATDT\s*(?:BUSY)?\s*$/ ? 2 : 0 ) );

     if ( $busy ) {
       $$answer = 'SKIP HANGUP' if ( $busy == 2 );
       print "OK: BUSY\n" if ($debug);
       $$ok = 1;
     } else {
       print "NOK: BUSY\n" if ($debug);
       $$not_connected_guess++;

 view release on metacpan or  search on metacpan

share/AXLSoap.xsd  view on Meta::CPAN

							<xsd:sequence>
								<xsd:element name="speeddial" type="axlapi:XSpeeddial" minOccurs="0" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:element name="busyLampFields" minOccurs="0">
						<xsd:complexType>
							<xsd:sequence>
								<xsd:element name="busyLampField" type="axlapi:XBusyLampField" minOccurs="0" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:choice minOccurs="0">
						<xsd:element name="primaryPhone" type="axlapi:XDevice">

share/AXLSoap.xsd  view on Meta::CPAN

			<xsd:element name="displayASCII" type="axlapi:String50" nillable="true" minOccurs="0"/>
			<xsd:element name="e164Mask" type="axlapi:String255" nillable="true" minOccurs="0"/>
			<xsd:element name="dialPlanWizardId" type="xsd:nonNegativeInteger" minOccurs="0"/>
			<xsd:element name="mwlPolicy" type="xsd:string" minOccurs="0"/><!--This field is of the type axl:XMWLPolicy in AXLEnums.xsd-->
			<xsd:element name="maxNumCalls" type="xsd:nonNegativeInteger" nillable="false" minOccurs="0"/>
			<xsd:element name="busyTrigger" type="xsd:nonNegativeInteger" nillable="false" minOccurs="0"/>
			<xsd:element name="callInfoDisplay">
				<xsd:complexType>
					<xsd:sequence>
						<xsd:element name="callerName" type="xsd:boolean" default="true" minOccurs="0"/>
						<xsd:element name="callerNumber" type="xsd:boolean" default="false" minOccurs="0"/>

share/AXLSoap.xsd  view on Meta::CPAN

         <xsd:enumeration value="A multi-field uniqueness has been violated on this table.  A combination of 2 or more columns on a table that need to be unique together are not."/>
         <xsd:enumeration value="Checkout or checkin successful"/>
         <xsd:enumeration value="Checkout or checkin successful using OVERDRAFT"/>
         <xsd:enumeration value="Phone cannot have the same line more than once (duplicate NumPlanIndex)"/>
         <xsd:enumeration value="Sum of device's line appearance values for maxNumCalls exceed device limitation"/>
         <xsd:enumeration value="A line's busy trigger cannot exceed its maxNumCalls setting"/>
         <xsd:enumeration value="Post-insert validation of pkid and isCallable in NumPlan failed"/>
         <xsd:enumeration value="Update of NumPlan to isCallable = TRUE failed"/>
         <xsd:enumeration value="Automatic update of CTIID during insert into DeviceNumPlanMap failed due to overflow"/>
         <xsd:enumeration value="Busy Trigger cannot be greater than 1 because the specified device type does not support Call Waiting"/>
         <xsd:enumeration value="A DN cannot be associated with this type of Device"/>

share/AXLSoap.xsd  view on Meta::CPAN

         <xsd:enumeration value="Phone cannot have the same Intercom line more than once (duplicate NumPlanIndex)"/>
         <xsd:enumeration value="Only one Mobility number each for Handoff, DTMF and IVR is allowed."/>
         <xsd:enumeration value="Intercom Default Device cannot be a Device Profile or BAT Template."/>
         <xsd:enumeration value="Log Missed Calls option can only be set for devices that support this feature."/>
         <xsd:enumeration value="This device has restricted value on maximum call, input value is not valid."/>
         <xsd:enumeration value="This device has restricted value on busy trigger, input value is not valid."/>
         <xsd:enumeration value="The list of Partition names (Clause) in a Calling Search Space is too long as a result of this operation (more than 1024 characters). Shorten the Partition names or use fewer Partitions in the Calling Search Space."/>...
         <xsd:enumeration value="The CSS cannot be deleted since gateway(s) is associated with it and useDevicePoolCdpnTransformCSS is false"/>
         <xsd:enumeration value="The CSS cannot be deleted since phone(s) is associated with it and useDevicePoolCgpnTransformCSS is false"/>
         <xsd:enumeration value="Uniqueness check of pilotNumber + CSSID failed"/>
         <xsd:enumeration value="Uniqueness check of Pilot IsDefault = 1 failed"/>

share/AXLSoap.xsd  view on Meta::CPAN

         <xsd:enumeration value="National, International and Subscriber Prefixes must be empty for SIP trunks"/>
         <xsd:enumeration value="Only H225 trunk (gatekeep controlled) and SIP trunk can have non-zero Allocated License Unit"/>
         <xsd:enumeration value="Remote Destination Profile and Dual Mode Device can only have Call Reject DND option"/>
         <xsd:enumeration value="IsProtected setting can only be true for devices supporting secure tone feature "/>
         <xsd:enumeration value="Security Profile used with Protected device must be secure (encrypted)"/>
         <xsd:enumeration value="Protected device does not support shared line and all lines on a protected device must have max calls (and busy trigger) set to 1."/>
         <xsd:enumeration value="Device does not support SmartClient feature. "/>
         <xsd:enumeration value="Remote Cisco Unified Communications Manager is already defined for other ICT Trunk."/>
         <xsd:enumeration value="Cannot add more than one IP Media Streaming software devices per type (CFB,MOH,ANN,SVR) per server."/>
         <xsd:enumeration value="Cannot use QSIG Variant or ASN1 Rose OID Encoding because QSIG is not enabled for this device. Enable QSIG protocol or tunneling and try again."/>
         <xsd:enumeration value="Attempted to insert an invalid product into the device table. Make sure the product is an endpoint device and try again."/>

share/AXLSoap.xsd  view on Meta::CPAN

							<xsd:sequence>
								<xsd:element name="speeddial" type="axlapi:XSpeeddial" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:element name="busyLampFields" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The new Busy Lamp Fields for this profile.  If this element is null, then all  Busy Lamp Fields are removed from this profile.  Note:  If the " Busy Lamp Fields" element is present, then all existing  Busy Lamp Fields are re...
						</xsd:annotation>
						<xsd:complexType>
							<xsd:sequence>
								<xsd:element name="busyLampFields" type="axlapi:XBusyLampField" minOccurs="0" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:choice minOccurs="0">
						<xsd:element name="primaryPhoneId" type="axlapi:XDevice">

share/AXLSoap.xsd  view on Meta::CPAN

							<xsd:documentation>The Calling Search Space and destination for Call Forwarding on this line.</xsd:documentation>
						</xsd:annotation>
					</xsd:element>
					<xsd:element name="callForwardBusy" type="axlapi:XCallForwardInfo" nillable="true" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The Calling Search Space and destination for Call Forwarding when this line is busy for external calls.</xsd:documentation>
						</xsd:annotation>
					</xsd:element>
					<xsd:element name="callForwardBusyInt" type="axlapi:XCallForwardInfo" nillable="true" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The Calling Search Space and destination for Call Forwarding when this line is busy for internal calls.</xsd:documentation>
						</xsd:annotation>
					</xsd:element>
					<xsd:element name="callForwardNoAnswer" type="axlapi:XCallForwardInfo" nillable="true" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The Calling Search Space and destination for Call Forwarding when there is no answer on this line for external calls.</xsd:documentation>

share/AXLSoap.xsd  view on Meta::CPAN

							<xsd:sequence>
								<xsd:element name="speeddial" type="axlapi:XSpeeddial" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:element name="busyLampFields" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The new Busy Lamp Fields for this profile.  If this element is null, then all  Busy Lamp Fields are removed from this profile.  Note:  If the " Busy Lamp Fields" element is present, then all existing  Busy Lamp Fields are re...
						</xsd:annotation>
						<xsd:complexType>
							<xsd:sequence>
								<xsd:element name="busyLampField" type="axlapi:XBusyLampField" minOccurs="0" maxOccurs="unbounded"/>
							</xsd:sequence>
						</xsd:complexType>
					</xsd:element>
					<xsd:element name="ringSettingIdleBLFAudibleAlert" type="xsd:string" default="Default" nillable="false" minOccurs="0"/><!--This field is of the type axl:XStatus in AXLEnums.xsd-->
					<xsd:element name="ringSettingBusyBLFAudibleAlert" type="xsd:string" default="Default" nillable="false" minOccurs="0"/><!--This field is of the type axl:XStatus in AXLEnums.xsd-->

 view release on metacpan or  search on metacpan

fortune/jackbauer  view on Meta::CPAN

%
Whoever said cheaters never prosper asked Jack Bauer first.
%
If an airplane carrying Jack Bauer went down over Africa, the lion would no longer be "king of the jungle".
%
Jack Bauer paid the cougar and Kevin Dillon to keep Kim busy in Season 2.  But, alas, Kim escaped because she is, of course, half Jack Bauer.
%
The safety on Jack's gun isn't there to protect Jack. It's there to protect the gun.
%
Texas does not "Hold 'Em", Jack Bauer does.

fortune/jackbauer  view on Meta::CPAN

%
Please forgive Kim Bauer for her imperfections. After all she is half human.
%
When Russell Crowe threw a phone at that guy, Jack Bauer was on the other line.
%
Jack Bauer doesn't get busy signals. No one is too busy to talk to Jack Bauer.
%
The only reason Jack Bauer didn't enter and win every men's event at the Winter Olympics is that there aren't enough terrorists in Italy to keep him occupied between events. Oh, and he thinks figure skating is gay.
%
Jack Bauer has never used the Pause button during any video game.
%

fortune/jackbauer  view on Meta::CPAN

%
I pissed my pants once during 24.  Not because I was scared.  Because if Jack Bauer can hold it in for 24 hrs, I can hold it in for one.
%
Jack Bauer can dunk with no hands.
%
Jack Bauer is in the dictionary, under 'pain.' Oh yeah, and 'busy motherfucker' too.
%
If Jack Bauer told you to stop looking at these facts, you would stop looking at these facts.
%
Jack Bauer wires a flash bang to his alarm clock every night before bed.
%

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2018_12_06_making-a-list-with-yancy_  view on Meta::CPAN

</ul>
</code></pre>

<h1>Step 3: Complete Delivery</h1>

<p>Santa&#39;s a busy robot, and all that ordnance is expensive. Once he&#39;s done
a delivery, he needs to mark it as done so he can move on to all the
other deserving people.</p>

<p><img alt="Santa Robot (from Futurama) writing on his list with a quill
pen" src="editing-list.png"></p>

 view release on metacpan or  search on metacpan

devdata/http_advent.perldancer.org_2018_13  view on Meta::CPAN

<div id="content">
<div class="pod-document"><h1><a name="the_twelve_days_of_dancer"></a>The Twelve Days of Dancer</h1>

<p>Hello and goodbye, 2018! It seems like we hardly knew you. It's been a few 
years since our last calendar, and while everyone here is busy with other 
projects, we still wanted to give you a mini-advent-calendar this year. 
Welcome to the Twelve Days of Dancer!</p>
<p>This year's calendar features twelve posts that cover a wide range of topics.
We feature several new authors, cover some new ground (for us!) with an
article on accessibility, and even have a crossover post showing how Dancer

 view release on metacpan or  search on metacpan

lib/Acme/CreatingCPANModules.pm  view on Meta::CPAN

This is not so someone judges whether your contribution is worth it or
not. It's just so you can tell the real people from the trolls.

You have a few days (because the PAUSE administrators aren't many and
they might be busy) and eventually you'll get an answer. There's a
slight chance (just slight) that your request doesn't get looked at.
If you don't get an answer, try again about a week later, but this is
really not common, I'm just warning you :-)

[third picture]

 view release on metacpan or  search on metacpan

lib/Acme/DeepThoughts.pm  view on Meta::CPAN

The crows seemed to be calling his name, thought Caw.
I have to laugh when I think of the first cigar, because it was probably just a bunch of rolled-up tobacco leaves.
When you die, if you get a choice between going to regular heaven or pie heaven, choose pie heaven. It might be a trick, but if it's not, mmmmmmm, boy.
Whether they find a life there or not, I think Jupiter should be called an enemy planet.
Instead of trying to build newer and bigger weapons of destruction, we should be thinking about getting more use out of the ones we already have.
I think a good gift for the President would be a chocolate revolver. and since he is so busy, you'd probably have to run up to him real quick and give it to him.
Just because swans mate for life, I don't think it's that big a deal. First of all, if you're a swan, you're probably not going to find a swan that looks much better than the one you've got, so why not mate for life?
If you're robbing a bank and you're pants fall down, I think it's okay to laugh and to let the hostages laugh too, because, come on, life is funny.
If you ever catch on fire, try to avoid looking in a mirror, because I bet that will really throw you into a panic.
Sometimes I think I'd be better off dead. No, wait, not me, you.
I can't stand cheap people. It makes me real mad when someone says something like, "Hey, when are you going to pay me that $100 you owe me?" or "Do you have that $50 you borrowed?" Man, quit being so cheap!

 view release on metacpan or  search on metacpan

t/wild.txt  view on Meta::CPAN

made his damnation certain. For to play a system requires money, while
the wages of a gardener's helper do not lap over the needs of a wife and
numerous progeny.

The Judge was at a meeting of the Raisin Growers' Association, and the
boys were busy organizing an athletic club, on the memorable night of
Manuel's treachery. No one saw him and Buck go off through the orchard
on what Buck imagined was merely a stroll. And with the exception of a
solitary man, no one saw them arrive at the little flag station known
as College Park. This man talked with Manuel, and money chinked between
them.

t/wild.txt  view on Meta::CPAN

Chapter III. The Dominant Primordial Beast


The dominant primordial beast was strong in Buck, and under the fierce
conditions of trail life it grew and grew. Yet it was a secret growth.
His newborn cunning gave him poise and control. He was too busy
adjusting himself to the new life to feel at ease, and not only did
he not pick fights, but he avoided them whenever possible. A certain
deliberateness characterized his attitude. He was not prone to rashness
and precipitate action; and in the bitter hatred between him and Spitz
he betrayed no impatience, shunned all offensive acts.

t/wild.txt  view on Meta::CPAN

craftily, when Francois was not around, With the covert mutiny of Buck,
a general insubordination sprang up and increased. Dave and Sol-leks
were unaffected, but the rest of the team went from bad to worse.
Things no longer went right. There was continual bickering and jangling.
Trouble was always afoot, and at the bottom of it was Buck. He kept
Francois busy, for the dog-driver was in constant apprehension of the
life-and-death struggle between the two which he knew must take place
sooner or later; and on more than one night the sounds of quarrelling
and strife among the other dogs turned him out of his sleeping robe,
fearful that Buck and Spitz were at it.

 view release on metacpan or  search on metacpan

author/en2kana.csv  view on Meta::CPAN

burn,バーン
burst,バースト
bus,バス
bush,ブッシュ
business,ビジネス
busy,ビジー
but,But
butter,バター
butterfly,バタフライ
button,ボタン
buy,バイ

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/services.pm  view on Meta::CPAN

bullant_srap
burp
busboy
buschtrommel
business
busycal
bv_agent
bvcdaemon_port
bvcontrol
bv_ds
bveapi

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/nethack.pm  view on Meta::CPAN

But_you_aren_t_drowning
Child_of_the_night__I_beg_you__help_me_satisfy_this_growing_craving
Child_of_the_night__I_can_stand_this_craving_no_longer
Child_of_the_night__I_find_myself_growing_a_little_weary
Click__You_trigger_a_rolling_boulder_trap
Death_is_busy_reading_a_copy_of_Sandman_8
Disarm_it_
Doc__I_can_t_help_you_unless_you_cooperate
Don_t_be_ridiculous
Eh_
Even_now_thy_life_force_ebbs__blackguard

lib/Acme/MetaSyntactic/nethack.pm  view on Meta::CPAN

Your_candle_s_flame_flickers_low
Your_concentration_falters_while_carrying_so_much_stuff
Your_consciousness_is_fading
Your_feet_slip_out_of_the_stirrups
Your_gloves_seem_unaffected
Your_hands_seem_to_be_too_busy_for_that
Your_lantern_is_getting_dim
Your_limbs_are_getting_oozy
Your_limbs_are_stiffening
Your_limbs_have_turned_to_stone
Your_neck_is_becoming_constricted

 view release on metacpan or  search on metacpan

OneHundredNotOut.pm  view on Meta::CPAN

the whole thing. So much so, that I produced vast numbers of design
documents for the language, most of which now ignored, but that's OK,
and set to work helping Dan design the core of the interpreter too. In
fact, I somehow managed to do so much work on it that, after a hacking
session together at O'Reilly in Boston in 2001, Dan let me be the
release pumpking of L<parrot>, a job I did until life got busy in 2002.
I'm extremely happy to have been involved in that, and hope I didn't
start the project off on too much of a bad footing. It looks to be doing
fine now, at least.

I was still interested in how they're going to make the Perl 6 parser

 view release on metacpan or  search on metacpan

lib/Acme/SOAP/Dodger.pm  view on Meta::CPAN

=head1 Why, dear God, why?

I was having a discussion on why SOAP sucked. And it lent itself to amusing
jokes and japes. Oh, what witty people programmers are, eh? This was
constructed in a few minutes. No doubt there are cleverer ways of doing it. I
don't care. I am too busy being a hater.

=cut

use strict;
use warnings;

 view release on metacpan or  search on metacpan

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

               # Shut down atmost one idle worker, starting from the highest
               # ID. Since we search from lowest to assign work, this tries
               # to ensure we'll shut down the least useful ones first,
               # keeping more useful ones in memory (page/cache warmth, etc..)
               foreach my $id ( reverse sort keys %$workers ) {
                  next if $workers->{$id}{busy};

                  $workers->{$id}->stop;
                  last;
               }

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

=head2 call

   @result = $function->call( %params )->get

Schedules an invocation of the contained function to be executed on one of the
worker processes. If a non-busy worker is available now, it will be called
immediately. If not, it will be queued and sent to the next free worker that
becomes available.

The request will already have been serialised by the marshaller, so it will be
safe to modify any referenced data structures in the arguments after this call

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

{
   my $self = shift;
   return scalar keys %{ $self->{workers} };
}

=head2 workers_busy

   $count = $function->workers_busy

Returns the number of worker processes that are currently busy

=cut

sub workers_busy
{
   my $self = shift;
   return scalar grep { $_->{busy} } $self->_worker_objects;
}

=head2 workers_idle

   $count = $function->workers_idle

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

=cut

sub workers_idle
{
   my $self = shift;
   return scalar grep { !$_->{busy} } $self->_worker_objects;
}

sub _new_worker
{
   my $self = shift;

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

sub _get_worker
{
   my $self = shift;

   foreach ( sort keys %{ $self->{workers} } ) {
      return $self->{workers}{$_} if !$self->{workers}{$_}{busy};
   }

   if( $self->workers < $self->{max_workers} ) {
      return $self->_new_worker;
   }

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

   $worker->{arg_channel}->close;

   if( my $function = $worker->parent ) {
      delete $function->{workers}{$worker->id};

      if( $worker->{busy} ) {
         $worker->{remove_on_idle}++;
      }
      else {
         $function->remove_child( $worker );
      }

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

   my $worker = shift;
   my ( $args ) = @_;

   $worker->{arg_channel}->send_encoded( $args );

   $worker->{busy} = 1;
   $worker->{max_calls}--;

   return $worker->{ret_channel}->recv->then(
      # on recv
      $worker->_capture_weakself( sub {

local/lib/perl5/IO/Async/Function.pm  view on Meta::CPAN

         return Future->fail( "closed", "closed" );
      } )
   )->on_ready( $worker->_capture_weakself( sub {
      my ( $worker, $f ) = @_;
      $worker->{busy} = 0;

      my $function = $worker->parent;
      $function->_dispatch_pending if $function;

      $function->remove_child( $worker ) if $function and $worker->{remove_on_idle};

 view release on metacpan or  search on metacpan

lib/Acme/Spinner.pm  view on Meta::CPAN

=head1 ABSTRACT

This is a simple module that helps manage one of those silly spinning
bar things that some programs use when they want you to think they
are busy.

=head1 DESCRIPTION

Some programs take a long time to do some functions.  Sometimes
people are get confused about what is happening and start pressing
buttons in an effort to illicit some response while a program is
taking a long time.  Strangely enough if the program gives the
person using it something to watch while it is busy with other work
the person is much more likely to leave the program alone so that
can finish its work. 

=head1 METHODS

 view release on metacpan or  search on metacpan

lib/Acme/Web/PodDisplay.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

public/doc/bg/intro.md  view on Meta::CPAN

  4. Създаване на контролери за управление на потребители и групи.


Красимир Беров, 2014-05-06

[^adobg]: Ado - busy or delaying activity; bustle; fuss - суматоха, бъркотия, суетня.
Вижте също http://www.thefreedictionary.com/ado

[^mvcbg]: http://bg.wikipedia.org/wiki/MVC

[^restbg]: http://bg.wikipedia.org/wiki/REST

 view release on metacpan or  search on metacpan

lib/Aion/Fs.pm  view on Meta::CPAN

=head2 erase (@paths)

Удаляет файлы и пустые каталоги. Возвращает C<@paths>. При ошибке ввода-вывода выбрасывает исключение.

	eval { erase "/" }; $@  # ~> erase dir /: Device or resource busy
	eval { erase "/dev/null" }; $@  # ~> erase file /dev/null: Permission denied

=head3 See also

=over

 view release on metacpan or  search on metacpan

lib/Algorithm/TokenBucket.pm  view on Meta::CPAN

=item until($)

This method returns the number of seconds until I<N> tokens can be removed
from the bucket. It is especially useful in multitasking environments like
L<POE> where you cannot busy-wait. One can safely schedule the next
C<< conform($N) >> check in C<< until($N) >> seconds instead of checking
repeatedly.

Note that C<until()> does not take into account C<burst size>. This means
that a bucket will not conform to I<N> even after sleeping for C<< until($N) >>

lib/Algorithm/TokenBucket.pm  view on Meta::CPAN

        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while (my $mail = get_next_mail) {
        until ($rl1->conform(1) && $rl2->conform(1)) {
            busy_wait;
        }

        $mail->take_off;
        $rl1->count(1); $rl2->count(1);
    }

 view release on metacpan or  search on metacpan

corpus/libpalindrome/install-sh  view on Meta::CPAN

      # to itself, or perhaps because mv is so ancient that it does not
      # support -f.
      {
        # Now remove or move aside any old file at destination location.
        # We try this two ways since rm can't unlink itself on some
        # systems and the destination file might be busy for other
        # reasons.  In this case, the final cleanup might fail but the new
        # file should still install successfully.
        {
          test ! -f "$dst" ||
          $doit $rmcmd -f "$dst" 2>/dev/null ||