Result:
found more than 814 distributions - search limited to the first 2001 files matching your query ( run in 1.793 )


Bio-Roary

 view release on metacpan or  search on metacpan

contrib/roary_plots/roary.html  view on Meta::CPAN

*
*/.ansibold{font-weight:bold}.ansiblack{color:black}.ansired{color:darkred}.ansigreen{color:darkgreen}.ansiyellow{color:#c4a000}.ansiblue{color:darkblue}.ansipurple{color:darkviolet}.ansicyan{color:steelblue}.ansigray{color:gray}.ansibgblack{backgrou...
*
* IPython notebook webapp
*
*/@media (max-width:767px){.notebook_app{padding-left:0;padding-right:0}}#ipython-main-app{box-sizing:border-box;-moz-box-sizing:border-box;-webkit-box-sizing:border-box;height:100%}div#notebook_panel{margin:0;padding:0;box-sizing:border-box;-moz-box...
    </style>
<style type="text/css">
    .highlight .hll { background-color: #ffffcc }
.highlight  { background: #f8f8f8; }
.highlight .c { color: #408080; font-style: italic } /* Comment */

 view all matches for this distribution


BioPerl

 view release on metacpan or  search on metacpan

Bio/DB/GFF/Adaptor/dbi/caching_handle.pm  view on Meta::CPAN


sub prepare {
  my $self  = shift;
  my $query = shift;

  # find a non-busy dbh
  my $dbh = $self->dbh || $self->throw("Can't connect to database: " . DBI->errstr);

  warn "Using prepare_cache\n" if $self->debug;
  my $sth = $dbh->prepare_cached($query, {}, 3) || $self->throw("Couldn't prepare query $query:\n ".DBI->errstr."\n");
  return $sth;

 view all matches for this distribution


Bit-MorseSignals

 view release on metacpan or  search on metacpan

lib/Bit/MorseSignals/Emitter.pm  view on Meta::CPAN


 } elsif ($self->{state} == 1) { # No msg was given, but the queue isn't empty.

  ($msg, $type) = @{shift @{$self->{queue}}};

 } else { # Either unused or busy sending.

  return;

 }

lib/Bit/MorseSignals/Emitter.pm  view on Meta::CPAN

 _check_self($self);
 $self->{queue} = [];
 return $self;
}

=head2 C<busy>

True when the emitter is busy, i.e. when a packet is being chunked.

=cut

sub busy {
 my ($self) = @_;
 _check_self($self);
 return $self->{state} >= 2;
}

 view all matches for this distribution


Bitcoin-Crypto

 view release on metacpan or  search on metacpan

t/Key/ExtPrivate.t  view on Meta::CPAN

		basic => 'L1GoBvbdsmfnRyf36XB77JPU6M53iJD85pEq4ksxaeGkp1Mwccuf',
	},

	{
		mnemonic =>
			'daughter face ability round midnight sibling rifle gorilla spin busy legend wear',
		passphrase => 'zażółć gęślą jaźń',
		seed =>
			'bb500760edebad71314d4151beac38a7acc1983346eab3d038c32f6e0c518a77f6e9835db1d5bdeaa4b8c8b3ae72b743a5d7625bd8c07cca5774be5024e0d6df',
		key =>
			'xprv9s21ZrQH143K2mGZK6FJ641ZXQPVGzcg27LLrLEV1FGtt3uXWk5f3jSu41WMvyZQd8qPeKdH96iY65DZ5r3TGCmswaR6hcrx8Bhbeor5yqW',

t/Key/ExtPrivate.t  view on Meta::CPAN

		basic => 'KxPSc1dT6ZKthyDVTah376AQMNJ7KGY3vAAjzA5xXWsQu2mTmUEh',
	},

	{
		mnemonic =>
			'daughter face ability round midnight sibling rifle gorilla spin busy legend wear',
		passphrase => 'a quick brown fox jumped over a lazy dog',
		seed =>
			'1949f598e7acf85058dcd7f3c3d67e6907a6c1f7c694c74717a70a5d6e1f3a03330f9fba38e2ec485241cfaade87eb7527ab128538199aa3ff23b05282c9c628',
		key =>
			'xprv9s21ZrQH143K2e4JGe881wYFpdeNRGwrqpNs8pMuUMfasNU88AKRsM7FjqJ53gHm3zQHGXrUkisLih2bDaoU3xmUGC91Ps3JrbUpdQfeQ44',

 view all matches for this distribution


BlueCoat-SGOS

 view release on metacpan or  search on metacpan

t/sysinfos/ProxySG-4006060000--20090307-165730UTC.sysinfo  view on Meta::CPAN

  )
  (exception.tcp_error
    (contact)
    (details "A communication error occurred: $(quot)$(server_connection.socket_errno)$(quot)")
    (format)
    (help "The Web Server may be down, too busy, or experiencing other problems preventing it from responding to requests. You may wish to try again at a later time.")
    (summary "Network Error")
    (http
      (code "503")
      (contact)
      (details)

 view all matches for this distribution


Boost-Geometry-Utils

 view release on metacpan or  search on metacpan

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

    // Move to the next request.
    ++n;
    if (++current == last) {
      // We have reached the end of the list. If all requests thus far
      // have been trivial, we can call MPI_Waitany directly, because
      // it may be more efficient than our busy-wait semantics.
      if (all_trivial_requests) {
        std::vector<MPI_Request> requests;
        requests.reserve(n);
        for (current = first; current != last; ++current)
          requests.push_back(current->m_requests[0]);

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

        current->m_requests[0] = requests[index];
        return std::make_pair(stat, current);
      }

      // There are some nontrivial requests, so we must continue our
      // busy waiting loop.
      n = 0;
      current = first;
      all_trivial_requests = true;
    }
  }

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

        return std::make_pair(out, start_of_completed);
      }

      // We have reached the end of the list. If all requests thus far
      // have been trivial, we can call MPI_Waitsome directly, because
      // it may be more efficient than our busy-wait semantics.
      if (all_trivial_requests) {
        std::vector<MPI_Request> requests;
        std::vector<int> indices(n);
        std::vector<MPI_Status> stats(n);
        requests.reserve(n);

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

        std::reverse(start_of_completed, last);
        return std::make_pair(out, start_of_completed);
      }

      // There are some nontrivial requests, so we must continue our
      // busy waiting loop.
      n = 0;
      current = first;
    }
  }

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

      if (start_of_completed != last)
        return start_of_completed;

      // We have reached the end of the list. If all requests thus far
      // have been trivial, we can call MPI_Waitsome directly, because
      // it may be more efficient than our busy-wait semantics.
      if (all_trivial_requests) {
        std::vector<MPI_Request> requests;
        std::vector<int> indices(n);
        requests.reserve(n);
        for (current = first; current != last; ++current)

src/boost/mpi/nonblocking.hpp  view on Meta::CPAN

        // We have satisfied some requests, so we are done.
        return start_of_completed;
      }

      // There are some nontrivial requests, so we must continue our
      // busy waiting loop.
      n = 0;
      current = first;
    }
  }

 view all matches for this distribution


Boost-Graph

 view release on metacpan or  search on metacpan

include/boost/filesystem/exception.hpp  view on Meta::CPAN

      read_only_error,
      io_error,
      path_error,
      not_found_error,
      not_directory_error,
      busy_error,       // implies trying again might succeed
      already_exists_error,
      not_empty_error,
      is_directory_error,
      out_of_space_error,
      out_of_memory_error,

 view all matches for this distribution


Bot-BasicBot-Pluggable-Module-Fun

 view release on metacpan or  search on metacpan

lib/Bot/BasicBot/Pluggable/Module/Excuse.pm  view on Meta::CPAN

The UPS doesn't have a battery backup.
Recursivity.  Call back if it happens again.
Someone thought The Big Red Button was a light switch.
The mainframe needs to rest.  It's getting old, you know.
I'm not sure.  Try calling the Internet's head office -- it's in the book.
The lines are all busy (busied out, that is -- why let them in to begin with?).
Jan  9 16:41:27 huber su: 'su root' succeeded for .... on /dev/pts/1
It's those computer people in X {city of world}.  They keep stuffing things up.
A star wars satellite accidently blew up the WAN.
Fatal error right in front of screen
That function is not currently supported, but Bill Gates assures us it will be featured in the next upgrade.

lib/Bot/BasicBot/Pluggable/Module/Excuse.pm  view on Meta::CPAN

Cow-tippers tipped a cow onto the server.
tachyon emissions overloading the system
Maintenance window broken
We're out of slots on the server
Computer room being moved.  Our systems are down for the weekend.
Sysadmins busy fighting SPAM.
Repeated reboots of the system failed to solve problem
Feature was not beta tested
Domain controller not responding
Someone else stole your IP address, call the Internet detectives!
It's not RFC-822 compliant.

lib/Bot/BasicBot/Pluggable/Module/Excuse.pm  view on Meta::CPAN

Hash table has woodworm
Trojan horse ran out of hay
Zombie processes detected, machine is haunted.
overflow error in /dev/null
Browser's cookie is corrupted -- someone's been nibbling on it.
Mailer-daemon is busy burning your message in hell.
According to Microsoft, it's by design
vi needs to be upgraded to vii
greenpeace free'd the mallocs
Terrorists crashed an airplane into the server room, have to remove /bin/laden. (rm -rf /bin/laden)
astropneumatic oscillations in the water-cooling

 view all matches for this distribution


Bot-ChatBots-Telegram

 view release on metacpan or  search on metacpan

lib/Bot/ChatBots/Telegram/LongPoll.pm  view on Meta::CPAN

     ->max_redirects($self->max_redirects);

   # this flag tells us whether we're in a call already, avoiding
   # duplicates. It is set before sending a request, and reset when the
   # response is managed
   my $is_busy;

   my $on_data = sub {
      my ($ua, $tx) = @_;

      my @updates;

lib/Bot/ChatBots/Telegram/LongPoll.pm  view on Meta::CPAN

      # if we get here, somehow me managed to get past this call... Get
      # ready for the next one. Just to be on the safe side, we will
      # advance $query{offset} anyway
      $query{offset} = 1 + max map { $_->{update_id} } @updates
         if @updates;
      $is_busy = 0;
   };

   return sub {
      return if $is_busy;
      $is_busy = 1; # $on_data below will reset $is_busy when ready
      $sender->send_message(\%query, callback => $on_data);
   };
} ## end sub callback

around process => sub {

 view all matches for this distribution


Bot-ChatBots

 view release on metacpan or  search on metacpan

lib/Bot/ChatBots/Role/Poller.pm  view on Meta::CPAN

sub poller {
   my $self = shift;
   my $args = (@_ && ref($_[0]) ? $_[0] : {@_});

   # flag variable to avoid instances treading on each other
   my $is_busy;

   # callback where the poll function should push received data
   my $on_data = sub {
      my ($data) = @_;

lib/Bot/ChatBots/Role/Poller.pm  view on Meta::CPAN

         updates => \@updates,
         %$args, # may override it all!
      );

      $self->processed(@retval) if $self->can('processed');
      $is_busy = 0;
   };

   # this is what should be scheduled
   return sub {
      return if $is_busy;
      $is_busy = 1; # $on_data below will reset $is_busy when ready
      $self->poll($on_data, $args);
   };
}

sub schedule {

 view all matches for this distribution


Bot-Cobalt

 view release on metacpan or  search on metacpan

lib/Bot/Cobalt/Plugin/Games/Magic8.pm  view on Meta::CPAN

Hell no!
Well... it's hazy... but maybe... not!
Outlook is uncertain
Chance is in your favor.
Reply hazy, ask again later
Can't you see I'm busy?
Maybe so.
Quite possibly.
Absolutely yes!
It is certain.
Most definitely.

 view all matches for this distribution


Broadworks-OCIP

 view release on metacpan or  search on metacpan

lib/Broadworks/OCIP/Deprecated.pod  view on Meta::CPAN


Additionally there are generic tagged parameters.

=head3 UserBusyLampFieldGetRequest

Request the settings for the busy lamp field service.

The response is either a C<UserBusyLampFieldGetResponse> or an
C<ErrorResponse>. Replaced by: C<UserBusyLampFieldGetRequest16sp2>

Fixed parameters are:-

 view all matches for this distribution


Bundle-Interchange

 view release on metacpan or  search on metacpan

Interchange.pm  view on Meta::CPAN

Business::UPS, for calculating shipping, requires this. The [get-url ...]
UserTag and most payment gateways also need LWP.

=item Storable
If you have this module session save speed increases by anywhere from 25-60%.
Highly recommended for busy systems. 

=item Business::UPS
Enables lookup of shipping costs directly from www.ups.com.

=item HTML::Parser

 view all matches for this distribution


Bundle-Interchange4

 view release on metacpan or  search on metacpan

Interchange4.pm  view on Meta::CPAN

for Interchange's internal HTTP server. Also, Business::UPS, for calculating
shipping, requires this.

=item Storable
If you have this module session save speed increases by anywhere from 25-60%.
Highly recommended for busy systems. 

=item Business::UPS
Enables lookup of shipping costs directly from www.ups.com.

=item SQL::Statement

 view all matches for this distribution


Bundle-InterchangeKitchenSink

 view release on metacpan or  search on metacpan

InterchangeKitchenSink.pm  view on Meta::CPAN

infinitesimal chance of causing a cache conflict.

=item Storable

If you have this module session save speed increases by anywhere from 25-60%.
Highly recommended for busy systems. 

=item Safe::Hole

This helps Interchange deal with the object-creation restrictions
of I<Safe.pm>, used to encourage security.

 view all matches for this distribution


Bundle-Minivend

 view release on metacpan or  search on metacpan

Minivend.pm  view on Meta::CPAN

for MiniVend's internal HTTP server. In addition, Data::Dumper makes the
output of session dumps more readable.

=item Storable
If you have this module session save speed increases by anywhere from 25-60%.
Highly recommended for busy systems. 

=item Business::UPS
Enables lookup of shipping costs directly from www.ups.com.

=item SQL::Statement

 view all matches for this distribution


Business-OCV

 view release on metacpan or  search on metacpan

OCV.pm  view on Meta::CPAN

#
#  The account number 0 is the 'Default' account and cannot be removed.
# The Default account is for the OCV Server's internal use and must not be 
# used by clients. Note that the Default account must have a VPP assigned to 
# it (which is why you get 6 accounts when you purchase a 5 account license). 
# Further, when processing concurrent transactions, if an account is busy 
# you'll get a SERVER BUSY response so it pays to allocate as many VPPs to 
# an account as possible (and make sure to retry BUSY responses).
#
# OCV DEVELOPMENT SERVER BUGS
#

OCV.pm  view on Meta::CPAN

		#   but can be initialised with a static list of strings
		# - card numbers are added with each transaction in _transaction()
		debugfilter	=> [],

		# parameters for dealing with SERVER BUSY
		busywait		=> 6,	# average time between attempts t = (T/2,3T/2)
		busyattempts	=> 15,	# maximum number of attempts
	};

	# merge arguments
	while (my ($k, $v) = each %{$args})
	{

OCV.pm  view on Meta::CPAN

############################################
# The following are wrappers around _transaction, one for each "transaction"
# type. Note that due to the way the arguments are parsed, arguments listed 
# before the @_ can be overridden by the caller (@_); arguments listed after 
# @_ can't be overridden by the caller.
# - the 'nb' subroutines are 'non busy' (or 'non blocking', take your pick),
#   that is they'll simply return when SERVER BUSY responses are encountered
#   The non-'nb' subs will attempt to retry BUSY responses, up to a point.
# - all transactions need a unique Transaction Reference ID, except for status
# - note that new transaction references should be generated for each attempt, 
#   successful or not, busy or not.
sub nbpurchase
{
	my $self = shift;
	my $n = ref($self->{'txnref'}) eq 'CODE' ? &{$self->{'txnref'}} : 
		$self->{'txnref'}++;

OCV.pm  view on Meta::CPAN

		PolledMode => POLL_BLOCK);
}

# the following set of subroutines will transparently retry the transaction
# in the face of SERVER BUSY responses (up to a limit)
sub _busy
{
	my ($s, $self, @a) = @_;
	my $m;
	my $n = $self->{'busyattempts'};	# maximum no. of attempts
	$m = $s->($self, @a);
	while ($m and $m->ResponseCode eq TRANS_BUSY and $n-- > 0)
	{
		select(undef, undef, undef, $self->{'busywait'} * (0.5 + rand));
		$m = $s->($self, @a);
	}

	return $m;
}

sub purchase   { _busy(\&nbpurchase,   @_) }
sub refund     { _busy(\&nbrefund,     @_) }
sub preauth    { _busy(\&nbpreauth,    @_) }
sub completion { _busy(\&nbcompletion, @_) }
sub status     { _busy(\&nbstatus,     @_) }


############################################
# now the 'miscellaneous' requests

 view all matches for this distribution


Business-OnlinePayment-IATSPayments

 view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/IATSPayments.pm  view on Meta::CPAN

  '15' => 'General decline code. Please have client call the number on the back of credit card',
  '16' => 'Invalid charge card number. Verify and re-enter credit card information.',
  '17' => 'Unable to authorize transaction. Authorizer needs more information for approval.',
  '18' => 'Card not supported by institution.',
  '19' => 'Incorrect CVV2 security code',
  '22' => 'Bank timeout. Bank lines may be down or busy. Re-try transaction later.',
  '23' => 'System error. Re-try transaction later.',
  '24' => 'Charge card expired.',
  '25' => 'Capture card. Reported lost or stolen.',
  '26' => 'Invalid transaction, invalid expiry date. Please confirm and retry transaction.',
  '27' => 'Please have cardholder call the number on the back of the card.',

 view all matches for this distribution


Business-Tax-VAT-Validation

 view release on metacpan or  search on metacpan

lib/Business/Tax/VAT/Validation.pm  view on Meta::CPAN


=item *
 18  Member Sevice Unavailable: The EU database is unable to reach the requested member's database.

=item *
 19  The EU database is too busy.

=item *
 20  Connexion to the VIES database failed.

=item *

 view all matches for this distribution


BusyBird-Input-Feed

 view release on metacpan or  search on metacpan

lib/BusyBird/Input/Feed.pm  view on Meta::CPAN

    if(defined($home_url) && $home_url =~ m{^https?://}i) {
        return $home_url;
    }
    
    foreach my $status (@$statuses) {
        $home_url = $status->{busybird}{status_permalink} if defined($status->{busybird});
        return $home_url if defined $home_url;
    }
    return undef;
}

lib/BusyBird/Input/Feed.pm  view on Meta::CPAN

    my $text = $feed_item->title;
    $text = "" if !defined($text);
    my $permalink = $feed_item->link;
    my $status = {
        text => $text,
        busybird => { defined($permalink) ? (status_permalink => $permalink) : () },
        created_at => ($created_at_dt ? BusyBird::DateTime::Format->format_datetime($created_at_dt) : undef ),
        user => { screen_name => $feed_title },
    };
    my $guid = $feed_item->guid;
    my $item_id;
    if(defined $guid) {
        $item_id = $guid;
        $status->{busybird}{original}{id} = $guid;
    }else {
        $item_id = $feed_item->link;
    }
    if(defined($created_at_dt) && defined($item_id)) {
        $status->{id} = $created_at_dt->epoch . '|' . $item_id;

lib/BusyBird/Input/Feed.pm  view on Meta::CPAN


=head1 DESCRIPTION

L<BusyBird::Input::Feed> converts RSS and Atom feeds into L<BusyBird> status objects.

For convenience, an executable script L<busybird_input_feed> is bundled in this distribution.

=head1 CLASS METHODS

=head2 $input = BusyBird::Input::Feed->new(%args)

 view all matches for this distribution


BusyBird-Input-Lingr

 view release on metacpan or  search on metacpan

lib/BusyBird/Input/Lingr.pm  view on Meta::CPAN

            profile_image_url => $message->{icon_url},
            screen_name => $message->{speaker_id},
            name => $message->{nickname},
        },
        text => $message->{text},
        busybird => {
            status_permalink => $permalink
        }
    };
}

lib/BusyBird/Input/Lingr.pm  view on Meta::CPAN

        passworkd => 'your lingr password',
    );
    my $input = BusyBird::Input::Lingr->new;
    
    my @raw_messages = $downloader->get_archives("perl_jp");
    my @busybird_statuses = $input->convert(@raw_messages);
    
    timeline("perl_jp_chat")->add(\@busybird_statuses);

=head1 DESCRIPTION

L<BusyBird::Input::Lingr> converts text message objects obtained from Lingr (L<http://lingr.com/>) API into L<BusyBird> status objects.

lib/BusyBird/Input/Lingr.pm  view on Meta::CPAN


=back

=head1 OBJECT METHODS

=head2 @busybird_statuses = $input->convert(@lingr_messages)

Convert Lingr message objects into L<BusyBird> status objects.

If called in scalar context, it returns the first status object.

 view all matches for this distribution


BusyBird

 view release on metacpan or  search on metacpan

lib/BusyBird.pm  view on Meta::CPAN

use BusyBird::Main::PSGI qw(create_psgi_app);
use Exporter 5.57 qw(import);

our $VERSION = '0.12';

our @EXPORT = our @EXPORT_OK = qw(busybird timeline end);

my $singleton_main;

sub busybird {
    return defined($singleton_main)
        ? $singleton_main : ($singleton_main = BusyBird::Main->new);
}

sub timeline {
    my ($timeline_name) = @_;
    return busybird()->timeline($timeline_name);
}

sub end {
    return create_psgi_app(busybird());
}

1;

__END__

lib/BusyBird.pm  view on Meta::CPAN


=back

=head1 SCREENSHOTS

L<https://github.com/debug-ito/busybird/wiki/Screenshots>

=head1 QUICK START

Example in Ubuntu Linux.

lib/BusyBird.pm  view on Meta::CPAN


=item *

Run

    $ busybird
    Twiggy: Accepting connections at http://127.0.0.1:5000/

=item *

Open timelines

lib/BusyBird.pm  view on Meta::CPAN

and exports some functions to manipulate the singleton.
That way, L<BusyBird> makes it easy for users to write their C<config.psgi> file.

=head1 SYNOPSIS

In your C<~/.busybird/config.psgi> file...

    use BusyBird;
    
    busybird->set_config(
        time_zone => "+0900",
    );
    
    timeline("twitter_work")->set_config(
        time_zone => "America/Chicago"

lib/BusyBird.pm  view on Meta::CPAN


=head1 EXPORTED FUNCTIONS

The following functions are exported by default.

=head2 $main = busybird()

Returns the singleton L<BusyBird::Main> object.

=head2 $timeline = timeline($timeline_name)

Returns the L<BusyBird::Timeline> object named C<$timeline_name> from the singleton.
If there is no such timeline, it automatically creates the timeline.

This is equivalent to C<< busybird()->timeline($timeline_name) >>.

=head2 $psgi_app = end()

Returns a L<PSGI> application object from the singleton L<BusyBird::Main> object.
This is supposed to be called at the end of C<config.psgi> file.

This is equivalent to C<< BusyBird::Main::PSGI::create_psgi_app(busybird()) >>.

=head1 TECHNOLOGIES USED

=over

lib/BusyBird.pm  view on Meta::CPAN


=back

=head1 REPOSITORY

L<https://github.com/debug-ito/busybird>

=head1 BUGS AND FEATURE REQUESTS

Please report bugs and feature requests to my Github issues
L<https://github.com/debug-ito/busybird/issues>.

Although I prefer Github, non-Github users can use CPAN RT
L<https://rt.cpan.org/Public/Dist/Display.html?Name=BusyBird>.
Please send email to C<bug-BusyBird at rt.cpan.org> to report bugs
if you do not have CPAN RT account.

 view all matches for this distribution


BuzzSaw

 view release on metacpan or  search on metacpan

docs/intro.html  view on Meta::CPAN

    <p>The rsyslog daemon running on the central log server is doing a
    very good job of storing the complete set of system log messages
    for each machine into files. This is a lightweight and simple
    approach which guarantees a high degree of reliability. From
    examining the data it was clear that most of it is of little
    interest to us on a daily basis. For example, on a busy SSH server
    the ssh daemon authentication data that we actually wish to
    analyse only constitutes 10% of the entire daily system logs. With
    this in mind we decided to develop a data importing pipeline which
    could process the log messages stored in the files on a regular
    basis (hourly, daily, weekly, as necessary) and filter out the

 view all matches for this distribution


C-sparse

 view release on metacpan or  search on metacpan

src/sparse-0.4.4/compile-i386.c  view on Meta::CPAN

	int regno;

	aliases = info->aliases;
	while ((regno = *aliases++) != NOREG) {
		if (test_bit(regno, regs_in_use))
			goto busy;
		if (clear)
			reg_info_table[regno].contains = NULL;
	}
	set_bit(info->own_regno, regs_in_use);
	return reg;
busy:
	fprintf(stderr, "register %s is busy\n", info->name);
	if (regno + reg_info_table != info)
		fprintf(stderr, "  conflicts with %s\n", reg_info_table[regno].name);
	exit(1);
}

src/sparse-0.4.4/compile-i386.c  view on Meta::CPAN

static struct regclass *get_regclass(SCTX_ struct expression *expr)
{
	return get_regclass_bits(sctx_ expr->ctype->bit_size);
}

static int register_busy(SCTX_ int regno)
{
	if (!test_bit(regno, regs_in_use)) {
		struct reg_info *info = reg_info_table + regno;
		const unsigned char *regs = info->aliases+1;

		while ((regno = *regs) != NOREG) {
			regs++;
			if (test_bit(regno, regs_in_use))
				goto busy;
		}
		return 0;
	}
busy:
	return 1;
}

static struct storage *get_reg(SCTX_ struct regclass *class)
{
	const unsigned char *regs = class->regs;
	int regno;

	while ((regno = *regs) != NOREG) {
		regs++;
		if (register_busy(sctx_ regno))
			continue;
		return get_hardreg(sctx_ hardreg_storage_table + regno, 1);
	}
	fprintf(stderr, "Ran out of %s registers\n", class->name);
	exit(1);

 view all matches for this distribution


CAM-SOAPApp

 view release on metacpan or  search on metacpan

t/server.t  view on Meta::CPAN

my $PORT = 9670; # an arbitrary choice
my $TIMEOUT = 5; # seconds

if ($OSNAME eq 'darwin' && $ENV{HOST} && $ENV{HOST} eq 'chris.clotho.com')
{
   # Developer workaround for MacOSX issue where port is busy on
   # subsequent runs of this test because the OS holds the listening
   # port open too long.  So, we vary the port number semi-randomly.

   $PORT += (time)%10;
}

 view all matches for this distribution


CGI-Application-Plugin-ErrorPage

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/ErrorPage.pm  view on Meta::CPAN

  * "Request Not Understood" - Some value we received in the query just didn't make sense. 

=head2 Silliness

  [22:36] <rjbs> Techno Failure.  We were cruising along and rocking out while fulfilling your request, but then the music stopped and we sort of got distracted.
  [22:36] <rjbs> Tek Failure.  Too busy reading Shatner novels to respond to your request.

=head1 METHODS

=head2 error()

 view all matches for this distribution


CGI-Application-Plugin-REST

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/REST.pm  view on Meta::CPAN


=head1 ABSTRACT

If you use the L<CGI::Application|CGI::Application> framework, this plugin will help you create
a RESTful (that's the common term for "using REST") architecture by
abstracting out a lot of the busy work needed to make it happen.

=cut

package CGI::Application::Plugin::REST;

 view all matches for this distribution


CGI-FormBuilder

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN


    Like "other" fields, all elements are subject to validation checks. The
    text "Additional %s" is controlled by the message "form_grow_default".

  Support for "CGI::FastTemplate"
    Thanks once again to Peter Eichman (busy guy), the module
    "CGI::FormBuilder::Template::Fast" has been included. This adds the
    template type "Fast" as an interface to "CGI::FastTemplate":

        my $form = CGI::FormBuilder->new(
                        template => {

 view all matches for this distribution


( run in 1.793 second using v1.01-cache-2.11-cpan-87723dcf8b7 )