view release on metacpan or search on metacpan
lib/Fuse/Filesys/Virtual.pm view on Meta::CPAN
sub unlink {
my $self = shift;
my ($fname) = @_;
my $busy = eval {
return -EBUSY() if ($self->{_cache}->is_busy($fname));
};
return $busy if ($busy);
eval {
unless ($self->{_filesys}->delete($fname)) {
$! = EPERM;
die "failure";
lib/Fuse/Filesys/Virtual.pm view on Meta::CPAN
sub rmdir {
my $self = shift;
my ($dirname) = @_;
my $busy = eval {
return -EBUSY() if ($self->{_cache}->is_busy($dirname));
};
return $busy if ($busy);
eval {
$self->{_filesys}->rmdir($dirname);
};
if ($@) {
lib/Fuse/Filesys/Virtual.pm view on Meta::CPAN
sub rename {
my $self = shift;
my ($oldname, $newname) = @_;
my $busy = eval {
return -EBUSY() if ($self->{_cache}->is_busy($oldname));
};
return $busy if ($busy);
$busy = eval {
return -EBUSY() if (!$self->{_filesys}->test('d', $newname)
&& $self->{_cache}->is_busy($newname));
};
return $busy if ($busy);
eval {
$self->{_filesys}->rename($oldname, $newname)
or die "cannot rename: $!";
};
view release on metacpan or search on metacpan
lib/FusionInventory/Agent/Task/Deploy/File.pm view on Meta::CPAN
$self->{logger}->debug("File part URL: $url");
my $request = HTTP::Request->new(GET => $url);
# We want to try direct download without proxy if peer if defined and then
# we also prefer to use really short timeout to disqualify busy peers and
# also avoid to block for not responding peers while using P2P
my $timeout = $peer ? 1 : 180 ;
my $response = $self->{client}->request($request, $path, $peer, $timeout);
if ($response->code != 200) {
view release on metacpan or search on metacpan
lib/Future/Workflow/Pipeline.pm view on Meta::CPAN
that will be passed each eventual result.
=head2 Queueing
In front of every stage there exists a queue of pending items. If the first
stage is currently busy when C</push_input> is called, the item is accepted
into its queue instead. Items will be taken from the queue in the order they
were pushed when the stage's work function finishes with prior items.
If the queue between stages is full, then items will remain pending in prior
stages. Ultimately this back-pressure will make its way back to the
view release on metacpan or search on metacpan
conf/plugins/PrimerDesigner.pm view on Meta::CPAN
my $title = $render->generate_title($features);
my $output;
my @post_load = $render->get_post_load_functions;
$output .= $render->render_html_start($title,@post_load);
$output .= $render->render_busy_signal;
push @panels, $output;
#my %extra_args = @$extra_args;
#my $postgrid = $extra_args{'postgrid'};
view release on metacpan or search on metacpan
lib/GRID/Cluster.pm view on Meta::CPAN
my $address = 0 + $proc[$counter];
$id{$address} = $counter;
$counter++;
# See if all workers are busy, if so wait for one to finish
last if (($counter > $lp) || ($counter >= $self->get_max_np()));
}
last if (($counter > $lp) || ($counter >= $self->get_max_np()));
}
view release on metacpan or search on metacpan
lib/GRID/Machine/perlparintro.pod view on Meta::CPAN
The total computational power of institutions
as a whole has dramatically rised in the last decades, but
due to distributed ownership and administration restrictions,
individuals are not able to capitalize such computing power.
Many machines sit idle for very long periods of time while
their owners are busy doing other things. Many of them run
some sort of UNIX, have Perl installed and provide SSH access.
If such is your scenario you can use L<GRID::Machine> to
have perl interpreters running in
those nodes and make them collaborate to give you more computational
view release on metacpan or search on metacpan
=cut
BEGIN {
use base 'Exporter';
our @EXPORT_OK = qw(set_busy output %override save_prefs);
our @EXPORT = ();
}
use GTM::Run ();
return unless length $lines;
scrollarea_output ($main_scroll, $lines);
}
sub gtm_run ($@) {
set_busy (1);
local %ENV = (%ENV, %override);
my ($cmd, %rest) = @_;
if (ref $cmd eq "ARRAY") {
$cmd->[0] = "$ENV{gtm_dist}/$cmd->[0]" unless $cmd->[0] =~ m@^/@;
} else {
output "\n" . "#" x 78 . "\n";
my $cv = run_cmd ($cmd, %rest);
$cv->cb (
sub {
shift->recv
and do { warn "error running cmd: $!\n"; set_busy (0); return; };
$rest{cb}->() if exists $rest{cb};
set_busy (0);
}
);
}
sub gtm_run_out (@) {
$v->add ($main_scroll);
$main_window->add ($v);
$main_window->add_accel_group ($menu->{accel_group});
load_prefs;
set_busy (0);
get_gtm_version();
$main_window;
}
my $was_busy = 1;
my $timer;
my $counter = 0;
my ($red, $green, $off);
$button = new Gtk2::Button;
$green = new_from_file Gtk2::Image (findfile ("GTM/images/ampel-green.png"));
$red = new_from_file Gtk2::Image (findfile ("GTM/images/ampel-red.png"));
$off = new_from_file Gtk2::Image (findfile ("GTM/images/ampel-off.png"));
sub set_busy ($) {
my $busy = shift;
return if $was_busy == $busy;
if ($busy == 0) {
undef $timer;
$button->set_image ($green);
} else {
$counter = 0;
$timer = AnyEvent->timer (
cb => sub {
$button->set_image (++$counter % 2 ? $red : $off);
}
);
}
$was_busy = $busy;
}
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Game/CharacterSheetGenerator.pm view on Meta::CPAN
aspiring assertive astonished attentive audacious austere
authoritarian authoritative available average awful awkward babbling
babyish bad bashful beautiful belligerent bewildered biter
blames others blasé blowhard boastful boisterous bold boorish bored
boring bossy boundless brainy brash bratty brave brazen bright
brilliant brotherly brutish bubbly busy calculating callous calm
candid capable capricious carefree careful careless caring caustic
cautious changeable charismatic charming chaste cheerful cheerless
childish chivalrous civilised classy clean clever close closed clumsy
coarse cocky coherent cold cold hearted combative comfortable
committed communicative compassionate competent complacent compliant
view release on metacpan or search on metacpan
nytprof/js/jit/jit-yc.js view on Meta::CPAN
(function(){function b(){}function c(w,u){for(var v in (u||{})){w[v]=u[v]}return w}function m(u){return(typeof u=="function")?u:function(){return u}}var k=Date.now||function(){return +new Date};function j(v){var u=h(v);return(u)?((u!="array")?[v]:v):...
view release on metacpan or search on metacpan
lib/Game/HexDescribe.pm view on Meta::CPAN
generator.
<p>
<label>
%= check_box 'labels'
Include labels. This will create a very busy map.
</label><br>
<label>
%= check_box 'markdown'
Create Markdown instead of HTML output.
</label><br>
view release on metacpan or search on metacpan
goto KEY unless defined $action;
} elsif ( defined $ch ) {
$action = $ch_inputs{$ch};
goto KEY unless defined $action;
} else {
# nodelay if set will probably need a napms here to avoid busy
# looping through a getchar that then too quickly returns
goto KEY;
}
goto KEY if $action->($app) == NEXT_KEY;
}
view release on metacpan or search on metacpan
lib/Game/TextMapper.pm view on Meta::CPAN
0101 grass
0201 grass
0301 grass
0401 grass
0501 grass
license <text x="50" y="-33" font-size="15pt" fill="#999999">Copyright Alex Schroeder 2013. <a style="fill:#8888ff" xlink:href="http://www.busygamemaster.com/art02.html">Gnomeyland Map Icons</a> Copyright Gregory B. MacKenzie 2012.</text><text x=...
Unfortunately, it all has to go on a single line.
The viewport for the map is determined by the hexes of the map. You need to take
this into account when putting a license onto the map. Thus, if your map does
view release on metacpan or search on metacpan
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
bebreech
bebrine
bebrother
bebrush
bebump
bebusy
bebuttoned
bec
becafico
becall
becalm
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
busty
busulfan
busulfans
busuuti
busway
busy
busybodied
busybodies
busybody
busybodyish
busybodyism
busybodyness
busyhead
busying
busyish
busyness
busynesses
busywork
busyworks
but
butacaine
butadiene
butadiyne
butanal
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
embuskin
embusqu
embusque
embussed
embussing
embusy
emcee
emceed
emceeing
emcees
emceing
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
misbrew
misbuild
misbuilding
misbuilds
misbuilt
misbusy
misbuttoned
misc
miscal
miscalculate
miscalculated
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
nonburnable
nonburning
nonbursting
nonbusily
nonbusiness
nonbusy
nonbusyness
nonbuttressed
nonbuying
noncabinet
noncadenced
noncadent
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
overburnt
overburst
overburthen
overbusily
overbusiness
overbusy
overbusyness
overbuy
overbuying
overbuys
overby
overcalculate
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
rebus
rebused
rebuses
rebush
rebusing
rebusy
rebut
rebute
rebutment
rebuts
rebuttable
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
superbraveness
superbrute
superbuild
superbungalow
superbusily
superbusy
supercabinet
supercalender
supercallosal
supercandid
supercandidly
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
unbusk
unbuskin
unbuskined
unbusted
unbustling
unbusy
unbutchered
unbutcherlike
unbuttered
unbutton
unbuttoned
view release on metacpan or search on metacpan
lib/Game/Xomb.pm view on Meta::CPAN
}
$key = readline $Replay_FH;
if (defined $key) {
last if exists $expect->{$key};
} else {
# KLUGE avoid busy-wait on "tail" of an active savegame
sleep(0.2);
}
}
print $Save_FH $key if defined $Save_FH;
return $key;
view release on metacpan or search on metacpan
lib/Games/Axmud/Client.pm view on Meta::CPAN
# The About window (only one can be open at a time)
aboutWin => undef, # Set by $self->set_aboutWin
# A 'dialogue' window created by a call to GA::Generic::Win->showBusyWin, e.g. the
# 'Loading...' window created by $self->start
busyWin => undef, # Set by $self->set_busyWin
# The Connections window (only one can be open at a time)
connectWin => undef, # Set by $self->set_connectWin
# The Client Console window (only one can be open at a time)
consoleWin => undef, # Set by $self->set_consoleWin
lib/Games/Axmud/Client.pm view on Meta::CPAN
}
}
}
# Close the 'dialogue' window and reset the Client IV that stores it
if ($self->busyWin) {
$self->mainWin->closeDialogueWin($self->busyWin);
}
# Start the client loop
if (! $self->startClientLoop()) {
lib/Games/Axmud/Client.pm view on Meta::CPAN
# Save the .zip file. Successful operation returns 0
if ($zipObj->writeToFileNamed($backupPath)) {
# Close the 'dialogue' window and reset the Client IV that stores it
if ($self->busyWin) {
$self->mainWin->closeDialogueWin($self->busyWin);
}
return undef;
}
lib/Games/Axmud/Client.pm view on Meta::CPAN
Archive::Tar::COMPRESS_GZIP,
$axmud::NAME_SHORT . '-data',
)
) {
# Close the 'dialogue' window and reset the Client IV that stores it
if ($self->busyWin) {
$self->mainWin->closeDialogueWin($self->busyWin);
}
return undef;
}
}
lib/Games/Axmud/Client.pm view on Meta::CPAN
# Scheduled auto-backups
$self->ivPoke('autoBackupDate', $self->localDate());
}
# Close the 'dialogue' window and reset the Client IV that stores it
if ($self->busyWin) {
$self->mainWin->closeDialogueWin($self->busyWin);
}
return 1;
}
lib/Games/Axmud/Client.pm view on Meta::CPAN
$self->setModifyFlag('config', TRUE, $self->_objClass . '->set_browserCmd');
return 1;
}
sub set_busyWin {
my ($self, $winObj, $check) = @_;
# Check for improper arguments
if (defined $check) {
return $axmud::CLIENT->writeImproper($self->_objClass . '->set_busyWin', @_);
}
# Update IVs
$self->ivPoke('busyWin', $winObj);
return 1;
}
sub set_chatAcceptMode {
lib/Games/Axmud/Client.pm view on Meta::CPAN
sub mainWin
{ $_[0]->{mainWin} }
sub aboutWin
{ $_[0]->{aboutWin} }
sub busyWin
{ $_[0]->{busyWin} }
sub connectWin
{ $_[0]->{connectWin} }
sub consoleWin
{ $_[0]->{consoleWin} }
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|3|3|5|6|7|8|9|7:communists|
1|2|3|3|5|6|7|8|9|7|11|9:horribleness|
1|2|3|3|5|6|7|8|9|8:Greenblatt|
1|2|3|3|5|6|7|8|9|8|3:Greensville|
1|2|3|3|5|6|7|8|9|8|7:suffragette|
1|2|3|4:ANSI|ARCO|Abel|Abos|Acta|Acts|Adam|Aden|Aida|Ainu|Ajax|Alan|Alar|Alec|Alex|Alfa|Alps|Alva|Ames|Amos|Andy|Arab|Ares|Argo|Asia|Avis|Avon|Axel|Bach|Baku|Bali|Bart|Bela|Benz|Bern|Bert|Bien|Blum|Boca|Boer|Bohr|Bois|Borg|Bose|Boyd|Brie|Bryn|Burt|By...
1|2|3|4|1:aloha|alpha|aorta|arena|aroma|blurb|comic|conic|cubic|cynic|dared|dated|dazed|dined|dived|doled|domed|doped|dosed|doted|dozed|dread|dried|eagle|elide|elite|elope|elude|ensue|erase|erode|evade|evoke|exile|going|harsh|hatch|heath|hitch|hunch|...
1|2|3|4|1|1:entree|stress|
1|2|3|4|1|1|2|8|2|10|11:hitchhiking|
1|2|3|4|1|1|2|8|3|2:recurrence|
1|2|3|4|1|1|2|8|3|2|11:recurrences|
view release on metacpan or search on metacpan
examples/build_scheduled.pl view on Meta::CPAN
$ibuild--;
next;
}
# check for known (currently) bad planets
if ($tainted_planets{ $build_order->{planet} }) {
output("Planet busy, skipping.");
next;
}
my $planet_name = $build_order->{planet};
my $planet = $planets_by_name{$planet_name};
view release on metacpan or search on metacpan
lib/Games/Lacuna/Task/Action/Archaeology.pm view on Meta::CPAN
my $archaeology_ministry = $self->find_building($planet_stats->{id},'Archaeology');
return
unless defined $archaeology_ministry;
# Check archaeology is busy
if (defined $archaeology_ministry->{work}) {
my $work_end = parse_date($archaeology_ministry->{work}{end});
if ($work_end > $timestamp) {
return;
}
view release on metacpan or search on metacpan
ZIO_Win32.pm view on Meta::CPAN
# z-machine i/o for perls with Win32::Console
# TO DO:
# - handle scrollbars/buffering properly...it would be nice
# if old game text could be seen via an existing scrollbar.
# But this requires untangling screen Size() mess.
# - can we set hourglass when busy?
use strict;
use Win32::Console;
use Games::Rezrov::ZIO_Generic;
view release on metacpan or search on metacpan
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
}
}
$this->{check_tmp}->($check);
$this->{message}->(q{Solve this!});
$mw->Unbusy;
}
sub load_game {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
}
}
$this->{check_tmp}->($check);
$this->{message}->(q{Loaded!});
}
$mw->Unbusy;
}
sub save_game {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
close $fh;
$this->{message}->(q{Saved!});
}
$mw->Unbusy;
}
sub lock {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
$sdk->table->lock_all;
$this->_update_lock_status($mw, $sdk, $wgt);
$this->{message}->(q{Locked});
$mw->Unbusy;
}
sub clear {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
}
}
$this->{check_tmp}->($check);
$this->{message}->(q{Cleared});
$mw->Unbusy;
}
sub unlock {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
$sdk->table->unlock_all;
$this->_update_lock_status($mw, $sdk, $wgt);
$this->{message}->(q{Unlocked});
$mw->Unbusy;
}
sub rewind_all {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
}
}
$this->{check_tmp}->($check);
$this->{message}->(q{Rewinded});
$mw->Unbusy;
}
sub _update_lock_status {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
);
}
}
$this->{check_tmp}->($check);
$mw->Unbusy;
}
sub _set_button {
my ($this, $sdk, $wgt, $row, $col) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
$check_on && $sdk->table->cell($row,$col)->tmpvalue ?
'red' : 'gray',
);
}
}
$mw->Unbusy;
}
sub find_next {
my ($this, $mw, $sdk, $wgt) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
$this->{message}->(q{Try this.})
}
else {
$this->{message}->(q{I have no idea. Try some.})
}
$mw->Unbusy;
}
sub configure_button {
my ($this, $wgt, $id, $locked) = @_;
lib/Games/Sudoku/Component/TkPlayer/Controller.pm view on Meta::CPAN
$this->{message}->(q{OK, here you are!});
}
if ($status->is_giveup) {
$this->{message}->(q{Sorry I can't solve!});
}
$mw->Unbusy;
}
sub do_next {
my ($this, $mw, $sdk, $wgt) = @_;
$mw->Busy(-recurse => 1);
$this->_do_next($mw, $sdk, $wgt, 0);
$mw->Unbusy;
}
sub _do_next {
my ($this, $mw, $sdk, $wgt, $silent) = @_;
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
businesspersons businesswoman businesswomen busing busings busk busked busker
buskers buskin buskined busking buskins busks busload busloads busman busmen
buss bussed busses bussing bussings bust bustard bustards busted buster
busters bustic bustics bustier bustiers bustiest busting bustle bustled
bustles bustline bustlines bustling bustlingly busts busty busulfan busulfans
busy busybodies busybody busying busyness busynesses busywork busyworks but
butadiene butadienes butane butanes butanol butanols butanone butanones butch
butcher butchered butcheries butchering butcherly butchers butchery butches
bute butene butenes buteo buteos butes butle butled butler butleries butlers
butlery butles butling buts butt buttals butte butted butter butterball
butterballs buttercup buttercups buttered butterfat butterfats butterfingered
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
overbook overbooked overbooking overbooks overbore overborn overborne
overborrow overborrowed overborrowing overborrows overbought overbreathing
overbreathings overbred overbrief overbright overbroad overbrowse overbrowsed
overbrowses overbrowsing overbrutal overbuild overbuilding overbuilds
overbuilt overburden overburdened overburdening overburdens overburn
overburned overburning overburns overburnt overbusy overbuy overbuying
overbuys overcall overcalled overcalling overcalls overcame overcapacities
overcapacity overcapitalization overcapitalizations overcapitalize
overcapitalized overcapitalizes overcapitalizing overcareful overcast
overcasted overcasting overcastings overcasts overcaution overcautioned
overcautioning overcautions overcautious overcentralization
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
unbriefed unbright unbrilliant unbroke unbroken unbruised unbrushed unbuckle
unbuckled unbuckles unbuckling unbudgeable unbudgeably unbudgeted unbudging
unbudgingly unbuffered unbuild unbuildable unbuilding unbuilds unbuilt unbulky
unbundle unbundled unbundles unbundling unburden unburdened unburdening
unburdens unbureaucratic unburied unburnable unburned unburnt unbusinesslike
unbusted unbusy unbuttered unbutton unbuttoned unbuttoning unbuttons uncage
uncaged uncages uncaging uncake uncaked uncakes uncaking uncalcified
uncalcined uncalculated uncalculating uncalibrated uncalled uncalloused
uncanceled uncandid uncandidly uncannier uncanniest uncannily uncanniness
uncanninesses uncanny uncanonical uncap uncapitalized uncapped uncapping
uncaps uncaptioned uncapturable uncaring uncarpeted uncase uncased uncases
view release on metacpan or search on metacpan
lib/Gearman/Driver.pm view on Meta::CPAN
);
=head2 interval
Each n seconds L<Net::Telnet::Gearman> is used in
L<Gearman::Driver::Observer> to check status of free/running/busy
workers on gearmand. This is used to fork more workers depending
on the queue size and the MinProcesses/MaxProcesses
L<attribute|Gearman::Driver::Worker/METHODATTRIBUTES> of the
job method. See also: L<Gearman::Driver::Worker>
lib/Gearman/Driver.pm view on Meta::CPAN
);
C<$status> might look like:
$VAR1 = {
'busy' => 0,
'free' => 0,
'name' => 'GDExamples::Convert::unknown_job',
'queue' => 6,
'running' => 0
};
lib/Gearman/Driver.pm view on Meta::CPAN
my $status = $response->{data};
foreach my $row (@$status) {
if ( my $job = $self->_find_job( $row->{name} ) ) {
$to_start{$job->name} ||= 0;
if ( $job->count_processes <= $row->{busy} && $row->{queue} ) {
my $diff = $row->{queue} - $row->{busy};
my $free = $job->max_processes - $job->count_processes;
if ($free) {
my $start = $diff > $free ? $free : $diff;
$to_start{$job->name} += $start;
}
view release on metacpan or search on metacpan
lib/Gearman/Server/Client.pm view on Meta::CPAN
A positive integer showing how many jobs of this function are currently running
=item Number of capable workers
A positive integer denoting the maximum possible count of workers that could be doing this job. Though they may not all be working on it due to other tasks holding them busy.
=back
=cut
view release on metacpan or search on metacpan
lib/Gearman/Slot.pm view on Meta::CPAN
has job_servers=>(is=>'rw',isa=>'ArrayRef',required=>1);
has workleft=>(is=>'rw');
has worker_package=>(is=>'rw');
has worker_channel=>(is=>'rw');
has is_busy=>(is=>'rw',default=>0);
has is_stopped=>(is=>'rw',default=>1);
has sbbaseurl=>(is=>'rw',default=>sub{''});
has worker_watcher=>(is=>'rw');
has worker_pid=>(is=>'rw');
lib/Gearman/Slot.pm view on Meta::CPAN
my $self = shift;
}
sub is_idle{
my $self = shift;
return ($self->is_running)&&(!$self->is_busy);
}
sub is_running{
my $self = shift;
return (!$self->is_stopped);
}
view release on metacpan or search on metacpan
lib/Gearman/Starter/Util.pm view on Meta::CPAN
sub display_scoreboard {
my $scoreboard = shift;
my $stats = $scoreboard->read_all;
my $raw_stats;
my $busy = 0;
my $idle = 0;
for my $pid ( sort { $a <=> $b } keys %$stats) {
if ( $stats->{$pid} =~ m!^A! ) {
$busy++;
}
else {
$idle++;
}
$raw_stats .= sprintf "%-14d %s\n", $pid, $stats->{$pid}
}
$raw_stats = <<"EOF";
BusyWorkers: $busy
IdleWorkers: $idle
--
pid Status Counter Comment
$raw_stats
EOF
view release on metacpan or search on metacpan
my @individuals = $Ged->{record}->get_children("INDI");
if (@individuals)
{
show_record("", $individuals[0], "full");
}
$Top->Unbusy;
}
sub save($)
{
my ($gedcom_file) = @_;
$Top->Busy;
$Top->update;
$Ged->write($gedcom_file);
$Top->Unbusy;
}
sub updown($$)
{
my ($list, $pos) = @_;
for my $i (@records)
{
$Top->{_list}->insert("end", $i->summary)
}
updown($Top->{_list}, "+0");
$Top->Unbusy;
my $i = $Top->{_box}->Show;
return undef if $i eq "Cancel";
$i = $Top->{_list}->curselection if $i eq "Ok";
$records[$i];
}
$main_fr->Scrolled("Canvas", -scrollbars => "osoe")
->pack(-fill => "both", -expand => 1);
my $canv = $Top->{_canv} = $c->Subwidget("scrolled");
$Top->Unbusy;
}
sub set_entry($)
{
my ($entry) = @_;
}
$Ged->collect_xrefs();
}
}
$Top->Unbusy;
}
sub has_entry($)
{
my ($tag) = @_;
(
-text => "Show",
-underline => 0,
-menuitems => show_menu_children($ind)
)->pack(-side => "left");
$Top->Unbusy;
}
sub add_add_menu(;$)
{
my ($new) = @_;
{
$_->configure(-state => "disabled");
}
$Top->{_add_menu}{$Rec->{tag}}->configure(-state => "normal");
$Top->Unbusy;
}
sub create_fams($$$)
{
my ($me, $child, $fam_type) = @_;
}
if (!$rec ||
exists $canv->{_ged}{_XREF1}{xref} &&
$canv->{_ged}{_XREF1}{xref} eq $rec->{xref})
{
$Top->Unbusy;
return;
}
my $key = $prefix . "_XREF1";
$canv->{_ged}{$key} = $rec;
add_add_menu();
add_show_menu($rec);
record_changed();
}
$Top->Unbusy;
}
sub show_children($$$)
{
my ($prefix, $ind, $full) = @_;
view release on metacpan or search on metacpan
t/sample.gpx view on Meta::CPAN
</groundspeak:log>
<groundspeak:log id="3017035">
<groundspeak:date>2004-02-28T08:00:00</groundspeak:date>
<groundspeak:type>Found it</groundspeak:type>
<groundspeak:finder id="123777">Scoobie10</groundspeak:finder>
<groundspeak:text encoded="False">Finally!! I can't believe this one has been out there just WAITING for me all this time......things have certainly been busy around the ol' DQ. HOWEVER, upon arriving at the store today I heard the cachin...
Of course my answer came quickly......"Okie Dokie Smokie!".
This is a great little cache Rome, thanks for hiding.
view release on metacpan or search on metacpan
lib/Geo/PostalCode/NoDB.pm view on Meta::CPAN
postal code or city and state. It can lookup the city, state, latitude and longitude by
postal code.
=head1 RATIONALE BEHIND NO BERKELEY DB
On a busy day at work, I couldn't get Geo::PostalCode to work
with newer data (the data source TJMATHER points to is no
longer available), so the tests shippsed with his module pass, but trying to
use real data no longer seems to work. DB_File marked the Geo::PostalCode::InstallDB
output file as invalid type or format. If you don't run into that issue by not wanting
to use this module, please drop me a note! I would love to learn how other people
view release on metacpan or search on metacpan
0.09 Changed end of report marker because of more weather.com changes
1.0 Fixed agent string to contain latest version number. Added heat index to report(). Cleaned up documentation.
1.1 More weather.com changes. Added dependancy on LWP::UserAgent. Added new error code when weather.com is too busy to handle requests.
1.1.1 Suport for celcius, fixes.
1.2 More weather.com changes, added report_raw function. Current as of 2002-12-05 thanks to Kevin L. Papendick
view release on metacpan or search on metacpan
lib/Geo/WeatherNWS.pm view on Meta::CPAN
If you don't have access to a mirror, then you don't have to specify
anything. The old server, etc., are still automagically selected.
Also new in this release is that the getreport function now returns
an error code and the FTP error message if anything goes wrong.
Before this was added, if the server was busy or the stations text
file was missing you couldn't tell what happened.
Another new feature is the template system. You can specify a file
with the settemplatefile function. This file is read in and all of
the places in the file where the code sees %%name%% will be replaced