Result:
found more than 757 distributions - search limited to the first 2001 files matching your query
( run in 1.096 )
Browsermob-Proxy
view release on metacpan or search on metacpan
is($ENV{http_proxy}, 'http://127.0.0.1:9091', 'can export our HTTP proxy');
is($ENV{https_proxy}, 'http://127.0.0.1:9091', 'can export our HTTPS proxy');
}
sub fake_har_fixture {
return '{"log":{"creator":{"comment":"","version":"2.0","name":"BrowserMob Proxy"},"comment":"","version":"1.2","entries":[{"request":{"bodySize":0,"cookies":[],"headers":[],"httpVersion":"HTTP","headersSize":102,"comment":"","url":"http://www.go...
}
done_testing;
Bundle-OS2_default
view release on metacpan or search on metacpan
patches/diff_DBD-SQLite-0.28 view on Meta::CPAN
+# endif
+#endif
+
/*
** Change the status of the lock on the file "id" to be a readlock.
** If the file was write locked, then this reduces the lock to a read.
@@ -1139,16 +1206,8 @@ int sqliteOsReadLock(OsFile *id){
}
rc = SQLITE_OK;
}else if( id->locked || id->pLock->cnt==0 ){
- struct flock lock;
- int s;
- lock.l_type = F_RDLCK;
- lock.l_whence = SEEK_SET;
- lock.l_start = lock.l_len = 0L;
patches/diff_DBD-SQLite-0.28 view on Meta::CPAN
- }else{
- rc = SQLITE_OK;
+ rc = sqlite_flock(id->fd, sqlite_flock_rlock);
+ if (rc == SQLITE_OK) {
id->pLock->cnt = 1;
id->locked = 1;
}
@@ -1243,16 +1302,8 @@ int sqliteOsWriteLock(OsFile *id){
int rc;
sqliteOsEnterMutex();
if( id->pLock->cnt==0 || (id->pLock->cnt==1 && id->locked==1) ){
- struct flock lock;
- int s;
- lock.l_type = F_WRLCK;
- lock.l_whence = SEEK_SET;
- lock.l_start = lock.l_len = 0L;
patches/diff_DBD-SQLite-0.28 view on Meta::CPAN
- }else{
- rc = SQLITE_OK;
+ rc = sqlite_flock(id->fd, sqlite_flock_wlock);
+ if (rc == SQLITE_OK) {
id->pLock->cnt = -1;
id->locked = 1;
}
@@ -1355,18 +1406,9 @@ int sqliteOsUnlock(OsFile *id){
id->pLock->cnt--;
rc = SQLITE_OK;
}else{
patches/diff_DBD-SQLite-0.28 view on Meta::CPAN
+ if (rc == SQLITE_OK)
id->pLock->cnt = 0;
- }
}
sqliteOsLeaveMutex();
id->locked = 0;
Burpsuite-Parser
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
<a href="small/key.gif"><img class="blackico" src="small/key.gif"
/><img class="whiteico" src="small/key.gif" /> small/key.gif</a>
<br /><a href="small/key.png"><img class="blackico" src="small/key.png"
/><img class="whiteico" src="small/key.png" /> small/key.png</a></td>
</tr>
<tr><td colspan="4">This might represent a locked file.</td>
</tr>
<tr>
<td width="25%">
<a href="layout.gif"><img class="blackico" src="layout.gif"
t/test1.xml view on Meta::CPAN
<a href="small/key.gif"><img class="blackico" src="small/key.gif"
/><img class="whiteico" src="small/key.gif" /> small/key.gif</a>
<br /><a href="small/key.png"><img class="blackico" src="small/key.png"
/><img class="whiteico" src="small/key.png" /> small/key.png</a></td>
</tr>
<tr><td colspan="4">This might represent a locked file.</td>
</tr>
<tr>
<td width="25%">
<a href="layout.gif"><img class="blackico" src="layout.gif"
t/test1.xml view on Meta::CPAN
<a href="small/key.gif"><img class="blackico" src="small/key.gif"
/><img class="whiteico" src="small/key.gif" /> small/key.gif</a>
<br /><a href="small/key.png"><img class="blackico" src="small/key.png"
/><img class="whiteico" src="small/key.png" /> small/key.png</a></td>
</tr>
<tr><td colspan="4">This might represent a locked file.</td>
</tr>
<tr>
<td width="25%">
<a href="layout.gif"><img class="blackico" src="layout.gif"
t/test1.xml view on Meta::CPAN
<a href="small/key.gif"><img class="blackico" src="small/key.gif"
/><img class="whiteico" src="small/key.gif" /> small/key.gif</a>
<br /><a href="small/key.png"><img class="blackico" src="small/key.png"
/><img class="whiteico" src="small/key.png" /> small/key.png</a></td>
</tr>
<tr><td colspan="4">This might represent a locked file.</td>
</tr>
<tr>
<td width="25%">
<a href="layout.gif"><img class="blackico" src="layout.gif"
Business-CAMT
view release on metacpan or search on metacpan
lib/Business/CAMT/tags/abbreviations.csv view on Meta::CPAN
Binary,Binry
Binding,Bndg
Birth,Birth
Blank,Blnk
Block,Blck
Blocked,Blckd
Blocking,Blckg
Bloomberg,Blmbrg
Board,Brd
Body,Body
Bond,Bd
Business-CCProcessor
view release on metacpan or search on metacpan
lib/Business/CCProcessor.pm view on Meta::CPAN
hand that data off to a secure credit card processor which
then collects the credit card parameters, and processes
the transaction between the credit card owners account and
the script owners account. This is a poor man's variant on
Business::OnlinePayment for clients who cannot afford the video
camera watched locked cages around their dedicated server,
to collect credit card payments from their buyers or donors,
in a real-time interaction with the credit card owner.
This module is for you if you need to accept online credit card
payments for your organization or services but are not prepared
Business-Cashcow
view release on metacpan or search on metacpan
Business::Cashcow::InitCashcow("passphrase", "rc4key");
Call this function to load the /etc/cashcow.ini file and setup state
regarding keys and certificates. Returns true if private key was
successfully unlocked using the supplied passphase, false
otherwise.
my $transaction = {card_number => '76009244561',
card_expirymonth => 7,
card_expiryyear => 8,
Business-DK-Postalcode
view release on metacpan or search on metacpan
examples/mojo-webapp/public/js/jquery.min.js view on Meta::CPAN
/*! jQuery v1.11.1 | (c) 2005, 2014 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...
if(k&&j[k]&&(e||j[k].data)||void 0!==d||"string"!=typeof b)return k||(k=i?a[h]=c.pop()||m.guid++:h),j[k]||(j[k]=i?{}:{toJSON:m.noop}),("object"==typeof b||"function"==typeof b)&&(e?j[k]=m.extend(j[k],b):j[k].data=m.extend(j[k].data,b)),g=j[k],e||(g.d...
},cur:function(){var a=Zb.propHooks[this.prop];return a&&a.get?a.get(this):Zb.propHooks._default.get(this)},run:function(a){var b,c=Zb.propHooks[this.prop];return this.pos=b=this.options.duration?m.easing[this.easing](a,this.options.duration*a,0,1,th...
Business-EDI
view release on metacpan or search on metacpan
lib/Business/EDI/CodeList/MonetaryAmountTypeCodeQualifier.pm view on Meta::CPAN
'154' => [ 'Amount to be collected',
'The monetary amount that is to be collected.' ],
'155' => [ 'Standard duty',
'Standard Customs duty that would apply if special provisions did not apply.' ],
'156' => [ 'G-Amount',
'Amount out of total invoice amount being paid into a blocked account.' ],
'157' => [ 'Insurance value',
'(5010) Value for which the goods are insured.' ],
'158' => [ 'Insurance and transport charges incurred inside Customs',
'territory (5488)+(5290) Charges to be paid for moving goods, by whatever means, from the point of entry into the Customs territory (within a Customs union: to the point of entry in the final destination country).' ],
'159' => [ 'Licence (value deducted)',
Business-Giropay
view release on metacpan or search on metacpan
lib/Business/Giropay/Notification.pm view on Meta::CPAN
# Allgemein
4501 => 'timeout / no user input',
4502 => 'user aborted',
4503 => 'duplicate transaction',
4504 => 'suspicion of manipulation or payment method temporarily blocked',
4505 => 'payment method blocked or rejected',
4900 => 'transaction rejected ',
# Age verification (giropay)
4020 => 'age verification successful',
4021 => 'age verification not possible',
Business-KontoCheck
view release on metacpan or search on metacpan
zlib/examples/gzlog.c view on Meta::CPAN
return lseek(log->fd, log->last - len, SEEK_SET) < 0 ||
write(log->fd, buf + 2 - len, len + 4) != len + 4 ||
lseek(log->fd, log->stored, SEEK_CUR) < 0 ? -1 : 0;
}
/* Append len bytes from data to the locked and open log file. len may be zero
if recovering and no .add file was found. In that case, the previous state
of the foo.gz file is restored. The data is appended uncompressed in
deflate stored blocks. Return -1 if there was an error reading or writing
the foo.gz file. */
local int log_append(struct log *log, unsigned char *data, size_t len)
Business-OnlinePayment-AuthorizeNet
view release on metacpan or search on metacpan
AuthorizeNet/AIM/ErrorCodes.pm view on Meta::CPAN
'83' => {
'notes' => 'The system no longer supports version 2.5; requests cannot be posted to scripts.',
'reason' => 'The requested script is either invalid or no longer supported.'
},
'250' => {
'notes' => 'This transaction was submitted from a blocked IP address.',
'reason' => 'This transaction has been declined.'
},
'59' => {
'notes' => '',
'reason' => 'An error occurred in processing. Please try again in 5 minutes.'
Business-OnlinePayment-IATSPayments
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/IATSPayments.pm view on Meta::CPAN
'39' => 'Contact IATS 1-888-955-5455.',
'40' => 'Invalid card number. Card not supported by IATS.',
'41' => 'Invalid Expiry date.',
'42' => 'CVV2 required.',
'43' => 'Incorrect AVS.',
'45' => 'Credit card name blocked. Call iATS at 1-888-955-5455.',
'46' => 'Card tumbling. Call iATS at 1-888-955-5455.',
'47' => 'Name tumbling. Call iATS at 1-888-955-5455.',
'48' => 'IP blocked. Call iATS at 1-888-955-5455.',
'49' => 'Velocity 1 – IP block. Call iATS at 1-888-955-5455.',
'50' => 'Velocity 2 – IP block. Call iATS at 1-888-955-5455.',
'51' => 'Velocity 3 – IP block. Call iATS at 1-888-955-5455.',
'52' => 'Credit card BIN country blocked. Call iATS at 1-888-955-5455.',
'100' => 'DO NOT REPROCESS. Call iATS at 1-888-955-5455.',
#Timeout The system has not responded in the time allotted. Call iATS at 1-888-955-5455.
);
our %failure_status = (
Business-OnlinePayment-Litle
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/Litle/ErrorCodes.pm view on Meta::CPAN
},
'705' => {
notes => 'On negative file'
},
'706' => {
notes => 'Blocked agreement'
},
'707' => {
notes => 'Insufficient buying power'
},
'708' => {
Business-OnlinePayment-Ogone
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/Ogone.pm view on Meta::CPAN
=head2 Credentials
You need to create a subaccount to access the API. Use that subaccount as the USERID or login.
You will need to login with the password of the api user.
If you try to submit requests with a bad username or password your account can get blocked.
To unblock your account you should go into the users panel and reactivate the account.
=head2 Configuration Parameters
Configure the L<Ogone Test Backend|https://secure.ogone.com/ncol/test/frame_ogone.asp> or
Business-OnlinePayment-OpenECHO
view release on metacpan or search on metacpan
OpenECHO.pm view on Meta::CPAN
"23" => [ "Unacceptable transaction fee", "Unacceptable transaction fee." ],
"24" => [ "File update not supported", "File update not supported." ],
"25" => [ "Unable to locate record", "Unable to locate record." ],
"26" => [ "Duplicate record", "Duplicate record." ],
"27" => [ "File update edit error", "File update edit error." ],
"28" => [ "File update file locked", "File update file locked." ],
"30" => [ "Format error, call ECHO", "The host reported that the transaction was not formatted properly." ],
"31" => [ "Bank not supported", "Bank not supported by switch." ],
"32" => [ "Completed partially", "Completed partially." ],
"33" => [ "Expired card, pick-up", "The card is expired. Merchant may receive reward money by capturing the card." ],
"34" => [ "Issuer suspects fraud, pick-up card", "The card issuer suspects fraud. Merchant may receive reward money by capturing the card." ],
Business-OnlinePayment-PaymenTech
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/PaymenTech.pm view on Meta::CPAN
'44' => 'inactive', # Account Not Active
#'45' duplicate transaction, should also have its own status
'B7' => 'blacklisted', # Fraud
'B9' => 'blacklisted', # On Negative File
'BB' => 'stolen', # Possible Compromise
'BG' => 'blacklisted', # Blocked Account
'BQ' => 'blacklisted', # Issuer has Flagged Account as Suspected Fraud
'C4' => 'nsf', # Over Credit Limit
'D5' => 'blacklisted', # On Negative File
'D7' => 'nsf', # Insufficient Funds
'F3' => 'inactive', # Account Closed
Business-OnlinePayment-VirtualNet
view release on metacpan or search on metacpan
VirtualNet.pm view on Meta::CPAN
my $mmdd = substr(time2str('0%m%d',time),-4);
$header .= $mmdd; # 58-61 4 NUM Batch Transmission Date MMDD (4.22)
$header .= $batchnum; # 62-64 3 NUM Batch Number 001 - 999 (4.18)
$header .= '0'; # 65 1 NUM Blocking Indicator 0=Not Blocked
# (4.23)
die "header length should be 65!" unless length($header) == 65;
my $message =
VirtualNet.pm view on Meta::CPAN
or die "can't decode (eis1081) RB response (41+ ". length($remainder).
"): $remainder";
my( $error_type, $error_record_sequence_number, $error_record_type,
$error_data_field_number, $error_data ) = ( $1, $2, $3, $4, $5 );
my %error_type = (
B => 'Blocked Terminal',
C => 'Card Type Error',
D => 'Device Error',
E => 'Error in Batch',
S => 'Sequence Error',
T => 'Transmission Error',
Business-cXML
view release on metacpan or search on metacpan
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!ATTLIST OrganizationRole
name NMTOKEN #REQUIRED
>
<!-- Inventory that is in the possession of the customer, and is owned and managed by the customer.-->
<!ELEMENT Inventory (SubcontractingStockInTransferQuantity?, UnrestrictedUseQuantity?,
BlockedQuantity?, QualityInspectionQuantity?, PromotionQuantity?,
StockInTransferQuantity?, IncrementQuantity?, RequiredMinimumQuantity?,
RequiredMaximumQuantity?,
StockOnHandQuantity?, WorkInProcessQuantity?, IntransitQuantity?, ScrapQuantity?,
OrderQuantity?, DaysOfSupply?)>
<!-- Consignment Inventory is inventory that is in the possession of the customer, but is still owned by the supplier.-->
<!ELEMENT ConsignmentInventory (SubcontractingStockInTransferQuantity?,
UnrestrictedUseQuantity?, BlockedQuantity?,
QualityInspectionQuantity?, PromotionQuantity?, StockInTransferQuantity?,
IncrementQuantity?, RequiredMinimumQuantity?, RequiredMaximumQuantity?)>
<!--SubcontractingStockInTransfer is the transfer of stock to a vendor of type subcontracting using a special movement type. -->
<!ELEMENT SubcontractingStockInTransferQuantity (UnitOfMeasure?) >
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
<!-- Unrestricted Stock is the physical stock that is always available at a plant/storage location that can be consumed for stock movements and available for Material requirements planning.-->
<!ELEMENT UnrestrictedUseQuantity (UnitOfMeasure?) >
<!ATTLIST UnrestrictedUseQuantity
quantity %r8; #IMPLIED>
<!--Blocked stock is not counted as unrestricted stock .You can have Plant level configuration to consider the stock for MRP.-->
<!ELEMENT BlockedQuantity (UnitOfMeasure?) >
<!ATTLIST BlockedQuantity
quantity %r8; #IMPLIED>
<!-- QualityInspectionQuantity is the stock type where the received stock is under quality inspection.-->
<!ELEMENT QualityInspectionQuantity (UnitOfMeasure?) >
<!ATTLIST QualityInspectionQuantity
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
workCenter
Work center number.
procedure
Specifies how the sample size is calculated and how the inspection characteristic is valuated, is a text value.
isLocked
If a characteristic is locked not more valuations are allowed for this characteristic.
allowDefectRecording
If you set this indicator and an inspection characteristic is rejected during results recording, the function for recording defects for a characteristic is automatically called up.
characteristicType
You use inspection characteristics to describe the inspection criteria for materials, parts, and products. This allows you to plan inspections systematically, uniformly, and economically. An inspection request can contain different type of ch...
required, the inspection of this characteristic is required to create an Inspection Decision.
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
Unrestricted Stock is the physical stock that is always available at a plant/storage location that can be consumed for stock movements and available for Material requirements planning.
ScrapQuantity
The quantity represents the Scrap of a material that is expected to occur during production if the material is a component.
SampleUsageQuantity
quantity for sampleUsageQuantity
BlockedQuantity
Blocked stock is not counted as unrestricted stock. You can have Plant level configuration to consider the stock for MRP.
NewMaterialQuantity
for new material quantity
ReserveQuantity
for reserve quantity
ReturnQuantity
t/xml-catalog/cXML-1.2.036/cXML.dtd view on Meta::CPAN
-->
<!ELEMENT QualityInspectionLotStock (
UnrestrictedUseQuantity?,
ScrapQuantity?,
SampleUsageQuantity?,
BlockedQuantity?,
NewMaterialQuantity?,
ReserveQuantity?,
ReturnQuantity?
)>
Business-eWAY-RapidAPI
view release on metacpan or search on metacpan
examples/web/Styles/jquery-ui-1.8.11.custom.css view on Meta::CPAN
.ui-icon-suitcase { background-position: -112px -96px; }
.ui-icon-comment { background-position: -128px -96px; }
.ui-icon-person { background-position: -144px -96px; }
.ui-icon-print { background-position: -160px -96px; }
.ui-icon-trash { background-position: -176px -96px; }
.ui-icon-locked { background-position: -192px -96px; }
.ui-icon-unlocked { background-position: -208px -96px; }
.ui-icon-bookmark { background-position: -224px -96px; }
.ui-icon-tag { background-position: -240px -96px; }
.ui-icon-home { background-position: 0 -112px; }
.ui-icon-flag { background-position: -16px -112px; }
.ui-icon-calendar { background-position: -32px -112px; }
Business-iDEAL-Adyen
view release on metacpan or search on metacpan
lib/Business/iDEAL/Adyen.pm view on Meta::CPAN
my $plaintext = '';
if($args->{paymentAmount}) {
# Initial signature (the one we _send_)
for(qw/paymentAmount currencyCode shipBeforeDate merchantReference
skinCode merchantAccount sessionValidity shopperEmail
shopperReference allowedMethods blockedMethods/) {
$plaintext .= ( defined $self->{"_$_"} )
? $self->{"_$_"} : ( $args->{$_} || "" );
}
} else {
# Second signature (the one we _receive_)
BusyBird
view release on metacpan or search on metacpan
share/www/static/jquery.js view on Meta::CPAN
if ( !memory ) {
self.disable();
}
return this;
},
// Is it locked?
locked: function() {
return !stack;
},
// Call all callbacks with the given context and arguments
fireWith: function( context, args ) {
args = args || [];
C-Mlock
view release on metacpan or search on metacpan
__END__
=head1 NAME
C::Mlock - A locked in RAM memory region
=head1 SYNOPSIS
use C::Mlock;
$bytesAllocated = $a->initialize();
$bytesAllocated = $a->set_pages($nPages);
$bytesAllocated = $a->set_size($nBytes);
print "memory region locked" if $a->is_locked();
print "process locked in memory" if $a->process_locked();
$a->store($data, $length);
print $a->get();
$a->lockall();
=item I<$a> = I<new> I<C::Mlock> I<[$nPages]>
Creates and returns a new C<C::Mlock> object.
The optional $nPages specifies the number of pages to be
allocated and locked on return.
=item I<$a>->I<initialize>()
Will allocate the storage and lock it in memory if I<$nPages>
was not specified as part of the contructor. Returns the
number of bytes available.
=item I<$a>->I<process_locked>()
Will return 1 if the process has been locked in RAM by a
successful mlockall() call.
=item I<$a>->I<is_locked>()
Will return 1 if the allocated memory cannot be paged to swap
(ie is locked in RAM)
=item I<$a>->I<pagesize>()
Will return the page size on this system.
=item I<$a>->I<set_size>(I<$bytes>)
Will set thelocked storage region to be of size I<$bytes>.
If this is called after bytes are written, it will reallocate
the storage to the new size and copy over all the data from
the old memory region before clearing and releasing it.
Will lock the entire process in RAM, on error will croak.
=item I<$a>->I<unlockall>()
Will unlock the process from RAM (if locked) and immediately
relock the preallocted memory.
=item I<$a>->I<dump>()
Will return a hexdump of the memory allocated.
=back
=head1 WARNINGS
Users on systems may have restrictions on the amount of memory
that may be locked. This may cause lockall() to fail with
C<ENOMEM> which is not caught and will cause a fatal error.
Similarly if you attempt to C<set_size> or C<set_pages> and the
combined total of the original and new regions exceed the limit
on the user a fatal error will occur.
unlockall() knows nothing of other mlock() calls except those in
its own constructor, so if you have multiple instances and you
call unlockall() it will unlock the regions in those instances
and they will not be relocked. It is recommended that you either
rely on lockall()/unlockall() or the internal locked storage but
not both.
When using this module for cryptography you should undef everything
in the same function if possible and overwrite each scalar
immediately to prevent the memory being put back into the pool
=head1 BUGS
Various failures in the C libraries are not checked. Particularly
C<ENOMEM> where there isn't enough system memory to allow the
process or pages to be locked to RAM. This is particularly noted
on systems such as linux and freebsd which restrict users (non root)
to disallowing the calls either totally or based on the memory
required to complete the lock (Thanks to Slaven Rezic for noting
that a user can only lock 64kB by defaul on debian/jessie machines
by default.)
C-TinyCompiler
view release on metacpan or search on metacpan
lib/C/TinyCompiler.pm view on Meta::CPAN
# Make sure we don't have any conflicting packages:
if ($package_spec->conflicts_with($self, keys %{$self->{applied_package}})
or grep {$_->conflicts_with($self, $package_spec)} keys %{$self->{applied_package}}
) {
# If there's a conflict, then mark the package as blocked
$self->block_package($package_spec);
}
else {
# Apply the package, storing the options (for use later under the
# symbol application).
lib/C/TinyCompiler.pm view on Meta::CPAN
it does provide a means for packages to indicate dependencies and conflicts with
others. In general, all of this should be handled by the packages and manual
intervention from a user should usually not be required.
As far as the compiler is concerned, a package can be in one of three
states: (1) applied, (2) blocked, or (3) unknown. An applied package is any
package that you have applied directly or which has been pulled in as a package
dependency (but which has not been blocked). A blocked package is one that
should should not be applied. An unknown package is one that simply has not
been applied or blocked.
As an illustration of this idea, consider the L<C::TinyCompiler::Perl> package and the
light-weight sub-packages like L<C::TinyCompiler::Perl::Croak>. The light-weight packages
provide a exact subset of L<C::TinyCompiler::Perl>, so if L<C::TinyCompiler::Perl> is loaded, the
sub-packages need to ensure that they do not apply themselves or, if they have
already been applied, that they remove themselves. This check and manipulation
occurs during the sub-packages' call to C<conflicts_with>
=head2 is_package_applied, is_package_blocked, is_package_known
Three simple methods to inquire about the status of a package. These return
boolean values indicating whether the package (1) is currently being applied,
(2) is currently blocked, or (3) is either being applied or blocked.
=cut
sub is_package_applied {
my ($self, $package) = @_;
return exists $self->{applied_package}->{$package};
}
sub is_package_blocked {
my ($self, $package) = @_;
return exists $self->{blocked_package}->{$package};
}
sub is_package_known {
my ($self, $package) = @_;
return ($self->is_package_applied($package)
or $self->is_package_blocked($package));
}
=head2 block_package
Blocks the given package and removes its args from the applied package list if
lib/C/TinyCompiler.pm view on Meta::CPAN
=cut
sub block_package {
my ($self, $package) = @_;
delete $self->{applied_package}->{$package};
$self->{blocked_package}->{$package} = 1;
}
=head2 get_package_args
Returns the array ref containing the package arguments that were supplied when
the package was applied (or an empty array ref if the package was never applied
or has subsequently been blocked). This is the actual array reference, so any
manipulations to this array reference will effect the reference returned in
future calls to C<get_package_args>.
=cut
C-sparse
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/block/block.h view on Meta::CPAN
* Device models with removable media must implement this callback.
*/
void (*change_media_cb)(void *opaque, bool load);
/*
* Runs when an eject request is issued from the monitor, the tray
* is closed, and the medium is locked.
* Device models that do not implement is_medium_locked will not need
* this callback. Device models that can lock the medium or tray might
* want to implement the callback and unlock the tray when "force" is
* true, even if they do not support eject requests.
*/
void (*eject_request_cb)(void *opaque, bool force);
src/sparse-0.4.4/perl/t/include/block/block.h view on Meta::CPAN
* Is the virtual tray open?
* Device models implement this only when the device has a tray.
*/
bool (*is_tray_open)(void *opaque);
/*
* Is the virtual medium locked into the device?
* Device models implement this only when device has such a lock.
*/
bool (*is_medium_locked)(void *opaque);
/*
* Runs when the size changed (e.g. monitor command block_resize)
*/
void (*resize_cb)(void *opaque);
} BlockDevOps;
src/sparse-0.4.4/perl/t/include/block/block.h view on Meta::CPAN
void bdrv_set_dev_ops(BlockDriverState *bs, const BlockDevOps *ops,
void *opaque);
void bdrv_dev_eject_request(BlockDriverState *bs, bool force);
bool bdrv_dev_has_removable_media(BlockDriverState *bs);
bool bdrv_dev_is_tray_open(BlockDriverState *bs);
bool bdrv_dev_is_medium_locked(BlockDriverState *bs);
int bdrv_read(BlockDriverState *bs, int64_t sector_num,
uint8_t *buf, int nb_sectors);
int bdrv_read_unthrottled(BlockDriverState *bs, int64_t sector_num,
uint8_t *buf, int nb_sectors);
int bdrv_write(BlockDriverState *bs, int64_t sector_num,
src/sparse-0.4.4/perl/t/include/block/block.h view on Meta::CPAN
int bdrv_is_sg(BlockDriverState *bs);
int bdrv_enable_write_cache(BlockDriverState *bs);
void bdrv_set_enable_write_cache(BlockDriverState *bs, bool wce);
int bdrv_is_inserted(BlockDriverState *bs);
int bdrv_media_changed(BlockDriverState *bs);
void bdrv_lock_medium(BlockDriverState *bs, bool locked);
void bdrv_eject(BlockDriverState *bs, bool eject_flag);
const char *bdrv_get_format_name(BlockDriverState *bs);
BlockDriverState *bdrv_find(const char *name);
BlockDriverState *bdrv_next(BlockDriverState *bs);
void bdrv_iterate(void (*it)(void *opaque, BlockDriverState *bs),
CAD-ProEngineer
view release on metacpan or search on metacpan
CAD::ProEngineer is an XS wrapper around the Pro/Toolkit (Pro/Engineer API)
libraries to provide the functions as perl subroutines. A required element
is a Pro/Toolkit program with an embedded perl interpreter, which will use
this module to access Pro/Toolkit code. An example of the necessary
interpreter code can be found in the 'perl561' subfolder, which also contains
unlocked binaries for Windows and Solaris. These binaries may have hardcoded
paths so your mileage may vary.
INSTALLATION
+ C compiler (whichever compiled your main perl install)
+ Win32 ActiveState Perl requires MS Visual C++
+ A perl interpreter embedded into a toolkit program
+ See the 'perl561' folder for source code and unlocked binaries
+ A Pro/Toolkit license is required to compile the interpreter
+ The Pro/Tookit header files
CAM-App
view release on metacpan or search on metacpan
lib/CAM/App.pm view on Meta::CPAN
#--------------------------------#
=item isAllowedHost
This function is called from authenticate(). Checks the incoming host
and returns false if it should be blocked. Currently no tests are
performed -- this is a no-op. Subclasses may override this behavior.
=cut
sub isAllowedHost {
CDB_File
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
CGI-AuthRegister
view release on metacpan or search on metacpan
AuthRegister.pm view on Meta::CPAN
# Section: Simple file locking using mkdir
# Exlusive locking using mkdir
# lock_mkdir($fname); # return 1=success ''=fail
sub lock_mkdir {
my $fname = shift; my $lockd = "$fname.lock"; my $locked;
# First, hopefully most usual case
if (!-e $lockd && ($locked = mkdir($lockd,0700))) { return $locked }
my $tryfor=10; #sec
$locked = ''; # flag
for (my $i=0; $i<2*$tryfor; ++$i) {
select(undef,undef,undef,0.5); # wait for 0.5 sec
!-e $lockd && ($locked = mkdir($lockd,0700));
if ($locked) { return $locked }
}
$Error.="393-ERR:Could not lock file ($fname)\n"; return $locked;
}
# Unlock using mkdir
# unlock_mkdir($fname); # return 1=success ''=fail or no lock
sub unlock_mkdir {
CGI-Builder-Auth
view release on metacpan or search on metacpan
lib/CGI/Builder/Auth/GroupAdmin.pm view on Meta::CPAN
These methods give you control of the locking mechanism.
$group = new CGI::Builder::Auth::GroupAdmin (Locking => 0); #turn off auto-locking
$group->lock; #lock the object's database
$group->add($username,$passwd); #write while database is locked
$group->unlock; release the lock
=item db($dbname);
Select a different database.
CGI-Bus
view release on metacpan or search on metacpan
lib/CGI/Bus/file.pod view on Meta::CPAN
L<IO::File|IO/File> object
=item -lock
Current file lock, 0 or undef is used when unlocked
=item -mode
File access mode, default is 'r'
lib/CGI/Bus/file.pod view on Meta::CPAN
=item lock -> current lock mode
Locks or unlocks file, or returns current lock.
Lock mode may be L<Fcntl|Fcntl> 'LOCK_SH', 'LOCK_EX', 'LOCK_UN',
or strings 'sh', 'ex', 'un' or '0'.
0 means unlocked file.
=item open ( filename, ?mode, ?perm ) -> self object
Open file.
( run in 1.096 second using v1.01-cache-2.11-cpan-49f99fa48dc )