Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 2.384 )
P5U-Command-Changes
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
P5U-Command-Deps
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
P5U-Command-Peek
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
P5U-Command-cttail
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
P5U
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
PAR-Packer
view release on metacpan or search on metacpan
lib/PAR/Filter/PatchContent.pm view on Meta::CPAN
],
} };
sub apply {
my ($class, $ref, $filename, $name) = @_;
{ use bytes; $$ref =~ s/^\xEF\xBB\xBF//; } # remove utf8 BOM
my @rule = @{PATCH_CONTENT->{lc($name)}||[]} or return $$ref;
while (my ($from, $to) = splice(@rule, 0, 2)) {
if (ref($from) eq 'Regexp') {
$$ref =~ s/$from/$to/g;
PDF-API2
view release on metacpan or search on metacpan
* lib/PDF/API2/Content.pm: added wantarray choice for
paragraph,
2007-08-01 23:12 fredo
* lib/PDF/API2.pm: fix BOM in info strings
2007-07-01 20:32 fredo
* lib/PDF/API2/fonts/DejaVuSerif-BoldOblique.ttf
lib/PDF/API2/fonts/DejaVuSerif-Oblique.ttf
PDF-API3
view release on metacpan or search on metacpan
lib/PDF/API3/Compat/API2.pm view on Meta::CPAN
Revision 2.11 2007/09/18 22:29:31 areibens
added -printscalingnone option
Revision 2.10 2007/08/01 23:12:08 areibens
fix BOM in info strings
Revision 2.9 2007/05/16 21:45:32 areibens
fixed importpage doku bug http://rt.cpan.org/Ticket/Display.html?id=27152
Revision 2.8 2007/05/10 23:38:38 areibens
PDF-Builder
view release on metacpan or search on metacpan
INFO/Changes-ver_2 view on Meta::CPAN
* lib/PDF/API2/Content.pm: added wantarray choice for
paragraph,
2007-08-01 23:12 fredo
* lib/PDF/API2.pm: fix BOM in info strings
2007-07-01 20:32 fredo
* lib/PDF/API2/fonts/DejaVuSerif-BoldOblique.ttf
lib/PDF/API2/fonts/DejaVuSerif-Oblique.ttf
PDL
view release on metacpan or search on metacpan
lib/PDL/Core/ppport.h view on Meta::CPAN
? 0 \
: UTF8SKIP(s))
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
#define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
#else
PICA-Data
view release on metacpan or search on metacpan
t/20-parser.t view on Meta::CPAN
'Unicode from string reference';
}
# TODO: dump.dat, bgb.example, sru_picaxml.xml
# test XML with BOM
my $xml
= q{<record xmlns="info:srw/schema/5/picaXML-v1.0"><datafield tag="003@"><subfield code="0">1234€</subfield></datafield></record>};
my $record = pica_parser(xml => $xml)->next;
is_deeply $record->{record}, [['003@', '', '0', '1234€']],
POD2-FR
view release on metacpan or search on metacpan
FR/perluniintro.pod view on Meta::CPAN
L'ISO/IEC définit aussi les formes UCS-2 et UCS-4.
Pour plus d'information à propos de l'encodage, par exemple pour
savoir à quoi correspondent les caractères de substitution
(I<surrogates>) et les I<marques d'ordre d'octets> (I<byte order
marks> ou BOMs), consultez L<perlunicode>.
=head2 Le support d'Unicode en Perl
À partir de la version 5.6.0, Perl était apte à gérer Unicode
nativement. Mais la version 5.8.0 a été la première version
POD2-IT
view release on metacpan or search on metacpan
IT/perlunicode.pod view on Meta::CPAN
utf8> >>. Cfr. L<utf8>.
Potete anche usare la direttiva C<encoding> per cambiare la codifica
di default per i dati nei vostri script; cfr. L<encoding>.
=item gli script marcati con BOM o codificati in UTF-16 sono riconosciuti automaticamente
Se uno script Perl comincia con il BOM Unicode (codificato in
UTF-16LE, UTF16-BE, o UTF-8), oppure sembra essere codificato in
UTF-16 (con i byte in qualunque ordine) senza BOM, perl
interpreterE<agrave> correttamente lo script in Unicode. (UTF-8 senza
BOM non è efficacemente distinguibile da ISO 8859-1 o altre codifiche
a 8 bit).
=item C<use encoding> E<egrave> necessario per interpretare correttamente le stringhe di byte non Latin-1
Per default, c'E<egrave> una asimmetria fondamentale nel modello
IT/perlunicode.pod view on Meta::CPAN
Come UTF-8 ma "EBCDIC-safe", allo stesso modo che UTF-8 E<egrave>
ASCII-safe.
=item *
UTF-16, UTF-16BE, UTF-16LE, surrogati, e i BOM (Byte Order Mark)
Quello che segue E<egrave> soprattutto per riferimento e conoscenza generale
di Unicode; Perl non usa questi costrutti internamente.
UTF-16 E<egrave> una codifica a 2 o 4 byte. I code point
IT/perlunicode.pod view on Meta::CPAN
memoria, ma se deve essere trasmesso o salvato su file bisogna
scegliere tra UTF-16BE (big-endian) e UTF-16LE (little-endian).
Questo introduce un altro problema: cosa succede se sapete solo che i
dati sono in UTF-16, ma non sapete in che ordine? I Byte Order Mark, o
BOM, sono una soluzione. Un carattere speciale E<egrave> stato scelto in
Unicode per essere usato come Byte Order Mark: il carattere con code
point C<U+FEFF> E<egrave> il BOM.
Il trucco E<egrave> che se leggete un BOM, saprete l'ordinamento dei
byte, visto che se E<egrave> stato scritto su una piattaforma
big-endian, leggerete i due byte C<0xFE 0xFF>, ma se E<egrave> stato
scritto su una piattaforma little-endian leggerete i due byte C<0xFF
0xFE>. (E se la piattaforma di partenza scriveva in UTF-8, leggerete i
tre byte C<0xEF 0xBB 0xBF>).
Questo trucco funziona perchE<eacute> il code point C<U+FFFE>
E<egrave> garantito non essere un carattere valido, per cui la
sequenza di byte C<0xFF 0xFE> E<egrave> senza ambiguitE<agrave> "BOM
rappresentato in forma little-endian" e non puE<ograve> essere
"C<U+FFFE> rappresentato in forma big-endian".
=item *
UTF-32, UTF-32BE, UTF-32LE
La famiglia UTF-32 E<egrave> molto simile a quella UTF-16, tranne per
il fatto che le unitE<agrave> sono di 32 bit, e di conseguenza non
serve il metodo dei surrogati. Le segnature BOM saranno C<0x00 0x00
0xFE 0xFF> per BE e C<0xFF 0xFE 0x00 0x00> per LE.
=item *
UCS-2, UCS-4
POD2-RU
view release on metacpan or search on metacpan
lib/POD2/RU/perlpodspec.pod view on Meta::CPAN
the not-first "=encoding" lines are just duplicates of the
first one (e.g., if there's a "=encoding utf8" line, and later on
another "=encoding utf8" line). But Pod processors should complain if
there are contradictory "=encoding" lines in the same document
(e.g., if there is a "=encoding utf8" early in the document and
"=encoding big5" later). Pod processors that recognize BOMs
may also complain if they see an "=encoding" line
that contradicts the BOM (e.g., if a document with a UTF-16LE
BOM has an "=encoding shiftjis" line).
=back
If a Pod processor sees any command other than the ones listed
above (like "=head", or "=haed1", or "=stuff", or "=cuttlefish",
lib/POD2/RU/perlpodspec.pod view on Meta::CPAN
=item *
The well known Unicode Byte Order Marks are as follows: if the
file begins with the two literal byte values 0xFE 0xFF, this is
the BOM for big-endian UTF-16. If the file begins with the two
literal byte value 0xFF 0xFE, this is the BOM for little-endian
UTF-16. If the file begins with the three literal byte values
0xEF 0xBB 0xBF, this is the BOM for UTF-8.
=for comment
use bytes; print map sprintf(" 0x%02X", ord $_), split '', "\x{feff}";
0xEF 0xBB 0xBF
lib/POD2/RU/perlpodspec.pod view on Meta::CPAN
If toke.c is modified to support UTF-32, add mention of those here.
=item *
A naive but sufficient heuristic for testing the first highbit
byte-sequence in a BOM-less file (whether in code or in Pod!), to see
whether that sequence is valid as UTF-8 (RFC 2279) is to check whether
that the first byte in the sequence is in the range 0xC0 - 0xFD
I<and> whether the next byte is in the range
0x80 - 0xBF. If so, the parser may conclude that this file is in
UTF-8, and all highbit sequences in the file should be assumed to
POE-Component-Client-DNS
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
POE-Component-Client-HTTP
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
POE-Component-Client-Keepalive
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
POE-Component-Resolver
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
POE-Test-Loops
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
POSIX-2008
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
POSIX-RT-Signal
view release on metacpan or search on metacpan
lib/POSIX/RT/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/POSIX/RT/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
POSIX-RT-Spawn
view release on metacpan or search on metacpan
? 0 \
: UTF8SKIP(s))
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
#define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
#else
POSIX-RT-Timer
view release on metacpan or search on metacpan
lib/POSIX/RT/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/POSIX/RT/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
PPI-Prettify
view release on metacpan or search on metacpan
lib/PPI/Prettify.pm view on Meta::CPAN
# The mapping of PPI::Token class to span attribute type. Is exported and overridable
our $MARKUP_RULES = {
'PPI::Token::ArrayIndex' => 'var',
'PPI::Token::Attribute' => 'atn',
'PPI::Token::BOM' => 'pln',
'PPI::Token::Cast' => 'var',
'PPI::Token::Comment' => 'com',
'PPI::Token::DashedWord' => 'pln',
'PPI::Token::Data' => 'com',
'PPI::Token::End' => 'com',
PPI-XS-Tokenizer
view release on metacpan or search on metacpan
CPPTokenizerWrapper.cc view on Meta::CPAN
"PPI::Token::Label", // Token_Label,
"PPI::Token::Separator", // Token_Separator,
"PPI::Token::End", // Token_End,
"PPI::Token::Data", // Token_Data,
"PPI::Token::Pod", // Token_Pod,
"PPI::Token::BOM", // Token_BOM,
};
const int CPPTokenizerWrapper::fgSpecialToken[43] = {
eSimple, // Token_NoType = 0,
eSimple, // Token_WhiteSpace,
CPPTokenizerWrapper.cc view on Meta::CPAN
eSimple, // Token_Label,
eSimple, // Token_Separator,
eSimple, // Token_End,
eSimple, // Token_Data,
eSimple, // Token_Pod,
eSimple, // Token_BOM,
};
/*
PPI
view release on metacpan or search on metacpan
lib/PPI/Token.pm view on Meta::CPAN
# We don't load the abstracts, they are loaded
# as part of the inheritance process.
# Load the token classes
use PPI::Token::BOM ();
use PPI::Token::Whitespace ();
use PPI::Token::Comment ();
use PPI::Token::Pod ();
use PPI::Token::Number ();
use PPI::Token::Number::Binary ();
PPIx-IndexLines
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error( "Did not provide a string to load" );
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error( "Stream has a non UTF-8 BOM" );
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
PPIx-QuoteLike
view release on metacpan or search on metacpan
lib/PPIx/QuoteLike.pm view on Meta::CPAN
my $bom = $doc->first_element()
or return;
Scalar::Util::weaken( $cached_doc = $doc );
if ( $bom->isa( 'PPI::Token::BOM' ) ) {
return ( $cached_encoding = $known_bom{
uc unpack 'H*', $bom->content() } );
}
$cached_encoding = undef;
PPR
view release on metacpan or search on metacpan
)
)
) # End of rule (?<PerlEntireDocument>)
(?<PerlDocument>
\x{FEFF}?+ # Optional BOM marker
(?&PerlStatementSequence)
(?&PerlOWSOrEND)
) # End of rule (?<PerlDocument>)
(?<PerlStatementSequence>
PT-PostalCode
view release on metacpan or search on metacpan
PostalCode.pm view on Meta::CPAN
[ '592', '610', 'ROLIÇA' ],
[ '612', '615', 'ROLIÇA' ],
[ '663', '665', 'ROLIÇA' ] ] },
'Quinta do Sanguinhal' => {
'2540' => [
[ '216', '218', 'BOMBARRAL' ] ] },
'Cantarola' => {
'2540' => [
[ '687', '694', 'VALE COVO' ] ] },
'Pó' => {
'2540' => [
PostalCode.pm view on Meta::CPAN
'2540' => [
[ '564', '578', 'ROLIÇA' ],
[ '580', '581', 'ROLIÇA' ] ] },
'Moita Boa' => {
'2540' => [
[ '201', '202', 'BOMBARRAL' ] ] },
'Roliça' => {
'2540' => [
[ '668', '668', 'ROLIÇA' ],
[ '670', '678', 'ROLIÇA' ] ] },
'Casal do Brejo' => {
'2540' => [
[ '167', '172', 'BOMBARRAL' ] ] },
'Carvalhal' => {
'2540' => [
[ '326', '337', 'CARVALHAL BBR' ],
[ '355', '369', 'CARVALHAL BBR' ],
[ '371', '371', 'CARVALHAL BBR' ],
PostalCode.pm view on Meta::CPAN
'Casais de Tourinha' => {
'2540' => [
[ '387', '394', 'CARVALHAL BBR' ] ] },
'Bombarral' => {
'2540' => [
[ '007', '007', 'BOMBARRAL' ],
[ '009', '012', 'BOMBARRAL' ],
[ '015', '021', 'BOMBARRAL' ],
[ '023', '026', 'BOMBARRAL' ],
[ '029', '033', 'BOMBARRAL' ],
[ '035', '037', 'BOMBARRAL' ],
[ '041', '041', 'BOMBARRAL' ],
[ '044', '044', 'BOMBARRAL' ],
[ '046', '046', 'BOMBARRAL' ],
[ '049', '050', 'BOMBARRAL' ],
[ '052', '065', 'BOMBARRAL' ],
[ '067', '067', 'BOMBARRAL' ],
[ '069', '071', 'BOMBARRAL' ],
[ '073', '076', 'BOMBARRAL' ],
[ '078', '085', 'BOMBARRAL' ],
[ '087', '089', 'BOMBARRAL' ],
[ '091', '098', 'BOMBARRAL' ],
[ '100', '101', 'BOMBARRAL' ],
[ '103', '107', 'BOMBARRAL' ],
[ '109', '127', 'BOMBARRAL' ],
[ '129', '133', 'BOMBARRAL' ],
[ '135', '141', 'BOMBARRAL' ],
[ '143', '143', 'BOMBARRAL' ],
[ '145', '153', 'BOMBARRAL' ],
[ '155', '156', 'BOMBARRAL' ],
[ '159', '160', 'BOMBARRAL' ] ] },
'Casal da Lavandeira' => {
'2540' => [
[ '396', '398', 'CARVALHAL BBR' ] ] },
'Barreiras' => {
'2540' => [
[ '001', '005', 'BOMBARRAL' ] ] },
'Casal Vale D\'Arcos' => {
'2540' => [
[ '415', '420', 'CARVALHAL BBR' ] ] },
'Barrolobo' => {
'2540' => [
[ '348', '348', 'CARVALHAL BBR' ] ] },
'Estorninho' => {
'2540' => [
[ '185', '185', 'BOMBARRAL' ] ] },
'Bom Vento' => {
'2540' => [
[ '352', '352', 'CARVALHAL BBR' ] ] },
'Camarão' => {
'2540' => [
[ '163', '164', 'BOMBARRAL' ] ] },
'Delgada' => {
'2540' => [
[ '617', '621', 'ROLIÇA' ],
[ '623', '637', 'ROLIÇA' ],
[ '639', '641', 'ROLIÇA' ],
PostalCode.pm view on Meta::CPAN
'Casal do Fialho' => {
'2540' => [
[ '584', '586', 'ROLIÇA' ] ] },
'Famões' => {
'2540' => [
[ '189', '189', 'BOMBARRAL' ] ] },
'Casal do Aniceto' => {
'2540' => [
[ '402', '404', 'CARVALHAL BBR' ] ] },
'Casal da Lamarosa' => {
'2540' => [
PostalCode.pm view on Meta::CPAN
'Cabreira' => {
'5350' => [
[ '261', '262', 'GOUVEIA AFE' ] ] },
'Agrobom' => {
'5350' => [
[ '101', '102', 'AGROBOM' ] ] }
},
'Vinhais' => {
'Brito de Lomba' => {
'5320' => [
[ '031', '034', 'EDRAL' ] ] },
PostalCode.pm view on Meta::CPAN
'Cabo Mondego' => {
'3080' => [
[ '008', '030', 'FIGUEIRA DA FOZ' ] ] },
'Bom Sucesso' => {
'3080' => [
[ '751', '763', 'BOM SUCESSO' ] ] },
'Matioa' => {
'3080' => [
[ '601', '619', 'FIGUEIRA DA FOZ' ] ] },
'Praia da Leirosa' => {
'3090' => [
PostalCode.pm view on Meta::CPAN
'Eiros' => {
'4730' => [
[ '110', '110', 'CODECEDA' ] ] },
'Cereje' => {
'4730' => [
[ '520', '522', 'SÃO MARTINHO VALBOM' ] ] },
'Farões' => {
'4730' => [
[ '380', '382', 'PICO' ] ] },
'Couto' => {
'4730' => [
PostalCode.pm view on Meta::CPAN
[ '160', '163', 'ESQUEIROS' ],
[ '180', '181', 'GEME' ],
[ '590', '598', 'TURIZ' ] ] },
'Carvalhido' => {
'4730' => [
[ '560', '560', 'SÃO PEDRO VALBOM' ] ] },
'Costeira' => {
'4730' => [
[ '440', '442', 'SANDE VVD' ] ] },
'Cobrosa' => {
'4730' => [
PostalCode.pm view on Meta::CPAN
[ '280', '283', 'LOMBA GDM' ],
[ '286', '343', 'LOMBA GDM' ],
[ '697', '703', 'LOMBA GDM' ] ] },
'Valbom' => {
'4420' => [
[ '360', '371', 'VALBOM GDM' ],
[ '373', '404', 'VALBOM GDM' ],
[ '406', '410', 'VALBOM GDM' ],
[ '412', '497', 'VALBOM GDM' ],
[ '499', '581', 'VALBOM GDM' ],
[ '585', '589', 'VALBOM GDM' ] ] },
'Covelo' => {
'4515' => [
[ '001', '083', 'COVELO GDM' ],
[ '679', '680', 'COVELO GDM' ] ] }
},
PostalCode.pm view on Meta::CPAN
'Vale de Madeira' => {
'6400' => [
[ '671', '671', 'VALE DE MADEIRA' ] ] },
'Valbom' => {
'6400' => [
[ '661', '661', 'VALBOM PNH' ] ] },
'Gamelas' => {
'6400' => [
[ '271', '273', 'PEREIRO PNH' ] ] },
'Pínzio' => {
'6400' => [
PostalCode.pm view on Meta::CPAN
'Corujeira' => {
'6300' => [
[ '090', '090', 'CORUJEIRA' ] ] },
'Avelãs de Ambom' => {
'6300' => [
[ '040', '040', 'AVELÃS DE AMBOM' ] ] },
'Vila Cortês do Mondego' => {
'6301' => [
[ '859', '859', 'VILA CORTÊS DO MONDEGO' ] ],
'6300' => [
[ '250', '250', 'VILA CORTÊS DO MONDEGO' ] ] },
PostalCode.pm view on Meta::CPAN
'Leomil' => {
'6350' => [
[ '081', '081', 'LEOMIL ALD' ] ] },
'Aldeia São Sebastião' => {
'6355' => [
[ '041', '042', 'CASTELO BOM' ] ] },
'Cabreira' => {
'6355' => [
[ '030', '030', 'CABREIRA' ] ] },
'Vale da Mula' => {
'6350' => [
( run in 2.384 seconds using v1.01-cache-2.11-cpan-e9daa2b36ef )