Result:
found more than 814 distributions - search limited to the first 2001 files matching your query
( run in 0.514 )
Archive-Tar-Wrapper
view release on metacpan or search on metacpan
t/001Basic.t view on Meta::CPAN
skip 'Cannot check permissions on a non-existent file', 1 unless $f1;
skip 'Permissions are too different on Microsoft Windows', 1
if ( $Config{osname} eq 'MSWin32' || $Config{osname} eq 'msys' );
is( $expected_permission, '664', 'testing file permissions' )
or diag(
'Known bug in Alpine Linux: https://bugs.busybox.net/show_bug.cgi?id=16102'
);
}
SKIP: {
# gnu options
ArrayData-Lingua-Word-EN-Enable
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
bustlingly
busts
busty
busulfan
busulfans
busy
busybodies
busybody
busying
busyness
busynesses
busywork
busyworks
but
butadiene
butadienes
butane
butanes
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
overburn
overburned
overburning
overburns
overburnt
overbusy
overbuy
overbuying
overbuys
overcall
overcalled
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
unburnable
unburned
unburnt
unbusinesslike
unbusted
unbusy
unbuttered
unbutton
unbuttoned
unbuttoning
unbuttons
ArrayData-Word-EN-Enable
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
bustlingly
busts
busty
busulfan
busulfans
busy
busybodies
busybody
busying
busyness
busynesses
busywork
busyworks
but
butadiene
butadienes
butane
butanes
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
overburn
overburned
overburning
overburns
overburnt
overbusy
overbuy
overbuying
overbuys
overcall
overcalled
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
unburnable
unburned
unburnt
unbusinesslike
unbusted
unbusy
unbuttered
unbutton
unbuttoned
unbuttoning
unbuttons
Astro-Nova
view release on metacpan or search on metacpan
libnova-0.15.0/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 ||
Async-Simple-Pool
view release on metacpan or search on metacpan
lib/Async/Simple/Pool.pm view on Meta::CPAN
flush_data - 1 - remove or 0 - don't remove results from pool, when they has been readed by $pool->process()
result_type - list (list of ready results) / full_list (list of all results) / hash (hash of ready results)
break_on - busy (when all workers are busy) / run(all data is executing) / done (all result are ready)
task_class - see explanation below. For example 'Your::Task::Class';
task_params - Any params you wish to pass to each task object to $task->new( %$here ).
lib/Async/Simple/Pool.pm view on Meta::CPAN
=head2 break_on
Condition of stopping waiting for results and do something other before next check.
'busy' = $self->process will exit after filling all the tasks with tasks, without any checks
'run' = $self->process will end straight after the last task started
'done' = $self->process will wait until all the tasks have finished their work
lib/Async/Simple/Pool.pm view on Meta::CPAN
full list of params for default task type (Async::Simple::Fork) with default values.
my $pp = Async::Simple::Pool->new(
tasks_count => 10,
break_on => 'done', # [ 'busy', 'run', 'done' ]
data => \@data,
task_class => 'Async::Simple::Fork',
task_params => { # Can be placed into pool params directly
task => $task,
timeout => 0.01,
lib/Async/Simple/Pool.pm view on Meta::CPAN
$self->data( $data );
push @{ $self->queue_keys }, @$keys;
push @{ $self->all_keys }, @$keys;
};
my $break_on_busy = $self->break_on eq 'busy';
my $break_on_run = $self->break_on eq 'run';
while( 1 ) {
$self->log( 'PROCESS', 'internal cycle unless exit condition' ) if $self->logger;
$self->read_tasks() if grep $_->has_id, @{ $self->tasks };
$self->write_tasks();
if ( $break_on_busy ) {
$self->log( 'PROCESS', 'internal cycle exit: all threads are busy' ) if $self->logger;
last;
}
# Has not started data
next if scalar @{ $self->queue_keys };
lib/Async/Simple/Pool.pm view on Meta::CPAN
=head2 read_tasks
Internal.
Reads busy tasks.
=cut
sub read_tasks {
my ( $self ) = @_;
my @busy_tasks = grep $_->has_id, @{ $self->tasks } or return;
$self->log( 'READ TASKS', { busy_tasks_found => scalar @busy_tasks } ) if $self->logger;
my $data = $self->data;
for my $task ( @busy_tasks ) {
$task->clear_answer;
$task->get();
unless ( $task->has_answer ) {
$self->log( 'READ TASKS NO ANSWER', { id => $task->id } ) if $self->logger;
Audio-LibSampleRate
view release on metacpan or search on metacpan
libsamplerate/Cfg/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 ||
Audio-MikMod
view release on metacpan or search on metacpan
demo/player-gtk-fork view on Meta::CPAN
$SIG{'KILL'} = \&_exit;
$SIG{'INT'} = \&_exit;
$SIG{'ALRM'} = \&_exit;
my ($song_loaded,$song_playing,$song_paused) = (0,0,0);
my ($songfile,$songpath,$player_busy);
my ($filelabel,$songlabel,$child);
my $url = 'http://electricrain.com/';
my $subs = {
'exit' => \&_exit,
demo/player-gtk-fork view on Meta::CPAN
}
}
sub _update {
while (Player_Active() && $song_playing && !$song_paused) {
$player_busy = 1;
MikMod_Update();
#progress_update();
$player_busy = 0;
usleep(10000);
}
}
sub _stop {
print "In _stop()\n";
$song_paused = 0;
$song_playing = 0;
usleep(1) while $player_busy;
Player_Stop();
kill 9, $child;
waitpid $child, 0;
}
demo/player-gtk-fork view on Meta::CPAN
$song_paused = 0;
if ($song_loaded) {
$song_loaded = 0;
while ($player_busy) {
usleep(1);
}
Player_Free($songfile);
}
Audio-Nama
view release on metacpan or search on metacpan
lib/Audio/Nama/Jack.pm view on Meta::CPAN
sub update_jack_client_list {
state $warn_count;
#logsub((caller(0))[3]);
# cache current JACK status
# skip if Ecasound is busy
return if $this_engine->started();
if( $jack->{jackd_running} = process_is_running('jackd') ){
# reset our clients data
$jack->{clients} = {};
Audio-Radio-Sirius
view release on metacpan or search on metacpan
lib/Audio/Radio/Sirius.pm view on Meta::CPAN
);
our %TYPES = (
command => '00',
ack => '80',
e_busy => '82',
e_checksum => '83'
);
our %ITEM_TYPES = (
0x1 => 'artist',
lib/Audio/Radio/Sirius.pm view on Meta::CPAN
if ($self->{debug}) { print "Sending command: $hexcommand sequence: $sequence\n"; }
if ($self->debug >= 3) {print '>> '.$self->_pformat($data)."\n"; }
$serial->write($data);
$self->_receive;
last SEND if ($self->{_lastack} == $sequence );
# we're still here... receiver is probably busy. give it a bit.
sleep(3);
}
$self->{_sequence} = ($self->{_sequence} + 1);
if ($self->{_sequence} > 255) { $self->{_sequence} = 0; }
Audio-SID
view release on metacpan or search on metacpan
SID_file_format.txt view on Meta::CPAN
Some words about the Real C64 SID file format (RSID):
The RSID format was designed to contain tunes that are not PlaySID compatible,
but strictly require a real C64 environment to run. Tunes that are multi-speed
and/or contain samples and/or use additional interrupt sources or do busy
looping will cause older SID emulators to lock up or play very wrongly (if at
all).
By using the name RSID for such rips all existing SID emulators will reject
these tunes safely until they can be upgraded to cope with the additional
Audio
view release on metacpan or search on metacpan
Play/config/sun.xs view on Meta::CPAN
dev->fd = open(dev_file, O_WRONLY | O_NDELAY);
if ((dev->fd < 0) && (errno == EBUSY))
{
if (!Wait)
{
croak("%s is busy\n", dev_file);
}
/* Now hang until it's open */
dev->fd = open(dev_file, O_WRONLY);
}
else if (dev->fd >= 0)
Authen-Passphrase-Scrypt
view release on metacpan or search on metacpan
scrypt-1.2.1/config.aux/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 ||
Authen-Radius
view release on metacpan or search on metacpan
raddb/dictionary.usr view on Meta::CPAN
VALUE USR-Call-Event-Code calledPartyReject 19
VALUE USR-Call-Event-Code blocked 20
VALUE USR-Call-Event-Code analogBlocked 21
VALUE USR-Call-Event-Code digitalBlocked 22
VALUE USR-Call-Event-Code outOfService 23
VALUE USR-Call-Event-Code busy 24
VALUE USR-Call-Event-Code congestion 25
VALUE USR-Call-Event-Code protocolError 26
VALUE USR-Call-Event-Code noFreeBchannel 27
VALUE USR-Call-Event-Code inOutCallCollision 28
VALUE USR-Call-Event-Code inCallArrival 29
Authen-SimplePam
view release on metacpan or search on metacpan
SimplePam.pm view on Meta::CPAN
elsif ( $result == 5 ) { return "user unknown" }
elsif ( $result == 6 ) { return "maximum tries" }
elsif ( $result == 7 ) { return "unknown error" }
elsif ( $result == 8 ) { return "authentication error" }
elsif ( $result == 9 ) { return "authentication information cannot be recovered" }
elsif ( $result == 10 ) { return "authentication locked busy" }
elsif ( $result == 11 ) { return "authentication aging disable" }
elsif ( $result == 12 ) { return "permission denied" }
elsif ( $result == 13 ) { return "try again" }
elsif ( $result == 14 ) { return "dlopen error" }
elsif ( $result == 15 ) { return "symbol not found" }
B-C
view release on metacpan or search on metacpan
ramblings/5.22-problems.md view on Meta::CPAN
Fixed 5.22 problems during my compiler port
===========================================
I uncovered and fixed many 5.22 problems with
[cperl](http://perl11.org/cperl/) already, but in the last months I
was busy to port the 3 compilers B::C, B::CC and B::Bytecode to 5.22.
As I said in my [interview](http://perlhist.com/perl30/reini-urban)
it's my belief that if all current p5p core committers would stop
committing their bad code it would be actually be the best for the
perl5 project. They weren't able to implemented any of the already
BSD-Resource
view release on metacpan or search on metacpan
make
make test
Note that some of the tests (especially getrusage.t and times.t) are
sensitive to timing, and therefore sensitive to the overall load of
the testing machine. If you get failures, wait for less busy moment
and rerun the tests few times.
To install
make install
BSD-Sysctl
view release on metacpan or search on metacpan
#if __FreeBSD_version < 500000
hv_store(c, "sequence", 8, newSVpvn("", 0), 0);
hv_store(c, "allocated", 9, newSVpvn("", 0), 0);
hv_store(c, "startcount", 10, newSVpvn("", 0), 0);
hv_store(c, "endcount", 8, newSVpvn("", 0), 0);
hv_store(c, "busyfromsec", 11, newSVpvn("", 0), 0);
hv_store(c, "busyfromfrac", 12, newSVpvn("", 0), 0);
#else
hv_store(c, "sequence", 8, newSVuv(inf->sequence0), 0);
hv_store(c, "allocated", 9, newSViv(inf->allocated), 0);
hv_store(c, "startcount", 10, newSViv(inf->start_count), 0);
hv_store(c, "endcount", 8, newSViv(inf->end_count), 0);
hv_store(c, "busyfromsec", 11, newSViv(inf->busy_from.sec), 0);
hv_store(c, "busyfromfrac", 12, newSVuv(inf->busy_from.frac), 0);
#endif
break;
}
#if __FreeBSD_version >= 500000
case FMT_XVFSCONF: {
BSD-devstat
view release on metacpan or search on metacpan
HViv(rh, "duration_read_frac", dev.duration[DEVSTAT_READ].frac);
HViv(rh, "duration_write_sec", dev.duration[DEVSTAT_WRITE].sec);
HViv(rh, "duration_write_frac", dev.duration[DEVSTAT_WRITE].frac);
HViv(rh, "duration_free_sec", dev.duration[DEVSTAT_FREE].sec);
HViv(rh, "duration_free_frac", dev.duration[DEVSTAT_FREE].frac);
HViv(rh, "busy_time_sec", dev.busy_time.sec);
HViv(rh, "busy_time_frac", dev.busy_time.frac);
HViv(rh, "creation_time_sec", dev.creation_time.sec);
HViv(rh, "creation_time_frac", dev.creation_time.frac);
HViv(rh, "block_size", dev.block_size);
HViv(rh, "tag_simple", dev.tag_types[DEVSTAT_TAG_SIMPLE]);
HViv(rh, "tag_ordered", dev.tag_types[DEVSTAT_TAG_ORDERED]);
Badger
view release on metacpan or search on metacpan
lib/Badger/Class.pm view on Meta::CPAN
Eleven. Exactly. One louder.
So far, so good. But what if we wanted to make this the default? Sure, we
could make ten louder and make that be the top number, or we could remember to
specify the C<max_volume> parameter each time we use it. But let's assume
we're working with temperamental artistes who will be too busy worrying about
the quality of the backstage catering to think about checking their volume
settings before they go on stage.
Thankfully we didn't hard-code the maximum volume but used the C<$MAX_VOLUME>
package variable instead. We can change it directly like this:
BalanceOfPower
view release on metacpan or search on metacpan
lib/BalanceOfPower/Commands/DeclareWar.pm view on Meta::CPAN
my @out = ();
for(@targets)
{
my $t = $_;
if((! $self->world->is_under_influence($t) || $self->world->is_under_influence($t) ne $self->actor) &&
! $self->world->war_busy($t))
{
push @out, $t;
}
}
return @out;
Barcode-ZBar
view release on metacpan or search on metacpan
CONSTANT(error, ERR_, INTERNAL, "internal library error");
CONSTANT(error, ERR_, UNSUPPORTED, "unsupported request");
CONSTANT(error, ERR_, INVALID, "invalid request");
CONSTANT(error, ERR_, SYSTEM, "system error");
CONSTANT(error, ERR_, LOCKING, "locking error");
CONSTANT(error, ERR_, BUSY, "all resources busy");
CONSTANT(error, ERR_, XDISPLAY, "X11 display error");
CONSTANT(error, ERR_, XPROTO, "X11 protocol error");
CONSTANT(error, ERR_, CLOSED, "output window is closed");
CONSTANT(error, ERR_, WINAPI, "windows system error");
}
Beekeeper
view release on metacpan or search on metacpan
lib/Beekeeper/MQTT.pm view on Meta::CPAN
0x84 => 'Unsupported Protocol Version', # CONNACK
0x85 => 'Client Identifier not valid', # CONNACK
0x86 => 'Bad User Name or Password', # CONNACK
0x87 => 'Not authorized', # CONNACK, PUBACK, PUBREC, SUBACK, UNSUBACK, DISCONNECT
0x88 => 'Server unavailable', # CONNACK
0x89 => 'Server busy', # CONNACK, DISCONNECT
0x8A => 'Banned', # CONNACK
0x8B => 'Server shutting down', # DISCONNECT
0x8C => 'Bad authentication method', # CONNACK, DISCONNECT
0x8D => 'Keep Alive timeout', # DISCONNECT
0x8E => 'Session taken over', # DISCONNECT
Benchmark-DKbench
view release on metacpan or search on metacpan
data/wiki1.html view on Meta::CPAN
</li>
<li id="cite_note-233"><span class="mw-cite-backlink"><b><a href="#cite_ref-233">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFClark2017" class="citat...
</li>
<li id="cite_note-spacenews20140512-234"><span class="mw-cite-backlink"><b><a href="#cite_ref-spacenews20140512_234-0">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><c...
</li>
<li id="cite_note-koreasat5a-235"><span class="mw-cite-backlink"><b><a href="#cite_ref-koreasat5a_235-0">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITERE...
</li>
<li id="cite_note-236"><span class="mw-cite-backlink"><b><a href="#cite_ref-236">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFClark2017" class="citat...
</li>
<li id="cite_note-237"><span class="mw-cite-backlink"><b><a href="#cite_ref-237">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite class="citation web cs1"><a rel="n...
</li>
data/wiki1.html view on Meta::CPAN
</li>
<li id="cite_note-639"><span class="mw-cite-backlink"><b><a href="#cite_ref-639">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite class="citation web cs1"><a rel="n...
</li>
<li id="cite_note-640"><span class="mw-cite-backlink"><b><a href="#cite_ref-640">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite class="citation web cs1"><a rel="n...
</li>
<li id="cite_note-641"><span class="mw-cite-backlink"><b><a href="#cite_ref-641">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFGebhardt2021" class="ci...
</li>
<li id="cite_note-642"><span class="mw-cite-backlink"><b><a href="#cite_ref-642">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite class="citation web cs1"><a rel="n...
</li>
<li id="cite_note-nextSL19-643"><span class="mw-cite-backlink"><b><a href="#cite_ref-nextSL19_643-0">^</a></b></span> <span class="reference-text"><link rel="mw-deduplicated-inline-style" href="mw-data:TemplateStyles:r999302996"/><cite id="CITEREFBay...
</li>
Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/SpamAssassin/easy_ham/00130.77c75ddeffde2b89edaf8720370f6afc view on Meta::CPAN
| This Week on perl5-porters (30 September / 6 October 2002) |
| posted by rafael on Monday October 07, @07:12 (summaries) |
| http://use.perl.org/article.pl?sid=02/10/07/1124226 |
+--------------------------------------------------------------------+
It was a busy week indeed, with long threads, interesting bugs, clever
fixes, miscellaneous optimizations, some new ideas, a few jokes,
mysterious failures, and, finally, a security hole. Read on.
This story continues at:
http://use.perl.org/article.pl?sid=02/10/07/1124226
Bhagavatgita
view release on metacpan or search on metacpan
lib/Bhagavatgita.pm view on Meta::CPAN
A person who neither rejoices upon achieving something pleasant nor laments upon obtaining something unpleasant, who is self-intelligent, who is unbewildered, and who knows the science of God, is already situated in transcendence.
Such a liberated person is not attracted to material sense pleasure but is always in trance, enjoying the pleasure within. In this way the self-realized person enjoys unlimited happiness, for he concentrates on the Supreme.
An intelligent person does not take part in the sources of misery, which are due to contact with the material senses. O son of Kuntī, such pleasures have a beginning and an end, and so the wise man does not delight in them.
Before giving up this present body, if one is able to tolerate the urges of the material senses and check the force of desire and anger, he is well situated and is happy in this world.
One whose happiness is within, who is active and rejoices within, and whose aim is inward is actually the perfect mystic. He is liberated in the Supreme, and ultimately he attains the Supreme.
Those who are beyond the dualities that arise from doubts, whose minds are engaged within, who are always busy working for the welfare of all living beings, and who are free from all sins achieve liberation in the Supreme.
Those who are free from anger and all material desires, who are self-realized, self-disciplined and constantly endeavoring for perfection, are assured of liberation in the Supreme in the very near future.
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
A person in full consciousness of Me, knowing Me to be the ultimate beneficiary of all sacrifices and austerities, the Supreme Lord of all planets and demigods, and the benefactor and well-wisher of all living entities, attains peace from the pangs o...
The Supreme Personality of Godhead said: One who is unattached to the fruits of his work and who works as he is obligated is in the renounced order of life, and he is the true mystic, not he who lights no fire and performs no duty.
lib/Bhagavatgita.pm view on Meta::CPAN
A person who neither rejoices upon achieving something pleasant nor laments upon obtaining something unpleasant, who is self-intelligent, who is unbewildered, and who knows the science of God, is already situated in transcendence.
Such a liberated person is not attracted to material sense pleasure but is always in trance, enjoying the pleasure within. In this way the self-realized person enjoys unlimited happiness, for he concentrates on the Supreme.
An intelligent person does not take part in the sources of misery, which are due to contact with the material senses. O son of Kuntī, such pleasures have a beginning and an end, and so the wise man does not delight in them.
Before giving up this present body, if one is able to tolerate the urges of the material senses and check the force of desire and anger, he is well situated and is happy in this world.
One whose happiness is within, who is active and rejoices within, and whose aim is inward is actually the perfect mystic. He is liberated in the Supreme, and ultimately he attains the Supreme.
Those who are beyond the dualities that arise from doubts, whose minds are engaged within, who are always busy working for the welfare of all living beings, and who are free from all sins achieve liberation in the Supreme.
Those who are free from anger and all material desires, who are self-realized, self-disciplined and constantly endeavoring for perfection, are assured of liberation in the Supreme in the very near future.
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
A person in full consciousness of Me, knowing Me to be the ultimate beneficiary of all sacrifices and austerities, the Supreme Lord of all planets and demigods, and the benefactor and well-wisher of all living entities, attains peace from the pangs o...
What is called renunciation you should know to be the same as yoga, or linking oneself with the Supreme, O son of PÄnÌ£dÌ£u, for one can never become a yogÄ« unless he renounces the desire for sense gratification.
lib/Bhagavatgita.pm view on Meta::CPAN
A person who neither rejoices upon achieving something pleasant nor laments upon obtaining something unpleasant, who is self-intelligent, who is unbewildered, and who knows the science of God, is already situated in transcendence.
Such a liberated person is not attracted to material sense pleasure but is always in trance, enjoying the pleasure within. In this way the self-realized person enjoys unlimited happiness, for he concentrates on the Supreme.
An intelligent person does not take part in the sources of misery, which are due to contact with the material senses. O son of Kuntī, such pleasures have a beginning and an end, and so the wise man does not delight in them.
Before giving up this present body, if one is able to tolerate the urges of the material senses and check the force of desire and anger, he is well situated and is happy in this world.
One whose happiness is within, who is active and rejoices within, and whose aim is inward is actually the perfect mystic. He is liberated in the Supreme, and ultimately he attains the Supreme.
Those who are beyond the dualities that arise from doubts, whose minds are engaged within, who are always busy working for the welfare of all living beings, and who are free from all sins achieve liberation in the Supreme.
Those who are free from anger and all material desires, who are self-realized, self-disciplined and constantly endeavoring for perfection, are assured of liberation in the Supreme in the very near future.
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
Shutting out all external sense objects, keeping the eyes and vision concentrated between the two eyebrows, suspending the inward and outward breaths within the nostrils, and thus controlling the mind, senses and intelligence, the transcendentalist a...
A person in full consciousness of Me, knowing Me to be the ultimate beneficiary of all sacrifices and austerities, the Supreme Lord of all planets and demigods, and the benefactor and well-wisher of all living entities, attains peace from the pangs o...
BikePower
view release on metacpan or search on metacpan
BikePower/Tk.pm view on Meta::CPAN
-command => sub {
eval {
$top->Busy;
my $bp = new BikePower;
$bp->tk_interface($parent);
$top->Unbusy;
};
warn $@ if $@;
});
$mb_file->command(-label => $s{'Clone'},
-underline => 1,
-command => sub {
eval {
$top->Busy;
my $bp = clone BikePower $self;
$bp->tk_interface($parent, %args);
$top->Unbusy;
};
warn $@ if $@;
});
$mb_file->command(-label => $s{'Close'},
-underline => 0,
Bio-DB-GFF
view release on metacpan or search on metacpan
lib/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;
Bio-DB-Taxonomy-sqlite
view release on metacpan or search on metacpan
is $tree_functions->get_lca($h_flat, $h_flat2)->scientific_name, 'Homo', 'get_lca() within flatfile db';
# entrez
#my $h_entrez;
#eval { $h_entrez = $db_entrez->get_taxon(-name => 'Homo sapiens');};
#skip "Unable to connect to entrez database; no network or server busy?", 7 if $@;
#my $h_entrez2;
#eval { $h_entrez2 = $db_entrez->get_taxon(-name => 'Homo');};
#skip "Unable to connect to entrez database; no network or server busy?", 7 if $@;
#ok $tree_functions = Bio::Tree::Tree->new();
#is $tree_functions->get_lca($h_entrez, $h_entrez2)->scientific_name, 'Homo', 'get_lca() within entrez db';
#ok $tree_functions = Bio::Tree::Tree->new();
# mixing entrez and flatfile
Bio-Graphics
view release on metacpan or search on metacpan
- Regularized options which select glyph subtypes with an option named "glyph_subtype".
2.15
- Fixed documentation bug: sort_order options to sort by feature length should be
"longest" and "shortest" rather than "longer and "shorter".
- Improved layout algorithm, achieving speedup of ~4x on busy tracks.
- Fixed font color problems when displaying multiple alignments at DNA level in
the segments glyph.
- Fixed problem of DNA alignment indels disappearing from view when they span entire region.
- Fixed problem of mismatch and indel colors leaking off ends of feature arrows.
Bio-MUST-Drivers
view release on metacpan or search on metacpan
ok(!-e $report_xml, 'deleted XML report file');
SKIP: {
skip <<"EOT", 5 unless $ENV{$NET_VAR};
remote BLAST tests!
These tests are long to run and can hang if NCBI servers are too busy.
To enable them use:
\$ $NET_VAR=1 make test
EOT
my $db = $db_class->new( file => 'core_nt', remote => 1 );
( run in 0.514 second using v1.01-cache-2.11-cpan-87723dcf8b7 )