view release on metacpan or search on metacpan
lib/Business/ID/POM.pm view on Meta::CPAN
$res->{trad_packaging_volume_code} = $5;
if ($res->{trad_company_type_code} == 1) { $res->{trad_company_type_id} = 'pabrik farmasi' }
elsif ($res->{trad_company_type_code} == 2) { $res->{trad_company_type_id} = 'pabrik jamu' }
elsif ($res->{trad_company_type_code} == 3) { $res->{trad_company_type_id} = 'perusahaan jamu' }
elsif ($res->{trad_company_type_code} == 4) { $res->{trad_company_type_id} = 'pabrik luar negeri' } # not documented, i guessed
else {
$res->{trad_company_type_id} = '?';
log_warn "Unknown traditional medicine company type code ($res->{trad_company_type_code}), known code is 1/2/3/4";
}
view release on metacpan or search on metacpan
ISBN13.
20210112.005_03 2021-02-15T17:43:08Z
* I think the CPAN Tester failures are using older versions of
Business::ISBN (older than 3.005 all seem to fail). I assumed they
started fresh, but I guess not. Require a recent version in the
default_data test.
20210112.005_02 2021-02-14T05:07:05Z
* Try harder to see what's going on in CPAN Testers
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Business/NAB/BPAY/Remittance/File/TrailerRecord.pm view on Meta::CPAN
# trailer record amounts in BPAY Remittance Files use the last
# character to represent:
# - the last digit
# - the sign
#
# it's a little odd, but i guess they've historically had to squeeze
# amounts into the 15 available spaces (which are minor units, so 13,
# which still feels like a lot, but whatever). this is the *only*
# NAB file type that does this, so it might actually be a BPAY thing
#
# see also: NAB::Type::BRFInt in Business::NAB::Types which will coerce
view release on metacpan or search on metacpan
$self->logtxn(\@m);
}
# send a Transaction message (and receive a response as required)
# - confirm that the TxnRef is consistant (as per Ingenico guidelines)
# - I guess it is possible for transactions requests/responses to get
# mixed up if someone misses a beat.
# send a request of $type, receive the TT_TRANS_RESPONSE message
my $m = $self->_message($args, $type, TT_TRANS_RESPONSE);
view release on metacpan or search on metacpan
key_utils_wrap.c view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/IATSPayments.pm view on Meta::CPAN
# ACCOUNT TYPE MAP
my %account_types = ('personal checking' => 'CHECKING',
'personal savings' => 'SAVINGS',
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
#not technically B:OP valid i guess?
'checking' => 'CHECKING',
'savings' => 'SAVINGS',
);
$content{'account_type'} = $account_types{lc($content{'account_type'})}
|| $content{'account_type'};
view release on metacpan or search on metacpan
# ACCOUNT TYPE MAP
my %account_types = ('personal checking' => 'CHECKING',
'personal savings' => 'SAVINGS',
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
#not technically B:OP valid i guess?
'checking' => 'CHECKING',
'savings' => 'SAVINGS',
);
$content{'account_type'} = $account_types{lc($content{'account_type'})}
|| $content{'account_type'};
view release on metacpan or search on metacpan
OpenECHO.pm view on Meta::CPAN
#XXX hosted order_type?
$self->{_content}{order_type} = 'S';
#XXX counter field shouldn't be just a random integer (but it does need a
#default this way i guess...
$self->{_content}{counter} = int(rand(2**31));
if ( $self->transaction_type =~ /^[EA][VS]$/ ) {
#ccexp_month & ccexp_year
$self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
0.71 Aug 06 2003
- International USPS bug fixes.
+ Instead of guessing the service by name, we use service type, then
mail type. This may result in getting the wrong service, however.
Needs more analyzation.
- Many, many additional tests.
- Very much improved debug/error handling.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Business/cXML.pm view on Meta::CPAN
}
=item C<B<sender_callback>( I<$sub> )>
By default, a request's From/Sender credentials are only used to guess
response credentials. If you specify a callback here, it will be invoked
immediately after XML parsing, before passing to transaction handlers, giving
you an opportunity to authenticate the caller.
Your subroutine will be passed 3 arguments:
view release on metacpan or search on metacpan
lib/BusyBird/Manual/Config.pod view on Meta::CPAN
=head1 EXAMPLES
=head2 Customize Timestamps
Status timestamps are rendered using C<time_zone>, C<time_format>, C<time_locale> parameters.
By default L<BusyBird> guesses the "correct" config for your system.
busybird->set_config(
time_zone => 'America/Los_Angeles',
time_format => '%Y-%m-%d %A %H:%M:%S %Z',
time_locale => 'en_US',
view release on metacpan or search on metacpan
BuzzSaw.spec view on Meta::CPAN
with the DBI layer. This should make things quicker
* Wed Jul 04 2012 15:18 squinney@INF.ED.AC.UK
- lcfg.yml, lib/BuzzSaw/Parser/RFC3339.pm.in: Completely reworked
the parser. This should be correct more of the time and it's
better at guessing the name/pid for programs. It should also be
slightly faster as the regular expressions are no longer
recompiled on every call to the subroutine.
* Mon Jul 02 2012 16:32 squinney@INF.ED.AC.UK
- lib/BuzzSaw/DB.pm.in: Adjusted some debugging so it is clearer
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
lib/Bytes/Random/Secure.pm view on Meta::CPAN
=head2 bytes_qp
my $random_qp = $random->bytes_qp( 80 );
You guessed it: Identical in function to C<random_bytes_qp>.
=head2 irand
my $unsigned_long = $random->irand;
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
script/pl2exe.pl view on Meta::CPAN
224, # size of the IMAGE_OPTIONAL_HEADER
0x010f # random flags: 0xa18e(?) for a DLL
);
$headers .= pack ('SCCL9S6L4SSL6', # IMAGE_OPTIONAL_HEADERS substruct
0x010b, # 0x0107 would be a ROM image
1,0, # linker version maj.min (I guess that's us)
$code_size,
0,0, # size of initialized/un- data
0x1000, # RVA of entry point
# (the RVA is the address when loaded,
# relative to the image base)
view release on metacpan or search on metacpan
contrib/lib/ModPerl/CScan.pm view on Meta::CPAN
for my $o (0..$#$typedefs) {
my $wh = $whited->[$o];
my $td = $typedefs->[$o];
#my $verb = $td =~ /apr_child_errfn_t/ ? 1 : 0;
#warn "$wh || $td\n" if $verb;
if ($wh =~ /,/ or not $wh =~ /\w/) { # Hard case, guessimates ...
# Determine whether the new thingies are inside parens
$wh =~ /,/g;
my $p = pos $wh;
my ($s, $e);
if (matchingbrace($wh)) { # Inside. Easy part: just split on /,/...
view release on metacpan or search on metacpan
loop:
for my $o (0..$#$typedefs) {
my $wh = $whited->[$o];
my $td = $typedefs->[$o];
if ($wh =~ /,/ or not $wh =~ /\w/) { # Hard case, guessimates ...
# Determine whether the new thingies are inside parens
$wh =~ /,/g;
my $p = pos $wh;
my ($s, $e);
if (matchingbrace($wh)) { # Inside. Easy part: just split on /,/...
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/C/TinyCompiler.pm view on Meta::CPAN
=item Unable to relocate: <message>
The last step in converting your C code to machine-executable code is relocating
the bytecode. This could fail, though I do not understand compilers well enough
to explain why. If I had to guess, I would say you probably ran out of memory.
(Sorry I cannot provide more insight into how to fix this sort of problem.
Feedback for a better explanation would be much appreciated. :-)
=back
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/exec/exec-all.h view on Meta::CPAN
#define DISAS_TB_JUMP 3 /* only pc was modified statically */
struct TranslationBlock;
typedef struct TranslationBlock TranslationBlock;
/* XXX: make safe guess about sizes */
#define MAX_OP_PER_INSTR 208
#if HOST_LONG_BITS == 32
#define MAX_OPC_PARAM_PER_ARG 2
#else
src/sparse-0.4.4/perl/t/include/exec/exec-all.h view on Meta::CPAN
#define OPC_BUF_SIZE 640
#define OPC_MAX_SIZE (OPC_BUF_SIZE - MAX_OP_PER_INSTR)
/* Maximum size a TCG op can expand to. This is complicated because a
single op may require several host instructions and register reloads.
For now take a wild guess at 192 bytes, which should allow at least
a couple of fixup instructions per argument. */
#define TCG_MAX_OP_SIZE 192
#define OPPARAM_BUF_SIZE (OPC_BUF_SIZE * MAX_OPC_PARAM)
view release on metacpan or search on metacpan
lib/CAD/Drawing/IO/Tk.pm view on Meta::CPAN
# OKAY, so we've got 4 zoom actions and we don't get text or images
# for free.
# this takes away all of our fun of having sizable texts (hmm. I
# guess we could create this font from anywhere?)
# XXX this is going to have some odd behaviour for now, but it isn't
# worth trying to make a word-processor widget behave like scalable
# text.
$textsize = $text_base;
view release on metacpan or search on metacpan
lib/CAD/Firemen/Common.pm view on Meta::CPAN
=head2 getInstallationConfigCdb
Uses getInstallationConfigPath() to return the full path to the related config.cdb.
You may specify the installation path to get the related config.pro. If not given, it uses
getInstallationPath() to guess or ask one.
=head2 getInstallationConfigPro
Uses getInstallationConfigPath() to return the full path to the related config.pro.
You may specify the installation path to get the related config.pro. If not given, it uses
getInstallationPath() to guess or ask one.
=head2 sharedDir
Returns the path to the shared directory where all modules and scripts of this
distribution places their files.