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
view release on metacpan or search on metacpan
lib/Gepok.pm view on Meta::CPAN
Tip: You can set start_servers to 0 and 'daemonize' to false for debugging.
=head2 max_clients => INT (default 150)
Maximum number of children processes to maintain. If server is busy, number of
children will be increased from the original 'start_servers' up until this
value.
=head2 max_requests_per_child => INT (default 1000)
view release on metacpan or search on metacpan
gperl-gtypes.c view on Meta::CPAN
{ G_SPAWN_ERROR_NAMETOOLONG, "G_SPAWN_ERROR_NAMETOOLONG", "nametoolong" },
{ G_SPAWN_ERROR_NOENT, "G_SPAWN_ERROR_NOENT", "noent" },
{ G_SPAWN_ERROR_NOMEM, "G_SPAWN_ERROR_NOMEM", "nomem" },
{ G_SPAWN_ERROR_NOTDIR, "G_SPAWN_ERROR_NOTDIR", "notdir" },
{ G_SPAWN_ERROR_LOOP, "G_SPAWN_ERROR_LOOP", "loop" },
{ G_SPAWN_ERROR_TXTBUSY, "G_SPAWN_ERROR_TXTBUSY", "txtbusy" },
{ G_SPAWN_ERROR_IO, "G_SPAWN_ERROR_IO", "io" },
{ G_SPAWN_ERROR_NFILE, "G_SPAWN_ERROR_NFILE", "nfile" },
{ G_SPAWN_ERROR_MFILE, "G_SPAWN_ERROR_MFILE", "mfile" },
{ G_SPAWN_ERROR_INVAL, "G_SPAWN_ERROR_INVAL", "inval" },
{ G_SPAWN_ERROR_ISDIR, "G_SPAWN_ERROR_ISDIR", "isdir" },
view release on metacpan or search on metacpan
lib/DBI/Gofer/Transport/mod_perl.pm view on Meta::CPAN
my @rr_resp_dur = map { $_->{duration} } @$queue;
push @s, sprintf "Response time: min %.3fs, avg %.3fs, max %.3fs\n",
min(@rr_resp_dur), sum(@rr_resp_dur)/@rr_resp_dur, max(@rr_resp_dur), sum(@rr_resp_dur);
push @s, sprintf "Request rate: %.1f/min (occupancy: %.1f%% with %.3fs busy and %.3fs idle)\n",
@$queue/($time_span/60),
$dur_total/($dur_total+$idle_total)*100, $dur_total, $idle_total
if $queue_name eq 'recent_requests';
if ( my @dups = grep { $_ > 1 } values %dup_reqs ) {
view release on metacpan or search on metacpan
lib/Graph/Maker/Catalans.pm view on Meta::CPAN
Taking C<Lweights> as coordinates allows the graph to be drawn as an N-1
dimensional rectangular figure. The first Lweights entry is always 1 so can
be ignored as a coordinate. Each edge is then forward along one axis. For
N=4 in 3 dimensions the effect is good. Geyer draws N=4 and N=5 in this
style. N=5 or more, in 2D projection at least, tends to become too busy to
see much.
=cut
# Winfried Geyer, "On Tamari Lattices", Discrete Mathematics, volume 133,
view release on metacpan or search on metacpan
t/05-corpus.yml view on Meta::CPAN
ComputerSet:
type: object
properties:
_class:
type: string
busyExecutors:
type: integer
computer:
type: array
items:
$ref: '#/definitions/HudsonMasterComputer'
view release on metacpan or search on metacpan
Gnome/samples/lamp.pl view on Meta::CPAN
$h->pack_start($lamp1, 1, 1, 0);
show $h;
$lamp2 = new Gnome::Lamp;
$lamp2->set_type('busy');
show $lamp2;
$h->pack_start($lamp2, 1, 1, 0);
$lamp3 = new Gnome::Lamp;
view release on metacpan or search on metacpan
lib/Gtk2/CV/Jobber.pm view on Meta::CPAN
=cut
our %jobs;
our @jobs; # global job order
our %busy; # exists if this path is executing a job
our %hide; # which paths to hide
our %type;
our @type; # type order
lib/Gtk2/CV/Jobber.pm view on Meta::CPAN
for my $idx (1 .. (@jobs < 10 ? @jobs : 10)) {
return if $disabled;
my $path = $jobs[-$idx];
next if exists $busy{$path};
my $types = $jobs{$path};
my @types = keys %$types;
if (@types) {
lib/Gtk2/CV/Jobber.pm view on Meta::CPAN
my $job = bless delete $types->{$type}, Gtk2::CV::Jobber::Job::;
$job->{path} = $path;
$job->{type} = $type;
undef $busy{$path};
$job->run;
}
next job;
lib/Gtk2/CV/Jobber.pm view on Meta::CPAN
} else {
unless (delete $job->{event}) {
my $type = $type{$job->{type}};
++$class_limit{$type->{class}};
delete $hide{$job->{path}} if $type->{hide};
delete $busy{$job->{path}};
scheduler;
}
client_update $_[0];
view release on metacpan or search on metacpan
examples/busy.pl view on Meta::CPAN
#
# You should have received a copy of the GNU General Public License along
# with Gtk2-Ex-Dragger. If not, see <http://www.gnu.org/licenses/>.
# This example shows the interaction between the WidgetCursor "busy"
# mechanism and a Dragger.
#
# Basically the busy cursor is shown, but the Dragger state isn't lost and
# the cursor is restored when unbusy - which is pretty much what you want if
# a scroll provokes some time consuming activity.
#
# As noted in the text below, if you keep wiggling the mouse around the busy
# cursor will continue to show. That's because it's only removed when idle,
# and the main loop activity you create by wiggling means it's not idle yet.
# This is logical, and you do normally want the busy cursor to stay while
# doing drawing for such wiggling, even if in this case the program is
# interacting and therefore from the user's point of view not really busy.
#
use 5.008;
use strict;
use warnings;
examples/busy.pl view on Meta::CPAN
to move
this
up and
down.
The
busy
indication
comes and
goes on
a timer
and if
examples/busy.pl view on Meta::CPAN
the
mouse
you can
extend
the
busy
since
it doesn't
get
back to
idle
examples/busy.pl view on Meta::CPAN
return Gtk2::EVENT_PROPAGATE;
}
});
sub busy {
Gtk2::Ex::WidgetCursor->busy;
Time::HiRes::usleep (400_000); # 400 milliseconds
return Glib::SOURCE_CONTINUE;
}
Glib::Timeout->add (1200, \&busy); # 800 milliseconds
$toplevel->show_all;
Gtk2->main;
exit 0;
view release on metacpan or search on metacpan
lib/Gtk2/Ex/FormFactory.pm view on Meta::CPAN
=item $form_factory->B<change_mouse_cursor> ( $type [, $gtk_widget] )
This convenience method changes the mouse cursor of the
window of this FormFactory, or of an arbitrary widget passed
as $gtk_widget. $type is the cursor type, e.g. "watch" for
a typical busy / sandglass cursor. Refer to the Gtk
documentation for a complete list of possible mouse cursors.
=back
=head1 AUTHORS
view release on metacpan or search on metacpan
lib/Gtk2/Ex/Splash.pm view on Meta::CPAN
mouse" window manager style though?) It does consume mouse button clicks
though.
The splash contents are shown as the window background, so it doesn't
require any redraws etc from the application and so continues to display
even if the application is busy doing other things.
=head2 X Request Flushing
The Splash code tries to flush the outgoing X request queue at suitable
times to ensure that a C<< $splash->show() >> etc immediately shows the
view release on metacpan or search on metacpan
lib/Gtk2/Ex/TickerView.pm view on Meta::CPAN
Scroll movements are calculated from elapsed time using
C<clock_gettime(CLOCK_REALTIME)> when available or high-res system time
otherwise (see C<Time::HiRes>). This means the display moves at the
C<speed> setting even if drawing is not keeping up with the requested
C<frame-rate>. Slow frame rates can occur on the client side if the main
loop is busy doing other things (or momentarily blocked completely), or can
be on the X server side if it's busy with other drawing etc.
=head1 SEE ALSO
L<Gtk2::CellLayout>, L<Gtk2::TreeModel>, L<Gtk2::CellRenderer>,
L<Gtk2::Ex::CellLayout::Base>
view release on metacpan or search on metacpan
devel/busy-two.pl view on Meta::CPAN
# You should have received a copy of the GNU General Public License along
# with Gtk2-Ex-WidgetCursor. If not, see <http://www.gnu.org/licenses/>.
# The Busy/Open now has the new window noticed, the same as the way
# Busy/Open/Rebusy had to be done in WidgetCursor version 1.
#
use strict;
use warnings;
use Gtk2 '-init';
devel/busy-two.pl view on Meta::CPAN
});
{
my $button = Gtk2::Button->new_with_label ("Busy");
$button->signal_connect (clicked => sub {
print "$progname: busy\n";
Gtk2::Ex::WidgetCursor->busy;
$toplevel->get_display->flush;
sleep (2);
});
$vbox->pack_start ($button, 1,1,0);
}
view release on metacpan or search on metacpan
gtk-demo/assistant.pl view on Meta::CPAN
$assistant->append_page($page);
$assistant->set_page_type($page, 'GTK_ASSISTANT_PAGE_PROGRESS');
$assistant->set_page_title($page, "Applying changes");
# This prevents the assistant window from being
# closed while we're "busy" applying changes.
$assistant->set_page_complete($page, FALSE);
}
sub do {
my $do_widget = shift;
view release on metacpan or search on metacpan
share/public/guaclite.js view on Meta::CPAN
* @type {Number}
*/
"SERVER_ERROR": 0x0200,
/**
* The operation could not be performed as the server is busy.
*
* @type {Number}
*/
"SERVER_BUSY": 0x0201,
share/public/guaclite.js view on Meta::CPAN
// Codes which indicate the server is not reachable
case 1006: // Abnormal Closure (also signalled by JavaScript when the connection cannot be opened in the first place)
case 1015: // TLS Handshake
return Guacamole.Status.Code.UPSTREAM_NOT_FOUND;
// Codes which indicate the server is reachable but busy/unavailable
case 1001: // Going Away
case 1012: // Service Restart
case 1013: // Try Again Later
case 1014: // Bad Gateway
return Guacamole.Status.Code.UPSTREAM_UNAVAILABLE;
view release on metacpan or search on metacpan
t/testpages/cnn.html view on Meta::CPAN
<BR><br>FIND LOW FARES FAST WITH:
<BR><BR>
Air deals at a glance<BR>
Speedy roundtrip flight search<BR>
Low-fare desktop ticker
<BR><BR>The <A HREF="http://reservationdesk.com">online booking source</A> for busy people
</font>
<br>
<br>