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


JQuery

 view release on metacpan or  search on metacpan

lib/JQuery/jquery_js/plugins/blockUI/jquery.block.js  view on Meta::CPAN

 * active ane will return the page to normal when it is deactivate.  blockUI accepts the following
 * two optional arguments:
 *
 *   message (String|Element|jQuery): The message to be displayed while the UI is blocked. The message
 *              argument can be a plain text string like "Processing...", an HTML string like
 *              "<h1><img src="busy.gif" /> Please wait...</h1>", a DOM element, or a jQuery object.
 *              The default message is "<h1>Please wait...</h1>"
 *
 *   css (Object):  Object which contains css property/values to override the default styles of
 *              the message.  Use this argument if you wish to override the default
 *              styles.  The css Object should be in a format suitable for the jQuery.css

 view all matches for this distribution


JSON-DWIW

 view release on metacpan or  search on metacpan

libjsonevt/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 ||

 view all matches for this distribution


JSON-Feed

 view release on metacpan or  search on metacpan

t/data/flyingmeat.json  view on Meta::CPAN

            "url": "http://flyingmeat.com/blog/archives/2018/2/acorn_6.1_is_out.html"
        },
        {
            "id": "http://flyingmeat.com/blog/archives/2018/6/a_pair_of_updates.html",
            "title": "A Pair of Updates",
            "content_html": "<p>Happy summer solstice everybody! (at least for folks in the northern hemisphere, and for folks in the south… sorry. It&#39;s going to start getting brighter for you though).</p>\n<p>Today I&#39;ve got a pair of minor...
            "date_published": "2018-06-21T10:18:46-07:00",
            "url": "http://flyingmeat.com/blog/archives/2018/6/a_pair_of_updates.html"
        },
        {
            "id": "http://flyingmeat.com/blog/archives/2018/9/retrobatch_1.1_is_out.html",

 view all matches for this distribution


Jabber-Lite

 view release on metacpan or  search on metacpan

lib/Jabber/Lite.pm  view on Meta::CPAN

large data sizes in a graceful fashion.

January 2006: The author completed a version which would, at least, not 
barf on most things.

January through September 2006: Being busy with other things, the author
periodically ran screaming from memory leakage problems similar to 
XML::Parser..  Finally, a casual mention in one of the oddest places 
lead the author to a good explanation of how Perl does not deal with
circular dependencies.

 view all matches for this distribution


JavaScript-ExtJS-V3

 view release on metacpan or  search on metacpan

share/ext-3.4.1/examples/ux/css/ux-all.css  view on Meta::CPAN

    height: 21px;
    line-height: 21px;
    padding: 0 4px;
*/
}
.x-statusbar .x-status-busy {
    padding-left: 25px !important;
    background: transparent no-repeat 3px 2px;
}

.x-toolbar div.xtb-text

share/ext-3.4.1/examples/ux/css/ux-all.css  view on Meta::CPAN

#word-status .x-status-text-panel .spacer {
    width: 60px;
    font-size:0;
    line-height:0;
}
#word-status .x-status-busy {
    padding-left: 25px !important;
    background: transparent no-repeat 3px 2px;
}
#word-status .x-status-saved {
    padding-left: 25px !important;

share/ext-3.4.1/examples/ux/css/ux-all.css  view on Meta::CPAN

/* *********************************************************** */


/* StatusBar - visual */

.x-statusbar .x-status-busy {
    background-image: url(../images/loading.gif);
}
.x-statusbar .x-status-text-panel {
    border-color: #99bbe8 #fff #fff #99bbe8;
}

share/ext-3.4.1/examples/ux/css/ux-all.css  view on Meta::CPAN

/* StatusBar word processor example styles */

#word-status .x-status-text {
    color: #777;
}
#word-status .x-status-busy {
    background-image: url(../images/saving.gif);
}
#word-status .x-status-saved {
    background-image: url(../images/saved.png);
}

 view all matches for this distribution


JavaScript-Packer

 view release on metacpan or  search on metacpan

t/scripts/s18-expected.js  view on Meta::CPAN

/* ! jQuery UI - v1.12.0 - 2016-09-14
* http://jqueryui.com
* Includes: widget.js, position.js, data.js, disable-selection.js, focusable.js, form-reset-mixin.js, jquery-1-7.js, keycode.js, labels.js, scroll-parent.js, tabbable.js, unique-id.js, widgets/draggable.js, widgets/droppable.js, widgets/resizable.js,...
* Copyright jQuery Foundation and other contributors; Licensed MIT */
//# sourceMappingURL=jquery-ui.js.map
(function(factory){if(typeof define==="function"&&define.amd){define(["jquery"],factory)}else{factory(jQuery)}}(function( $ ){ $.ui=$.ui||{};var version=$.ui.version="1.12.0";var widgetUuid=0;var widgetSlice=Array.prototype.slice; $.cleanData=(functi...

 view all matches for this distribution


Jenkins-API

 view release on metacpan or  search on metacpan

lib/Jenkins/API.pm  view on Meta::CPAN

Provides the status of the specified view.  The list of views is
provided in the general status report.

    $jenkins->view_status('MyView');
    # {
    #   'busyExecutors' => {},
    #   'queueLength' => {},
    #   'totalExecutors' => {},
    #   'totalQueueLength' => {}
    # }
    # {

lib/Jenkins/API.pm  view on Meta::CPAN


This returns the load statistics for the server.

    $jenkins->load_statistics();
    # {
    #   'busyExecutors' => {},
    #   'queueLength' => {},
    #   'totalExecutors' => {},
    #   'totalQueueLength' => {}
    # }

 view all matches for this distribution


Kevin-Command-kevin

 view release on metacpan or  search on metacpan

lib/Minion/Worker/Role/Kevin.pm  view on Meta::CPAN


  # Return if worker is finished
  ++$self->{finished} and return if $self->{stopping} && !keys %{$self->{jobs}};

  # Job limit has been reached or worker is stopping
  return $self->emit('busy')
    if ($status->{jobs} <= keys %$jobs) || $self->{stopping};

  # Try to get more jobs
  my ($max, $queues) = @{$status}{qw(dequeue_timeout queues)};
  if (my $job = $self->emit('wait')->dequeue($max => {queues => $queues})) {

 view all matches for this distribution


KeyedMutex-Memcached

 view release on metacpan or  search on metacpan

lib/KeyedMutex/Memcached.pm  view on Meta::CPAN


B<Required>. L<Cache::Memcached::Fast> object or similar interface object.

=item interval

Optional. The seconds for busy loop interval. Defaults to 0.01 seconds.

=item trial

Optional. When the value is being set zero, lock() method will be waiting until lock becomes released.
When the value is being set positive integer value, lock() method will be stopped on reached trial count.

 view all matches for this distribution


Kolab-Cyrus

 view release on metacpan or  search on metacpan

lib/Kolab/Cyrus.pm  view on Meta::CPAN

    my $uid = shift;
    my $sf = shift || 0;
    my $cyruid = &createUid($uid, $sf);

    my $mailbox = ($cyrus->list($cyruid))[0];
    if ($uid && ($uid ne $Kolab::config{'cyrus_admin'}) && ($uid ne "freebusy") && ($uid ne "nobody") && !defined($mailbox)) {
        Kolab::log('Y', "Creating mailbox `$cyruid'");
        if (!$cyrus->create($cyruid)) {
            Kolab::log('Y', "Unable to create mailbox `$cyruid', Error = `" . $cyrus->error . "'", KOLAB_WARN);
        }
    }

 view all matches for this distribution


Kubernetes-REST

 view release on metacpan or  search on metacpan

eg/demo.pl  view on Meta::CPAN

            template => {
                spec => {
                    restartPolicy => 'Never',
                    containers => [{
                        name    => 'worker',
                        image   => 'busybox:latest',
                        command => ['sh', '-c',
                            'echo "Job started at $(date)"; '
                            . 'echo "Processing items..."; '
                            . 'for i in 1 2 3 4 5; do echo "  Item $i done"; sleep 1; done; '
                            . 'echo "Job completed at $(date)"'

eg/demo.pl  view on Meta::CPAN

                    template => {
                        spec => {
                            restartPolicy => 'OnFailure',
                            containers => [{
                                name    => 'cron-worker',
                                image   => 'busybox:latest',
                                command => ['sh', '-c', 'echo "Cron tick at $(date)"'],
                                resources => {
                                    requests => { cpu => '10m', memory => '8Mi' },
                                    limits   => { cpu => '25m', memory => '16Mi' },
                                },

eg/demo.pl  view on Meta::CPAN

        spec => {
            serviceAccountName => 'demo-sa',
            restartPolicy => 'Never',
            containers => [{
                name    => 'util',
                image   => 'busybox:latest',
                command => ['sh', '-c', join('; ',
                    'echo "=== Environment ==="',
                    'echo "APP_ENV=$APP_ENV"',
                    'echo "LOG_LEVEL=$LOG_LEVEL"',
                    'echo "DB_HOST=$DB_HOST"',

 view all matches for this distribution


LEGO-NXT

 view release on metacpan or  search on metacpan

lib/LEGO/NXT.pm  view on Meta::CPAN

  0xBF => "Insane packet",
  0xC0 => "Data contains out-of-range values",
  0xDD => "Communication bus error",
  0xDE => "No free memory in communication buffer",
  0xDF => "Specified channel/connection is not valid",
  0xE0 => "Specified channel/connection not configured or busy",
  0xEC => "No active program",
  0xED => "Illegal size specified",
  0xEE => "Illegal mailbox queue ID specified",
  0xEF => "Attempted to access invalid field of a structure",
  0xF0 => "Bad input or output specified",

 view all matches for this distribution


LSF-Base

 view release on metacpan or  search on metacpan

Base.pm  view on Meta::CPAN

  $max_swap  = $hi->maxSwap;
  $max_tmp   = $hi->maxTmp;
  $ndisks    = $hi->nDisks;
  @resources = $hi->resources;
  $windows   = $hi->windows;
  @threshold = $hi->busyThreshold;
  $is_server = $hi->isServer;
  $licensed  = $hi->licensed;
  $rex_pri   = $hi->rexPriority;
  $lic_feat  = $hi->licFeaturesNeeded;

Base.pm  view on Meta::CPAN


  $base->errno;
  
  $base->errlog(FILE, $msg);

  $base->fdbusy($fd);

=head1 DESCRIPTION

LSF Base provides basic load sharing functionality consisting of the
following services: Cluster configuration information, Load

 view all matches for this distribution


LSF-Batch

 view release on metacpan or  search on metacpan

Batch.pm  view on Meta::CPAN

  @info = $batch->hostinfo_ex(\@hosts, $resreq, $options);

  $hi = $info[0];
  $host = $hi->host;
  $status = $hi->hStatus;
  $sched = $hi->busySched;
  $stop = $hi->busyStop;

  @load = $hi->load;
  @loadsched = $hi->loadSched;
  @loadstop = $hi->loadStop;
  $windows = $hi->windows;

 view all matches for this distribution


LSF_Batch

 view release on metacpan or  search on metacpan

Batch.pm  view on Meta::CPAN

  @info = $batch->hostinfo_ex(\@hosts, $resreq, $options);

  $hi          = $info[0];
  $host        = $hi->host;
  $status      = $hi->hStatus;
  $sched       = $hi->busySched;
  $stop        = $hi->busyStop;

  @load        = $hi->load;
  @loadsched   = $hi->loadSched;
  @loadstop    = $hi->loadStop;
  $windows     = $hi->windows;

 view all matches for this distribution


LWP-JSON-Tiny

 view release on metacpan or  search on metacpan

lib/LWP/JSON/Tiny.pm  view on Meta::CPAN

     do_something($other_response->json_content);
 }

=head1 DESCRIPTION

A lot of RESTful API integration involves pointless busy work with setting
accept and content-type headers, remembering how Unicode is supposed to work
and so on. This is a very simple wrapper around HTTP::Request and
HTTP::Response that handles all of that for you.

There are four classes in this distribution:

 view all matches for this distribution


LaBrea-Tarpit

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	change daemon.pl logic to default to allow all
	client connections instead of allow none

1.00 Wed May 15 16:54:43 PDT 2002
	Updated 'daemon' to use sockets instead of FIFO
	to eliminate session overlap problems on busy server,
	this also facilitates remote daemon interrogation.

	THIS MEANS !!!

	you must update the following scripts:

 view all matches for this distribution


LaTeX-BibTeX

 view release on metacpan or  search on metacpan

BibTeX.pm  view on Meta::CPAN


   http://www.ctan.org/tex-archive/biblio/bibtex/utils/btOOL/
   http://www.cpan.org/authors/Greg_Ward

will both get you to the latest version of C<LaTeX::BibTeX> and B<btparse>
-- but of course, you should always access busy sites like CTAN and CPAN
through a mirror.

=cut

1;

 view all matches for this distribution


LaTeXML-Plugin-LtxMojo

 view release on metacpan or  search on metacpan

lib/LaTeXML/Plugin/LtxMojo/public/js/external/ace-min/mode-php.js  view on Meta::CPAN

define("ace/mode/php",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/php_highlight_rules","ace/mode/matching_brace_outdent","ace/range","ace/worker/worker_client","ace/mode/behaviour/cstyle","ace/mode/folding/cs...

 view all matches for this distribution


LaTeXML

 view release on metacpan or  search on metacpan

lib/LaTeXML/Common/Error.pm  view on Meta::CPAN

  # NOTE: this recovery procedure must always be run after all logging messages are generated,
  #       as resetting the various stacks loses information (e.g. location is lost).
  my $stomach = $$state{stomach};
  my $gullet  = $$stomach{gullet};
  $$stomach{token_stack} = [];
  # If we were in an infinite loop, disable any potential busy token.
  my $relax_def = $$state{meaning}{"\\relax"}[0];
  $state->assignMeaning($LaTeXML::CURRENT_TOKEN, $relax_def, 'global') if $LaTeXML::CURRENT_TOKEN;
  for my $token (@{ $$gullet{pushback} }) {
    $state->assignMeaning($token, $relax_def, 'global'); }
  # Rescue data structures that may be serializable/resumable

 view all matches for this distribution


Lab-Measurement-Legacy

 view release on metacpan or  search on metacpan

lib/Lab/Instrument/TDS2024B.pm  view on Meta::CPAN

        sleep($dtcheck);
    }
}


sub test_busy {
    my $self = shift;
    return 1 if $self->query('BUSY?') =~ /^(:BUSY )?\s*1/i;
    return 0;
}

lib/Lab/Instrument/TDS2024B.pm  view on Meta::CPAN

seconds (again, number or text), except when $deltaT is less than $time.
$deltaT defaults to 500ms. 

Returns 1 if completed, 0 if timed out. 

=head2 test_busy

$busy = $s->test_busy();

Returns 1 if busy (waiting for trigger, etc), 0 if not busy.

=head2 get_id

$s->get_id()

 view all matches for this distribution


Lab-Measurement

 view release on metacpan or  search on metacpan

lib/Lab/Moose/Instrument/TBS1000C.pm  view on Meta::CPAN

#
# BUSY
#


sub busy_query {
    my ( $self, %args ) = validated_getter( \@_ );
    return $self->query( command => "BUSY?", %args );
}

#

lib/Lab/Moose/Instrument/TBS1000C.pm  view on Meta::CPAN

 $tbs->acquire_stopafter(value => 'SEQUENCE');
 say $tbs->acquire_stopafter_query();

Allowed values: SEQUENCE, STOPAFTER

=head2 busy_query

 my $busy = $tbs->busy_query();

Return 1 if busy, 0 if idle.

=head2 curve_query

 my $data_block = $tbs->curve_query();

 view all matches for this distribution


Language-Haskell

 view release on metacpan or  search on metacpan

hugs98-Nov2003/fptools/libraries/base/GHC/IOBase.lhs  view on Meta::CPAN

  showsPrec _ e =
    showString $
    case e of
      AlreadyExists	-> "already exists"
      NoSuchThing       -> "does not exist"
      ResourceBusy      -> "resource busy"
      ResourceExhausted -> "resource exhausted"
      EOF		-> "end of file"
      IllegalOperation	-> "illegal operation"
      PermissionDenied  -> "permission denied"
      UserError		-> "user error"

 view all matches for this distribution


Language-Zcode

 view release on metacpan or  search on metacpan

lib/Language/Zcode/Runtime/IO.pm  view on Meta::CPAN

# LZ::Term packages.
eval <<'ENDWIN32';
package Games::Rezrov::ZIO_Win32;
# z-machine i/o for perls with Win32::Console
# TO DO:
# - can we set hourglass when busy?

use strict;
use Win32::Console;

#use Games::Rezrov::ZIO_Generic;

 view all matches for this distribution


Lemonldap-NG-Portal

 view release on metacpan or  search on metacpan

site/htdocs/static/bwr/jquery-ui/jquery-ui.js  view on Meta::CPAN

		this.tabs.add( this.panels ).each( function() {
			if ( $.data( this, "ui-tabs-destroy" ) ) {
				$( this ).remove();
			} else {
				$( this ).removeAttr( "role tabIndex " +
					"aria-live aria-busy aria-selected aria-labelledby aria-hidden aria-expanded" );
			}
		} );

		this.tabs.each( function() {
			var li = $( this ),

site/htdocs/static/bwr/jquery-ui/jquery-ui.js  view on Meta::CPAN

				if ( status === "abort" ) {
					that.panels.stop( false, true );
				}

				that._removeClass( tab, "ui-tabs-loading" );
				panel.removeAttr( "aria-busy" );

				if ( jqXHR === that.xhr ) {
					delete that.xhr;
				}
			};

site/htdocs/static/bwr/jquery-ui/jquery-ui.js  view on Meta::CPAN

		// Support: jQuery <1.8
		// jQuery <1.8 returns false if the request is canceled in beforeSend,
		// but as of 1.8, $.ajax() always returns a jqXHR object.
		if ( this.xhr && this.xhr.statusText !== "canceled" ) {
			this._addClass( tab, "ui-tabs-loading" );
			panel.attr( "aria-busy", "true" );

			this.xhr
				.done( function( response, status, jqXHR ) {

					// support: jQuery <1.8

 view all matches for this distribution


Lib-Pepper

 view release on metacpan or  search on metacpan

lib/Lib/Pepper/Exception.pm  view on Meta::CPAN

    -1_503 => 'Communication timeout',
    -1_504 => 'Send error',
    -1_505 => 'Receive error',
    -1_506 => 'Protocol error',
    -1_507 => 'Invalid response',
    -1_508 => 'Terminal busy',
    -1_509 => 'Terminal error',
);

sub checkResult($self, $result, $context) {
    if(!defined $result) {

lib/Lib/Pepper/Exception.pm  view on Meta::CPAN

- -1503: Communication timeout
- -1504: Send error
- -1505: Receive error
- -1506: Protocol error
- -1507: Invalid response
- -1508: Terminal busy
- -1509: Terminal error

See Lib::Pepper::Constants for the complete list of error code constants.

=head1 WARNING: AI USE

 view all matches for this distribution


Lim

 view release on metacpan or  search on metacpan

lib/Lim/CLI.pm  view on Meta::CPAN

    my $class = ref($this) || $this;
    my %args = ( @_ );
    my $self = {
        logger => Log::Log4perl->get_logger($class),
        cli => {},
        busy => 0,
        no_completion => 0,
        prompt => 'lim> '
    };
    bless $self, $class;
    weaken($self->{logger});

lib/Lim/CLI.pm  view on Meta::CPAN


sub process {
    my ($self, $line) = @_;
    my ($cmd, $args);

    if ($self->{busy}) {
        return;
    }

    if (defined $line) {
        ($cmd, $args) = split(/\s+/o, $line, 2);

lib/Lim/CLI.pm  view on Meta::CPAN

        if ($cmd) {
            if (exists $self->{current}) {
                if ($self->{current}->{module}->Commands->{$cmd} and
                    $self->{current}->{obj}->can($cmd))
                {
                    $self->{busy} = 1;
                    $self->set_prompt('');
                    $self->{current}->{obj}->$cmd($args);
                }
                else {
                    $self->unknown_command($cmd);

lib/Lim/CLI.pm  view on Meta::CPAN

                    $cmd = lc($cmd);

                    if ($current->{module}->Commands->{$cmd} and
                        $current->{obj}->can($cmd))
                    {
                        $self->{busy} = 1;
                        $self->set_prompt('');
                        $current->{obj}->$cmd($args);
                    }
                    else {
                        $self->unknown_command($cmd);

lib/Lim/CLI.pm  view on Meta::CPAN

=cut

sub Successful {
    my ($self) = @_;

    $self->{busy} = 0;
    if (exists $self->{current}) {
        $self->set_prompt('lim'.$self->{current}->{obj}->Prompt.'> ');
    }
    else {
        $self->set_prompt('lim> ');

lib/Lim/CLI.pm  view on Meta::CPAN

            $self->print($_);
        }
    }
    $self->println;

    $self->{busy} = 0;
    if (exists $self->{current}) {
        $self->set_prompt('lim'.$self->{current}->{obj}->Prompt.'> ');
    }
    else {
        $self->set_prompt('lim> ');

 view all matches for this distribution


Lingua-Concordance

 view release on metacpan or  search on metacpan

etc/walden.txt  view on Meta::CPAN

current slides away, but eternity remains. I would drink deeper;
fish in the sky, whose bottom is pebbly with stars. I cannot count
one. I know not the first letter of the alphabet. I have always been
regretting that I was not as wise as the day I was born. The intellect
is a cleaver; it discerns and rifts its way into the secret of things.
I do not wish to be any more busy with my hands than is necessary.
My head is hands and feet. I feel all my best faculties concentrated
in it. My instinct tells me that my head is an organ for burrowing, as
some creatures use their snout and fore paws, and with it I would mine
and burrow my way through these hills. I think that the richest vein
is somewhere hereabouts; so by the divining-rod and thin rising vapors

etc/walden.txt  view on Meta::CPAN

send home such seeds as these, and Congress help to distribute them
over all the land. We should never stand upon ceremony with sincerity.
We should never cheat and insult and banish one another by our
meanness, if there were present the kernel of worth and
friendliness. We should not meet thus in haste. Most men I do not meet
at all, for they seem not to have time; they are busy about their
beans. We would not deal with a man thus plodding ever, leaning on a
hoe or a spade as a staff between his work, not as a mushroom, but
partially risen out of the earth, something more than erect, like
swallows alighted and walking on the ground:

etc/walden.txt  view on Meta::CPAN

rustle of leaves and the peeping of frogs. As I walked in the woods to
see the birds and squirrels, so I walked in the village to see the men
and boys; instead of the wind among the pines I heard the carts
rattle. In one direction from my house there was a colony of
muskrats in the river meadows; under the grove of elms and buttonwoods
in the other horizon was a village of busy men, as curious to me as if
they had been prairie-dogs, each sitting at the mouth of its burrow,
or running over to a neighbor's to gossip. I went there frequently
to observe their habits. The village appeared to me a great news room;
and on one side, to support it, as once at Redding & Company's on
State Street, they kept nuts and raisins, or salt and meal and other

etc/walden.txt  view on Meta::CPAN

better by the carriage road from Brister's Hill. For I came to town
still, like a friendly Indian, when the contents of the broad open
fields were all piled up between the walls of the Walden road, and
half an hour sufficed to obliterate the tracks of the last
traveller. And when I returned new drifts would have formed, through
which I floundered, where the busy northwest wind had been
depositing the powdery snow round a sharp angle in the road, and not a
rabbit's track, nor even the fine print, the small type, of a meadow
mouse was to be seen. Yet I rarely failed to find, even in
midwinter, some warm and springly swamp where the grass and the
skunk-cabbage still put forth with perennial verdure, and some hardier

etc/walden.txt  view on Meta::CPAN

water soon becomes putrid, but frozen remains sweet forever? It is
commonly said that this is the difference between the affections and
the intellect.

  Thus for sixteen days I saw from my window a hundred men at work
like busy husbandmen, with teams and horses and apparently all the
implements of farming, such a picture as we see on the first page of
the almanac; and as often as I looked out I was reminded of the
fable of the lark and the reapers, or the parable of the sower, and
the like; and now they are all gone, and in thirty days more,
probably, I shall look from the same window on the pure sea-green

 view all matches for this distribution


( run in 2.513 seconds using v1.01-cache-2.11-cpan-600a1bdf6e4 )