view release on metacpan or  search on metacpan

lib/Business/LCCN.pm  view on Meta::CPAN

                    if $emit_warnings;
            } elsif ( $input =~ m/^\s*(0(?:01|10))\b/ ) {
                carp
                    qq{LCCN input "$input" starts with "$1", suggesting you've copied in part of a MARC record. Please remove MARC record formatting from the LCCN.}
                    if $emit_warnings;
            } elsif ( $input =~ m/^\s*(\$[ab])\b/ ) {
                carp
                    qq{LCCN $input "input" starts with "$1", suggesting you've copied in part of a MARC record. Please remove MARC record formatting from the LCCN.}
                    if $emit_warnings;
            } elsif ( $input =~ m/#/ ) {
                carp

 view release on metacpan or  search on metacpan

AuthorizeNet/AIM/ErrorCodes.pm  view on Meta::CPAN

                 'notes' => 'The system-generated void for the original card code-rejected and AVS-rejected transaction failed.',
                 'reason' => 'This transaction has been declined.'
               },
      '49' => {
                'notes' => 'The transaction amount submitted was greater than the maximum amount allowed.',
                'reason' => 'A transaction amount greater than $[amount] will not be accepted.'
              },
      '24' => {
                'notes' => '',
                'reason' => 'The Nova Bank Number or Terminal ID is incorrect. Call Merchant Service Provider.'
              },

 view release on metacpan or  search on metacpan

lib/CAE/Nastran/Nasmod.pm  view on Meta::CPAN

#---------------------
# filter model
# return a model
# filter array:
# $[0]: pattern for matching the comment
# $[1]: pattern for matching the row1 of entity
# $[2]: pattern for matching the row2 of entity
# an entity matches when every pattern of the given filter is found in entity at the given place.
#---------------------
sub filter
{
	my $self = shift;

 view release on metacpan or  search on metacpan

FastTemplate.pm  view on Meta::CPAN

=head2 Variables

A variable is defined as:

    $[A-Z0-9][A-Z0-9_]+


This means, that a variable must begin with a dollar sign '$'.
The second character must be an uppercase letter or digit 'A-Z0-9'.
Remaining characters can include an underscore.

 view release on metacpan or  search on metacpan

lib/CGI/IDS.pm  view on Meta::CPAN

        );

        if ($stripped_length != 0 &&
            $overall_length/$stripped_length <= $threshold
        ) {
            $value .= "\n".'$[!!!]';
        }
    }

    if (strlen($value) > 40) {
        # Replace all non-special chars

 view release on metacpan or  search on metacpan

doc/html2ps  view on Meta::CPAN

}
sub Getopts {
  local($optlist)=@_;
  local(@args,$_,$opt,$opts,$rest,$olist,$plist,$found,@popts);
  local($errs)=0;
  local($[)=0;
  @args=split( /\|/, $optlist );
  for $opt (@args) {
    if(substr($opt,-1,1) ne ':') {$olist.=$opt}
    else {$plist.=$opt}
  }

 view release on metacpan or  search on metacpan

corpus/dists/B-C.changes  view on Meta::CPAN

	The Perl compiler was in CORE from alpha4 until Perl 5.9.4
	and worked quite fine with Perl 5.6 and 5.8

1.45	2014-02-11 rurban
        * C: reset PL_stack_sp on init (was one too far). no effects on code.
        * t/issue281.t: fix wrong test ($[ vs $])

1.44	2014-02-10 rurban
        added adjusted CORE testsuite for 5.14. passes for 5.14.4-nt, not for 5.18.2-nt
	(cPanel code_monkeys)
	still missing in general are:

corpus/dists/B-C.changes  view on Meta::CPAN

	* t/test.pl: refactor: Try to timeout on all tests (compiler and exec) if
	  IPC::Run is installed
	* MANIFEST, *.pod: Moved conference pods to ramblings,
	removed lib/B/Asmdata.pm again, added t/qr_loaded_module.pm
	* t/testm.sh, t/modules.pm: added, -t not working yet though
	* t/b.t: $[ => $]

1.18	2010-02-06 rurban
	evaltry (test 12) still broken on most systems.

	* C.pm, C.xs: fixed r-magic for 5.6 (ExtUtils::Install,