Result:
found more than 1017 distributions - search limited to the first 2001 files matching your query
( run in 1.547 )
Pcore-CDN-Static
view release on metacpan or search on metacpan
lib/Pcore/CDN/Static/FA.pm view on Meta::CPAN
use Pcore -const, -export;
const our $EXPORT => {
FAB => [qw[$FAB_ACCESSIBLE_ICON $FAB_ACCUSOFT $FAB_ACQUISITIONS_INCORPORATED $FAB_ADN $FAB_ADOBE $FAB_ADVERSAL $FAB_AFFILIATETHEME $FAB_AIRBNB $FAB_ALGOLIA $FAB_ALIPAY $FAB_AMAZON $FAB_AMAZON_PAY $FAB_AMILIA $FAB_ANDROID $FAB_ANGELLIST $FAB_ANGRY...
FAR => [qw[$FAR_ADDRESS_BOOK $FAR_ADDRESS_CARD $FAR_ANGRY $FAR_ARROW_ALT_CIRCLE_DOWN $FAR_ARROW_ALT_CIRCLE_LEFT $FAR_ARROW_ALT_CIRCLE_RIGHT $FAR_ARROW_ALT_CIRCLE_UP $FAR_BELL $FAR_BELL_SLASH $FAR_BOOKMARK $FAR_BUILDING $FAR_CALENDAR $FAR_CALENDAR...
FAS => [qw[$FAS_AD $FAS_ADDRESS_BOOK $FAS_ADDRESS_CARD $FAS_ADJUST $FAS_AIR_FRESHENER $FAS_ALIGN_CENTER $FAS_ALIGN_JUSTIFY $FAS_ALIGN_LEFT $FAS_ALIGN_RIGHT $FAS_ALLERGIES $FAS_AMBULANCE $FAS_AMERICAN_SIGN_LANGUAGE_INTERPRETING $FAS_ANCHOR $FAS_AN...
};
const our $FAB_ACCESSIBLE_ICON => 'fab fa-accessible-icon';
const our $FAB_ACCUSOFT => 'fab fa-accusoft';
const our $FAB_ACQUISITIONS_INCORPORATED => 'fab fa-acquisitions-incorporated';
lib/Pcore/CDN/Static/FA.pm view on Meta::CPAN
const our $FAS_BLENDER_PHONE => 'fas fa-blender-phone';
const our $FAS_BLIND => 'fas fa-blind';
const our $FAS_BLOG => 'fas fa-blog';
const our $FAS_BOLD => 'fas fa-bold';
const our $FAS_BOLT => 'fas fa-bolt';
const our $FAS_BOMB => 'fas fa-bomb';
const our $FAS_BONE => 'fas fa-bone';
const our $FAS_BONG => 'fas fa-bong';
const our $FAS_BOOK => 'fas fa-book';
const our $FAS_BOOK_DEAD => 'fas fa-book-dead';
const our $FAS_BOOK_MEDICAL => 'fas fa-book-medical';
Pcore-Resources
view release on metacpan or search on metacpan
lib/Pcore/Resources/FA.pm view on Meta::CPAN
use Pcore -const, -export;
const our $EXPORT => {
FAB => [qw[$FAB_ACCESSIBLE_ICON $FAB_ACCUSOFT $FAB_ACQUISITIONS_INCORPORATED $FAB_ADN $FAB_ADVERSAL $FAB_AFFILIATETHEME $FAB_ALGOLIA $FAB_ALIPAY $FAB_AMAZON $FAB_AMAZON_PAY $FAB_AMILIA $FAB_ANDROID $FAB_ANGELLIST $FAB_ANGRYCREATIVE $FAB_ANGULAR $...
FAR => [qw[$FAR_ADDRESS_BOOK $FAR_ADDRESS_CARD $FAR_ANGRY $FAR_ARROW_ALT_CIRCLE_DOWN $FAR_ARROW_ALT_CIRCLE_LEFT $FAR_ARROW_ALT_CIRCLE_RIGHT $FAR_ARROW_ALT_CIRCLE_UP $FAR_BELL $FAR_BELL_SLASH $FAR_BOOKMARK $FAR_BUILDING $FAR_CALENDAR $FAR_CALENDAR...
FAS => [qw[$FAS_AD $FAS_ADDRESS_BOOK $FAS_ADDRESS_CARD $FAS_ADJUST $FAS_AIR_FRESHENER $FAS_ALIGN_CENTER $FAS_ALIGN_JUSTIFY $FAS_ALIGN_LEFT $FAS_ALIGN_RIGHT $FAS_ALLERGIES $FAS_AMBULANCE $FAS_AMERICAN_SIGN_LANGUAGE_INTERPRETING $FAS_ANCHOR $FAS_AN...
};
const our $FAB_ACCESSIBLE_ICON => 'fab fa-accessible-icon';
const our $FAB_ACCUSOFT => 'fab fa-accusoft';
const our $FAB_ACQUISITIONS_INCORPORATED => 'fab fa-acquisitions-incorporated';
lib/Pcore/Resources/FA.pm view on Meta::CPAN
const our $FAS_BLENDER => 'fas fa-blender';
const our $FAS_BLENDER_PHONE => 'fas fa-blender-phone';
const our $FAS_BLIND => 'fas fa-blind';
const our $FAS_BOLD => 'fas fa-bold';
const our $FAS_BOLT => 'fas fa-bolt';
const our $FAS_BOMB => 'fas fa-bomb';
const our $FAS_BONE => 'fas fa-bone';
const our $FAS_BONG => 'fas fa-bong';
const our $FAS_BOOK => 'fas fa-book';
const our $FAS_BOOK_DEAD => 'fas fa-book-dead';
const our $FAS_BOOK_OPEN => 'fas fa-book-open';
Pcore
view release on metacpan or search on metacpan
lib/Pcore/Util/Text.pm view on Meta::CPAN
our $CODE = {
decode_eol => <<'PERL', # convert EOL to internal \n representation
s/\x0D?\x0A/\n/smg;
PERL
remove_bom => <<'PERL', # remove BOM
s/\A(?:\x00\x00\xFE\xFF|\xFF\xFE\x00\x00|\xFE\xFF|\xFF\xFE|\xEF\xBB\xBF)//sm;
PERL
fullchomp => <<'PERL',
s/(?:\x0D|\x0A)+\z//sm;
PERL
Perl-Achievements
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//;
}
Perl-Critic-Policy-Modules-ProhibitUseLib
view release on metacpan or search on metacpan
0.001 2018-09-26 09:36:12 Europe/Berlin
[Added]
Initial version that introduces functions to test string and files for
byte-order-marks (BOM).
Perl-Critic-Policy-ValuesAndExpressions-ProhibitFiletest_rwxRWX
view release on metacpan or search on metacpan
examples/file-access-tests view on Meta::CPAN
# We jump through this particular hoop because PPI::Document
# does not recognize 'use utf8;'. Instead it looks for a Byte
# Order Mark (a.k.a. non-breaking space) as the first encoded
# character of the file, and adjusts accordingly. UTF-8 files
# without a BOM are therefore not read correctly. So we incur
# the overhead of guessing and decoding if we guess a unique
# encoding. We then feed PPI::Document the possibly-decoded file
# content.
my $doc;
{
Perl-Dist-Strawberry-BuildPerl-5123
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//;
}
Perl-Dist-Strawberry
view release on metacpan or search on metacpan
share/extra-files/win32/metacpan.svg view on Meta::CPAN
zs5XFVcV1LVoDX88Q34PBmYba7ryYxRZTvTlJbrkovZ6+0Kh55pU9H9sFfen9YIWCxw6DXzd9qcs
/V+iAyAIKNqaBQACBCAIVo2mwuhGN/X+INq7Po52Xne0M6M4MZRsvwoQvShv5e1S5U4Nl/6MPDfm
dbfrtFnTamHzn23j9ZbrGJ0reQDQjweCZKAfdJEKhMzlQcqqmmKo53Un+4Mcjnw8ymnEqF9Ok0yA
cD0dCCuI3tWseli7+Wka7KPevtKkZ2F+lrQcsC9tfzWz/feX/vzRMCeFGkOeVGZFEJFoShU2NXct
7/ayP/DxKMeT/bHu3bPgGSZAEOvaEvzTcsEsx09FP7mlenShho32Dj0u+rRckLrfzTpt12TSP1jj
p069Rdb/j9l+PQgkKvMIhBJOQafuMXa6xzKFhruO+477nnc7ft3j/sCHgxxPcDzBOMp4xgjU2McJ
AH7j5i6++Wou/T7QrG2GbZgf63cw7q/M/FjU+4jSn/PRWd4UghYfPCVs6qlrcehpt+fdnvYH3h9E
2b4/8vEIdIIIyRAh+leC8/9REXD2H80vGNQsBIA6LXJpO7eO+Q+0GKziq2WvtXfadh21tSU9r4o5
r+gBwCpkiAhkQaxNEWsYkJcZcddx3/PQ8fDKPzvudvy6w13Nu4NUSY5J0klGgvPZW9uleIB/u8v6
juiDQX+NQKq8VtJsz0KbbBfa60brVVLuF12HVvC6xP0PsINkpgOIFQgCIbBZHwSiaOjg5cCvO9rt
+XWPu7287vB1x/UedkmIhEhGMg/MgsL5FHTw+hdqcMH5wv/7Nistrqu972ih+wQG9C+stVanLJaD
Perl-Dist-WiX-BuildPerl-5123
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//;
}
Perl-Dist-WiX
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//;
}
Perl-PrereqScanner-NotQuiteLite
view release on metacpan or search on metacpan
lib/Perl/PrereqScanner/NotQuiteLite.pm view on Meta::CPAN
if ($self->{quick}) {
$c->{file_size} = length $string;
$self->_skim_string($c, \$string) if $c->{file_size} > 30_000;
}
# UTF8 BOM
if ($string =~ s/\A(\xef\xbb\xbf)//s) {
utf8::decode($string);
$c->{decoded} = 1;
}
# Other BOMs (TODO: also decode?)
$string =~ s/\A(\x00\x00\xfe\xff|\xff\xfe\x00\x00|\xfe\xff|\xff\xfe)//s;
# normalize
if ("\n" eq "\015") {
$string =~ s/(?:\015?\012)/\n/gs;
Perl-Tidy
view release on metacpan or search on metacpan
lib/Perl/Tidy.pm view on Meta::CPAN
# operations with utf8. If we have not decoded the data, then
# we must not treat it as encoded data.
my $is_encoded_data = $encoding_in ? 'utf8' : EMPTY_STRING;
$self->[_is_encoded_data_] = $is_encoded_data;
# Delete any Byte Order Mark (BOM), which can cause trouble
if ($is_encoded_data) {
${$rinput_string} =~ s/^\x{FEFF}//;
}
$rstatus->{'input_name'} = $display_name;
Perl-Types
view release on metacpan or search on metacpan
lib/perlapinames_generated.pm view on Meta::CPAN
## no critic qw(ProhibitParensWithBuiltins ProhibitNoisyQuotes) # SYSTEM SPECIAL 3: allow auto-generated code
$perlapinames_generated::FUNCTIONS_DOCUMENTED = undef;
$perlapinames_generated::FUNCTIONS_DOCUMENTED = {
'AvFILL' => 1,
'BOM_UTF8' => 1,
'BhkDISABLE' => 1,
'BhkENABLE' => 1,
'BhkENTRY_set' => 1,
'CLASS' => 1,
'Copy' => 1,
Perl6-Doc
view release on metacpan or search on metacpan
share/Synopsis/S32-setting-library/IO.pod view on Meta::CPAN
) is export
A convenience method/function that hides most of the OO complexity.
It will only open normal files. Text is the default. Note that
the "Unicode" encoding implies figuring out which actual UTF is
in use, either from a BOM or other heuristics. If heuristics are
inconclusive, UTF-8 will be assumed. (No 8-bit encoding will ever
be picked implicitly.) A file opened with C<:bin> may still be
processed line-by-line, but IO will be in terms of C<Buf> rather
than C<Str> types.
Perl6-Pugs
view release on metacpan or search on metacpan
docs/notes/unicode_draft view on Meta::CPAN
The "lang" should never be inferred from encoding -- it makes no
sense because lang usage shifts with time: People are writing
Trad.Chinese in GBK all the time now.
2. BOM sniffing of .pl files, but currently the set it knows is
(UTF16[LB]E, UTF8+BOM, ASCII(really latin* as default))
it should be:
(UTF32[LB]E, UTF16[LB]E, UTF8(default))
3. Per-handle stackable IO layers makes sense.
But it should allow introspection into different layer-chunks:
docs/notes/unicode_draft view on Meta::CPAN
.bytes # pretend strings are buffers
.codepoints # same as perl5 - not terribly useful
# - basically unsigned integers with 21 bits
.characters # this should be the default:
# - COMBINING MARKS
# - BOM (and other zero-width assertions)
.graphemes # visual rendering - includes metadata like
# - LANGUAGE TAG blocks
# - VARIATION SELECTOR
# - LTR/RTL SELECTOR
# - Act as pre-decomposed forms (for canonical decomposition)
PerlIO-bom
view release on metacpan or search on metacpan
lib/PerlIO/bom.pm view on Meta::CPAN
XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
1;
#ABSTRACT: Automatic BOM handling in Unicode IO
__END__
=pod
=encoding UTF-8
=head1 NAME
PerlIO::bom - Automatic BOM handling in Unicode IO
=head1 VERSION
version 0.001
lib/PerlIO/bom.pm view on Meta::CPAN
open my $fh, '<:bom(utf-8)', $filename;
=head1 DESCRIPTION
This module will automate BOM handling. On a reading handle, it will try to detect a BOM and push an appropriate decoding layer for that encoding. If no BOM is detected the specified encoding is used, or UTF-8 if none is given.
A writing handle will be opened with the specified encoding, and a BOM will be written to it.
=head1 SYNTAX
This modules does not have to be loaded explicitly, it will be loaded automatically by using it in an open mode. The module has the following general syntax: C<:bom(encoding)> or C<:bom>. The encoding may be anything C<:encoding> accepts.
PerlIO-utf8_strict
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
PerlIO-via-EscStatus
view release on metacpan or search on metacpan
t/EscStatus.t view on Meta::CPAN
ok ($AD_str !~ /\p{PerlIO::via::EscStatus::IsZero}/);
ok ("\x{0300}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # Mn
ok ("\x{0488}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # Me
ok ("\x{1100}" !~ /\p{PerlIO::via::EscStatus::IsZero}/); # W
ok ("\x{FF10}" !~ /\p{PerlIO::via::EscStatus::IsZero}/); # F
ok ("\x{FEFF}" =~ /\p{PerlIO::via::EscStatus::IsZero}/); # BOM
#------------------------------------------------------------------------------
# IsDouble
t/EscStatus.t view on Meta::CPAN
ok ($_9F_str !~ /\p{PerlIO::via::EscStatus::IsDouble}/);
ok ("\x{0300}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # Mn
ok ("\x{0488}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # Me
ok ("\x{1100}" =~ /\p{PerlIO::via::EscStatus::IsDouble}/); # W
ok ("\x{FF10}" =~ /\p{PerlIO::via::EscStatus::IsDouble}/); # F
ok ("\x{FEFF}" !~ /\p{PerlIO::via::EscStatus::IsDouble}/); # BOM
#------------------------------------------------------------------------------
# IsOther
t/EscStatus.t view on Meta::CPAN
ok ($_9F_str !~ /\p{PerlIO::via::EscStatus::IsOther}/);
ok ("\x{0300}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # Mn
ok ("\x{0488}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # Me
ok ("\x{1100}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # W
ok ("\x{FF10}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # F
ok ("\x{FEFF}" !~ /\p{PerlIO::via::EscStatus::IsOther}/); # BOM
#------------------------------------------------------------------------------
# _truncate
PerlIO-via-Pipe
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//;
}
PerlIO-via-ToFirePHP
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//;
}
PerlIO-win32console
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
Perlito5
view release on metacpan or search on metacpan
lib/Perlito5X/unicore/UnicodeData.txt view on Meta::CPAN
1F49E;REVOLVING HEARTS;So;0;ON;;;;;N;;;;;
1F49F;HEART DECORATION;So;0;ON;;;;;N;;;;;
1F4A0;DIAMOND SHAPE WITH A DOT INSIDE;So;0;ON;;;;;N;;;;;
1F4A1;ELECTRIC LIGHT BULB;So;0;ON;;;;;N;;;;;
1F4A2;ANGER SYMBOL;So;0;ON;;;;;N;;;;;
1F4A3;BOMB;So;0;ON;;;;;N;;;;;
1F4A4;SLEEPING SYMBOL;So;0;ON;;;;;N;;;;;
1F4A5;COLLISION SYMBOL;So;0;ON;;;;;N;;;;;
1F4A6;SPLASHING SWEAT SYMBOL;So;0;ON;;;;;N;;;;;
1F4A7;DROPLET;So;0;ON;;;;;N;;;;;
1F4A8;DASH SYMBOL;So;0;ON;;;;;N;;;;;
Permute-Named
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//;
}
PickLE
view release on metacpan or search on metacpan
lib/App/pickle/OptArgs.pm view on Meta::CPAN
subcmd 'App::pickle::import' => (
comment => 'Converts another file into a PickLE pick list',
optargs => sub {
arg 'type' => (
comment => 'File type. Supported formats: eagle (Eagle BOM CSV)',
isa => 'Str',
required => 1,
);
arg 'file' => (
Pinto
view release on metacpan or search on metacpan
$fatpacked{"CPAN/Meta/Validator.pm"} = <<'CPAN_META_VALIDATOR';
use 5.006;use strict;use warnings;package CPAN::Meta::Validator;our$VERSION='2.132510';my%known_specs=('1.4'=>'http://module-build.sourceforge.net/META-spec-v1.4.html','1.3'=>'http://module-build.sourceforge.net/META-spec-v1.3.html','1.2'=>'http://...
CPAN_META_VALIDATOR
$fatpacked{"CPAN/Meta/YAML.pm"} = <<'CPAN_META_YAML';
package CPAN::Meta::YAML;{$CPAN::Meta::YAML::VERSION='0.008'}use strict;sub HAVE_UTF8 () {$] >= 5.007003}BEGIN {if (HAVE_UTF8){eval "require utf8;";die "Failed to load UTF-8 support" if $@}require 5.004;require Exporter;require Carp;@CPAN::Meta::YA...
# Scalar::Util failed to load or too old
sub refaddr {
my $pkg = ref($_[0]) or return undef;
if ( !! UNIVERSAL::can($_[0], 'can') ) {
bless $_[0], 'Scalar::Util::Fake';
Plack-App-MCCS
view release on metacpan or search on metacpan
local/lib/perl5/Config/INI/Reader.pm view on Meta::CPAN
my $self = ref $invocant ? $invocant : $invocant->new;
# parse the file
LINE: while (my $line = $handle->getline) {
if ($handle->input_line_number == 1 && $line =~ /\A\x{FEFF}/) {
Carp::confess("input handle appears to start with a BOM");
}
$self->preprocess_line(\$line);
next LINE if $self->can_ignore($line, $handle);
Plack-Debugger
view release on metacpan or search on metacpan
share/js/jquery.js view on Meta::CPAN
// Need init if jQuery is called (just allow error to be thrown if not included)
return new jQuery.fn.init( selector, context );
},
// Support: Android<4.1
// Make sure we trim BOM and NBSP
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// Matches dashed string for camelizing
rmsPrefix = /^-ms-/,
rdashAlpha = /-([\da-z])/gi,
Plack-Middleware-Acme-AAHTTPHeader
view release on metacpan or search on metacpan
requires 'Test::Pod';
requires 'Test::NoTabs';
requires 'Test::Perl::Metrics::Lite';
requires 'Test::Vars';
requires 'File::Find::Rule::ConflictMarker';
requires 'File::Find::Rule::BOM';
};
Plack-Middleware-RequestId
view release on metacpan or search on metacpan
requires 'Test::Pod';
requires 'Test::NoTabs';
requires 'Test::Perl::Metrics::Lite';
requires 'Test::Vars';
requires 'File::Find::Rule::ConflictMarker';
requires 'File::Find::Rule::BOM';
};
( run in 1.547 second using v1.01-cache-2.11-cpan-39bf76dae61 )