view release on metacpan or search on metacpan
use Test2::V0;
use Test2::Plugin::ExitSummary;
todo 'general list of todos' => sub {
fail $_ for
'blocked_attributes';
};
done_testing;
view release on metacpan or search on metacpan
examples/MyApp2/public/javascripts/jquery.js view on Meta::CPAN
/*! jQuery v2.1.4 | (c) 2005, 2015 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
return M.access(a,b,c)},removeData:function(a,b){M.remove(a,b)},_data:function(a,b,c){return L.access(a,b,c)},_removeData:function(a,b){L.remove(a,b)}}),n.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.leng...
void 0===c?d&&"get"in d&&null!==(e=d.get(a,b))?e:(e=n.find.attr(a,b),null==e?void 0:e):null!==c?d&&"set"in d&&void 0!==(e=d.set(a,c,b))?e:(a.setAttribute(b,c+""),c):void n.removeAttr(a,b))},removeAttr:function(a,b){var c,d,e=0,f=b&&b.match(E);if(f&&1...
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/REST.pm view on Meta::CPAN
status_416 status_requested_range_not_satisfiable
status_417 status_expectation_failed
status_418 status_i_m_a_teapot
status_420 status_enhance_your_calm
status_422 status_unprocessable_entity
status_423 status_locked
status_424 status_failed_dependency
status_425 status_unordered_collection
status_426 status_upgrade_required
status_428 status_precondition_required
status_429 status_too_many_requests
status_431 status_request_header_fields_too_large
status_444 status_no_response
status_449 status_retry_with
status_450 status_blocked_by_windows_parental_controls
status_451 status_redirect
status_494 status_request_header_too_large
status_495 status_cert_error
status_496 status_no_cert
status_497 status_http_to_https
view release on metacpan or search on metacpan
lib/dansguardian.pm view on Meta::CPAN
Dansguardian Perl module is small module for administer dansguardian's content control files. It let you add, remove and get information from files control across methods.
=head1 METHODS
Dansguardian perl module provides some basic methods for administer control files, with it you can add, remove and get information about IP's blocked, sites denies, IP exception and other information.
=head2 new (constructor)
$dg = Dansguardian->new([%attributes])
view release on metacpan or search on metacpan
share/assets/dash_core_components/async~datepicker.js view on Meta::CPAN
(window.webpackJsonpdash_core_components=window.webpackJsonpdash_core_components||[]).push([[2],Array(195).concat([function(e,t,n){(function(e){e.exports=function(){"use strict";var t,r;function a(){return t.apply(null,arguments)}function o(e){return...
//# sourceMappingURL=async~datepicker.js.map
view release on metacpan or search on metacpan
t/json/upstream/12_blessed.t view on Meta::CPAN
my $o2 = bless \(my $dummy = 1), "YY";
if (eval 'require Hash::Util') {
if ($Hash::Util::VERSION > 0.05) {
Hash::Util::lock_ref_keys($o1);
print "# blessed hash is locked\n";
}
else {
Hash::Util::lock_hash($o1);
print "# hash is locked\n";
}
}
else {
print "# locked hashes are not supported\n";
};
sub XX::TO_JSON {
{__,""}
}
view release on metacpan or search on metacpan
lib/Data/ChipsChallenge.pm view on Meta::CPAN
01 Wall
02 Computer Chip
03 Water
04 Fire
05 Invisible Wall (won't appear)
06 Blocked North
07 Blocked West
08 Blocked South
09 Blocked East
0A Movable Dirt Block
0B Dirt (mud, turns to floor)
0C Ice
0D Force South (S)
0E Cloning Block North (N)
lib/Data/ChipsChallenge.pm view on Meta::CPAN
2B Bear Trap
2C Invisible Wall (will appear)
2D Gravel
2E Pass Once
2F Hint
30 Blocked South/East
31 Cloning Machine
32 Force Random Direction
34 Burned Chip
35 Burned Chip (2)
36 NOT USED
view release on metacpan or search on metacpan
eg/rangelocks_perl.pl view on Meta::CPAN
print "# getting meta lock\n";
print "# trying to get locks for [$number]\n";
our %locks;
if ($locks{block_exact}{$number}) { # EXC
print "# exact number [$number] is blocked, aborting\n";
print "# releasing meta lock\n";
return;
}
local $_ = $number;
eg/rangelocks_perl.pl view on Meta::CPAN
chop;
}
for my $substr (@substr) {
if ($locks{block_range}{$substr}) { # EXC
print "# range [$substr] is blocked, aborting\n";
print "# releasing meta lock\n";
return;
}
}
eg/rangelocks_perl.pl view on Meta::CPAN
}
sub test_locks_are_empty {
our %locks;
is_deeply(($locks{block_exact} || {}), {}, 'no exact numbers are blocked');
is_deeply(($locks{block_range} || {}), {}, 'no numbers ranges are blocked');
}
reset_locks();
test_ok_locks(431234);
view release on metacpan or search on metacpan
lib/Data/Downloader/DB.pm view on Meta::CPAN
$dbh->do("PRAGMA count_changes = OFF");
if (my $mode = $ENV{DATA_DOWNLOADER_JOURNAL_MODE}) {
$dbh->do("PRAGMA journal_mode = $mode")
if (grep $_ eq $mode, qw(DELETE TRUNCATE PERSIST MEMORY WAL OFF));
}
$dbh->sqlite_busy_timeout(1000*300); # wait up to 5 minutes if it is locked
return $dbh;
}
=item simple
view release on metacpan or search on metacpan
share/jquery-3.7.1/jquery-3.7.1.min.js view on Meta::CPAN
/*! jQuery v3.7.1 | (c) OpenJS Foundation and other contributors | jquery.org/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof windo...
view release on metacpan or search on metacpan
Added additional support for utf8 and some minor doc fixes. Thanks to
Yitzchak yet again for the patches and advice.
1.05
Added support for locked hashes. Probably there are still bugs in here,
but for now it looks good. Thanks to Yitzchak for pointing out this wasn't
implemented.
Also started adding support for a "smart indent mode". Try using Indent(1)
instead of Indent(2).
view release on metacpan or search on metacpan
get_av|5.006000|5.003007|p
getc|5.003007||Viu
get_c_backtrace|5.021001||Vi
get_c_backtrace_dump|5.021001||V
get_context|5.006000|5.006000|nu
getc_unlocked|5.003007||Viu
get_cv|5.006000|5.003007|p
get_cvn_flags|5.009005|5.003007|p
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
PERL_MALLOC_WRAP|5.009002|5.009002|Vn
PerlMem_calloc|5.006000||Viu
PerlMem_free|5.005000||Viu
PerlMem_free_lock|5.006000||Viu
PerlMem_get_lock|5.006000||Viu
PerlMem_is_locked|5.006000||Viu
PerlMem_malloc|5.005000||Viu
PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
PerlMemParse_calloc|5.006000||Viu
PerlMemParse_free|5.006000||Viu
PerlMemParse_free_lock|5.006000||Viu
PerlMemParse_get_lock|5.006000||Viu
PerlMemParse_is_locked|5.006000||Viu
PerlMemParse_malloc|5.006000||Viu
PerlMemParse_realloc|5.006000||Viu
PerlMem_realloc|5.005000||Viu
PerlMemShared_calloc|5.006000||Viu
PerlMemShared_free|5.006000||Viu
PerlMemShared_free_lock|5.006000||Viu
PerlMemShared_get_lock|5.006000||Viu
PerlMemShared_is_locked|5.006000||Viu
PerlMemShared_malloc|5.006000||Viu
PerlMemShared_realloc|5.006000||Viu
Perl_mfree|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000||Viu
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
view release on metacpan or search on metacpan
lib/Data/Enumerable/Lazy.pm view on Meta::CPAN
while (my $queue_item = $queue_enum->next) {
# do something with the queue item
}
In this example the client is blocked until there is an element available in
the queue, but it's hidden away from the clients who consume the data item by
item.
=head2 Kafka example
view release on metacpan or search on metacpan
lib/Data/Keys/E/Dir/Lock.pm view on Meta::CPAN
my $lock_key = $key;
$lock_key =~ s{/}{_}g;
my $lock_filename = File::Spec->catfile($self->lock_dir, $lock_key);
$self->_lock_dir_data->{$key}->{'counter'}++;
# return if already locked
return
if ($self->_lock_dir_data->{$key}->{'counter'} != 1);
my $lock_fh;
my $num_tries = 0;
lib/Data/Keys/E/Dir/Lock.pm view on Meta::CPAN
sub unlock {
my $self = shift;
my $key = shift;
if (not $self->_lock_dir_data->{$key}) {
warn 'unlock("'.$key.'") but is is not locked';
return;
};
$self->_lock_dir_data->{$key}->{'counter'}--;
view release on metacpan or search on metacpan
lib/Data/Lock.pm view on Meta::CPAN
our @EXPORT_OK = qw/dlock dunlock/;
#my @builtin_types =
# qw/SCALAR ARRAY HASH CODE REF GLOB LVALUE FORMAT IO VSTRING Regexp/;
for my $locked ( 0, 1 ) {
my $subname = $locked ? 'dlock' : 'dunlock';
no strict 'refs';
*{$subname} = sub {
no warnings "uninitialized";
return if $_[1] and Internals::SvREADONLY( $_[0]) == $locked;
Internals::SvREADONLY( $_[0], $locked );
return unless my $type = Scalar::Util::reftype( $_[0] );
for (
$type eq 'ARRAY' ? @{ $_[0] }
: $type eq 'HASH' ? values %{ $_[0] }
: $type ne 'CODE' ? ${ $_[0] }
: ()
)
{
&$subname($_, 1) if ref $_;
Internals::SvREADONLY( $_, $locked );
}
$type eq 'ARRAY' ? Internals::SvREADONLY( @{ $_[0] }, $locked )
: $type eq 'HASH' ? Internals::SvREADONLY( %{ $_[0] }, $locked )
: $type ne 'CODE' ? Internals::SvREADONLY( ${ $_[0] }, $locked )
: undef;
};
}
1;
view release on metacpan or search on metacpan
msgpack-3.3.0/include/msgpack/sysdep.h view on Meta::CPAN
# define WIN32_LEAN_AND_MEAN
# endif /* WIN32_LEAN_AND_MEAN */
# endif
typedef long _msgpack_atomic_counter_t;
#if defined(_AMD64_) || defined(_M_X64) || defined(_M_ARM64)
# define _msgpack_sync_decr_and_fetch(ptr) _InterlockedDecrement(ptr)
# define _msgpack_sync_incr_and_fetch(ptr) _InterlockedIncrement(ptr)
#else
# define _msgpack_sync_decr_and_fetch(ptr) InterlockedDecrement(ptr)
# define _msgpack_sync_incr_and_fetch(ptr) InterlockedIncrement(ptr)
#endif
#elif defined(__GNUC__) && ((__GNUC__*10 + __GNUC_MINOR__) < 41)
# if defined(__cplusplus)
# define _msgpack_atomic_counter_header "msgpack/gcc_atomic.hpp"
view release on metacpan or search on metacpan
include/msgpack/sysdep.h view on Meta::CPAN
#endif
#ifdef _WIN32
# define _msgpack_atomic_counter_header <windows.h>
typedef long _msgpack_atomic_counter_t;
# define _msgpack_sync_decr_and_fetch(ptr) InterlockedDecrement(ptr)
# define _msgpack_sync_incr_and_fetch(ptr) InterlockedIncrement(ptr)
#elif defined(__GNUC__) && ((__GNUC__*10 + __GNUC_MINOR__) < 41)
# if defined(__cplusplus)
# define _msgpack_atomic_counter_header "gcc_atomic.hpp"
# else
view release on metacpan or search on metacpan
lib/Data/OFAC.pm view on Meta::CPAN
individuals and companies owned or controlled by, or acting for or on
behalf of, targeted countries. It also lists individuals, groups, and
entities, such as terrorists and narcotics traffickers designated under
programs that are not country-specific. Collectively, such individuals
and companies are called "Specially Designated Nationals" or "SDNs."
Their assets are blocked and U.S. persons are generally prohibited from
dealing with them.
This interface is helpful for insitutions that use Perl, and may have a
need to screen individuals as potential customers.
view release on metacpan or search on metacpan
lib/Data/ObjectStore.pm view on Meta::CPAN
Adds an advisory (flock) lock for each of the unique names given.
=head2 unlock()
Unlocks all names locked by this thread
=head2 sync()
Asks the data provider to sync to persistance.
lib/Data/ObjectStore.pm view on Meta::CPAN
Adds an advisory (flock) lock for each of the unique names given.
This may not be called twice in a row without an unlock in between.
=head2 unlock
Unlocks all names locked by this thread
=head2 _init
This is called the first time an object is created. It is not
called when the object is loaded from storage. This can be used
view release on metacpan or search on metacpan
lib/Data/Page/Viewport.pm view on Meta::CPAN
my(@bound) = $page -> offset(- 1) -> bounds();
the call to C<sub offset(- 1)> will have no effect.
That is, when trying to go back past the beginning of the data set, the
bounds will be locked to values within 0 .. data_size.
Similarly, a call which would go beyond the other end of the data set,
will lock the bounds to the same range.
In short, you can't fall off the edge by calling C<sub offset()>.
view release on metacpan or search on metacpan
share/dictionary.txt view on Meta::CPAN
blockage's
blockages
blockbuster
blockbuster's
blockbusters
blocked
blockhead
blockhead's
blockheads
blockhouse
blockhouse's
share/dictionary.txt view on Meta::CPAN
cloche
cloche's
cloches
clock
clock's
clocked
clocking
clocks
clockwise
clockwork
clockwork's
share/dictionary.txt view on Meta::CPAN
deadliness
deadliness's
deadlining
deadlock
deadlock's
deadlocked
deadlocking
deadlocks
deadly
deadpan
deadpanned
share/dictionary.txt view on Meta::CPAN
floaters
floating
floats
flock
flock's
flocked
flocking
flocks
floe
floe's
floes
share/dictionary.txt view on Meta::CPAN
griding
gridiron
gridiron's
gridirons
gridlock
gridlocked
gridlocking
gridlocks
grids
grief
grief's
share/dictionary.txt view on Meta::CPAN
interlink
interlinked
interlinking
interlinks
interlock
interlocked
interlocking
interlocks
interlocutory
interloper
interloper's
share/dictionary.txt view on Meta::CPAN
landing's
landings
landladies
landlady
landlady's
landlocked
landlord
landlord's
landlords
landlubber
landlubber's
share/dictionary.txt view on Meta::CPAN
loci
loci's
lock
lock's
lockable
locked
locker
locker's
lockers
locket
locket's
share/dictionary.txt view on Meta::CPAN
paddocks
paddy
paddy's
padlock
padlock's
padlocked
padlocking
padlocks
padre
padre's
padres
share/dictionary.txt view on Meta::CPAN
roadbed
roadbed's
roadbeds
roadblock
roadblock's
roadblocked
roadblocking
roadblocks
roadhouse
roadhouse's
roadhouses
share/dictionary.txt view on Meta::CPAN
unbidden
unbind
unbinding
unbinds
unblock
unblocked
unblocking
unblocks
unblushing
unbolt
unbolted
share/dictionary.txt view on Meta::CPAN
unload
unloaded
unloading
unloads
unlock
unlocked
unlocking
unlocks
unloose
unloosed
unlooses
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/Common.pm view on Meta::CPAN
'lobito' => 18300,
'lobster' => 3894,
'lobster1' => 14038,
'location' => 26114,
'lockdown' => 11642,
'locked' => 10146,
'locker' => 18028,
'lockout' => 13020,
'lockwood' => 29171,
'locoloco' => 13368,
'locura' => 16471,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
require 5.008001; # <- also see postamble at the bottom for META.yml
use strict;
if ($ENV{PERLBREW_HOME} and $ENV{PERLBREW_HOME} eq "/home/njh/.perlbrew") {
warn "Your smokers have been blocked because of consistent failures that\n";
warn " are all caused by the smoking setup and not by module errors. I you\n";
warn " have fixed that all, please inform the authors, so this block can\n";
warn " be lifted again.\n";
exit 0;
}
view release on metacpan or search on metacpan
radius/starent view on Meta::CPAN
VALUE SN1-Disconnect-Reason duplicate-session-detected 344
VALUE SN1-Disconnect-Reason sgsn-xid-response-failure 345
VALUE SN1-Disconnect-Reason sgsn-nse-cleanup 346
VALUE SN1-Disconnect-Reason sgsn-gtp-req-failure 347
VALUE SN1-Disconnect-Reason sgsn-imsi-mismatch 348
VALUE SN1-Disconnect-Reason sgsn-bvc-blocked 349
VALUE SN1-Disconnect-Reason sgsn-attach-on-inbound-irau 350
VALUE SN1-Disconnect-Reason sgsn-attach-on-outbound-irau 351
VALUE SN1-Disconnect-Reason sgsn-incorrect-state 352
VALUE SN1-Disconnect-Reason sgsn-t3350-expiry 353
VALUE SN1-Disconnect-Reason sgsn-page-timer-expiry 354
view release on metacpan or search on metacpan
lib/Data/Rand.pm view on Meta::CPAN
sub {
my ($length) = @_;
return Crypt::Random::makerandom_itv( 'Lower' => 0, 'Upper' => $length, ...);
}
Note: The above example (w/ Strong => 0 (IE read() is not being blocked on /dev/random)) benchmarked appx 570 times as slow as the default L<rand>() based solution but its much more truly random.
=back
=back
view release on metacpan or search on metacpan
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
blockage's
blockages
blockbuster
blockbuster's
blockbusters
blocked
blockhead
blockhead's
blockheads
blockhouse
blockhouse's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
cloche
cloche's
cloches
clock
clock's
clocked
clocking
clocks
clockwise
clockwork
clockwork's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
deadliness
deadliness's
deadlining
deadlock
deadlock's
deadlocked
deadlocking
deadlocks
deadly
deadpan
deadpanned
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
floaters
floating
floats
flock
flock's
flocked
flocking
flocks
floe
floe's
floes
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
griding
gridiron
gridiron's
gridirons
gridlock
gridlocked
gridlocking
gridlocks
grids
grief
grief's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
interlink
interlinked
interlinking
interlinks
interlock
interlocked
interlocking
interlocks
interlocutory
interloper
interloper's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
landing's
landings
landladies
landlady
landlady's
landlocked
landlord
landlord's
landlords
landlubber
landlubber's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
loci
loci's
lock
lock's
lockable
locked
locker
locker's
lockers
locket
locket's
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
paddocks
paddy
paddy's
padlock
padlock's
padlocked
padlocking
padlocks
padre
padre's
padres
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
roadbed
roadbed's
roadbeds
roadblock
roadblock's
roadblocked
roadblocking
roadblocks
roadhouse
roadhouse's
roadhouses
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
unbidden
unbind
unbinding
unbinds
unblock
unblocked
unblocking
unblocks
unblushing
unbolt
unbolted
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
unload
unloaded
unloading
unloads
unlock
unlocked
unlocking
unlocks
unloose
unloosed
unlooses
view release on metacpan or search on metacpan
lib/Data/Random/dict view on Meta::CPAN
blockaded
blockades
blockading
blockage
blockages
blocked
blocker
blockers
blockhouse
blockhouses
blocking
lib/Data/Random/dict view on Meta::CPAN
clobber
clobbered
clobbering
clobbers
clock
clocked
clocker
clockers
clocking
clockings
clocks
lib/Data/Random/dict view on Meta::CPAN
dead
deaden
deadline
deadlines
deadlock
deadlocked
deadlocking
deadlocks
deadly
deadness
deadwood
lib/Data/Random/dict view on Meta::CPAN
floated
floater
floating
floats
flock
flocked
flocking
flocks
flog
flogging
flood
lib/Data/Random/dict view on Meta::CPAN
locator
locators
loci
lock
Locke
locked
locker
lockers
Lockhart
Lockheed
Lockian
lib/Data/Random/dict view on Meta::CPAN
unbecoming
unbelievable
unbiased
unbind
unblock
unblocked
unblocking
unblocks
unborn
unbound
unbounded
lib/Data/Random/dict view on Meta::CPAN
unload
unloaded
unloading
unloads
unlock
unlocked
unlocking
unlocks
unlucky
unmanageable
unmanageably
view release on metacpan or search on metacpan
lib/Data/RecordStore.pm view on Meta::CPAN
}
$self->_unlock;
} #delete_record
# locks the given lock names
# they are locked in order to prevent deadlocks.
sub lock {
my( $self, @locknames ) = @_;
my( %previously_locked ) = ( map { $_ => 1 } @{$self->[LOCKS]} );
if( @{$self->[LOCKS]} && grep { ! $previously_locked{$_} } @locknames ) {
die "Data::RecordStore->lock cannot be called twice in a row without unlocking between";
}
my $fhs = [];
my $failed;
for my $name (sort @locknames) {
next if $previously_locked{$name}++;
my $lockfile = "$self->[DIRECTORY]/user_locks/$name";
my $fh;
if( -e $lockfile ) {
unless( open ( $fh, '+<', $lockfile ) ) {
$failed = 1;
lib/Data/RecordStore.pm view on Meta::CPAN
}
sub _fix_transactions {
my $self = shift;
# check the transactions
# if the transaction is in an incomplete state, fix it. Since the store is write locked
# during transactions, the lock has expired if this point has been reached.
# that means the process that made the lock has fallen.
#
# of course, do a little experiment to test this with two processes and flock when
# one exits before unflocking.
lib/Data/RecordStore.pm view on Meta::CPAN
This may not be called twice in a row without an unlock in between
and will die if that happens.
=head2 unlock
Unlocks all names locked by this thread
=head2 use_transaction()
Returns the current transaction. If there is no
current transaction, it creates one and returns it.
view release on metacpan or search on metacpan
lib/Data/Rlist.pm view on Meta::CPAN
$attr = '-'.$attr unless $attr =~ /^-/;
exists $self->{$attr};
}
sub dock($\&) {
carp "package Data::Rlist locked" if $Locked++; # TODO: use critical sections and atomic increment
my ($self, $block) = @_;
local $MaxDepth = $self->get(-MaxDepth=>) if $self->has(-MaxDepth=>);
local $SafeCppMode = $self->get(-SafeCppMode=>) if $self->has(-SafeCppMode=>);
local $EchoStderr = $self->get(-EchoStderr=>) if $self->has(-EchoStderr=>);
local $RoundScientific = $self->get(-RoundScientific=>) if $self->has(-RoundScientific=>);
lib/Data/Rlist.pm view on Meta::CPAN
unless (defined $thing) {
if ($object->errors) {
print STDERR "$thingfile has syntax errors"
} else {
print STDERR "$thingfile not found, is locked or empty"
}
} else {
# Can use $thing
.
.
lib/Data/Rlist.pm view on Meta::CPAN
my($input, $fcmd, $fcmdargs) = @_;
my($rls, $filename);
my $rtp = reftype $input;
carp "\n${\((caller(0))[3])}: filename or scalar-ref required as INPUT" if defined $rtp && $rtp ne 'SCALAR';
carp "\n${\((caller(0))[3])}: package locked" if $Readstruct;
$Readstruct = $ReadFh = undef;
local $| = 1 if $DEBUG;
if (defined $input) {
$Readstruct = { };
lib/Data/Rlist.pm view on Meta::CPAN
ERROR: compile2() broken in deep ARRAY(0x101aaeec) (depth = 101, max-depth = 100)
This message will also be repeated as comment when the compiled Rlist is written to a file.
Furthermore F<$Data::Rlist::Broken> is incremented by one. While the compilation continues,
effectively any attempt to venture deeper as suggested by F<$Data::Rlist::MaxDepth> will be
blocked.
See F<L</broken>>.
=head2 Speeding up Compilation (Explicit Quoting)