view release on metacpan or search on metacpan
lib/Business/BR/Biz.pm view on Meta::CPAN
but doesn't actually exist in government databases.
=head1 SEE ALSO
As you might have guessed, this is not the first Perl distribution
to approach this kind of functionality. Take a look at
http://search.cpan.org/search?module=Brasil::Checar::CPF
http://search.cpan.org/search?module=Brasil::Checar::CGC
http://search.cpan.org/~mamawe/Algorithm-CheckDigits-0.38/CheckDigits/M11_004.pm
view release on metacpan or search on metacpan
lib/Business/BR/RG.pm view on Meta::CPAN
dv[9] * 100 = 0 (mod 11)
=head1 BUGS
until now I do not found any RG that has less than 8 digits.
But, I guess, old people still have it.
For now, this is the only way that I found to check RG.
If you found any bug, feel free to send e-mail, open an issue on github or open a RT.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Business/CanadaPost.pm view on Meta::CPAN
=back
=head1 OBJECT METHODS
Most errors are fatal. The tool tries to guess for you if a value seems
out of whack.
=head2 C<geterror>
Used to fetch the error set when a function return 0 for failure.
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
else {
print
"*** Dependencies will be installed the next time you type '$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::getcwd() );
view release on metacpan or search on metacpan
lib/Business/DK/CPR.pm view on Meta::CPAN
got caught riding the train without a valid ticket the personnel would only
check the validity of you CPR number, so all you have to remember was your
birthday and 4 more digits not being the actual last 4 digits of your CPR
number.
I guess this was the first hack I ever heard about and saw - I never tried it
out, but back then it really fascinated me and my interest in computers was
really sparked.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Business/EDI/CodeList/AlgorithmParameterValue.pm view on Meta::CPAN
package Business::EDI::CodeList::AlgorithmParameterValue;
use base 'Business::EDI::CodeList';
my $VERSION = 0.02;
sub list_number {return "0554";}
my $usage = 'B'; # guessed value
# 0554 Algorithm parameter value []
# Desc:
# Repr:
my %code_hash = (
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
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 /,/...