view release on metacpan or search on metacpan
t/test_parsing/i_number_too_big_pos_int.json
t/test_parsing/i_number_very_big_negative_int.json
t/test_parsing/i_object_key_lone_2nd_surrogate.json
t/test_parsing/i_string_1st_surrogate_but_2nd_missing.json
t/test_parsing/i_string_1st_valid_surrogate_2nd_invalid.json
t/test_parsing/i_string_UTF-16LE_with_BOM.json
t/test_parsing/i_string_UTF-8_invalid_sequence.json
t/test_parsing/i_string_UTF8_surrogate_U+D800.json
t/test_parsing/i_string_incomplete_surrogate_and_escape_valid.json
t/test_parsing/i_string_incomplete_surrogate_pair.json
t/test_parsing/i_string_incomplete_surrogates_escape_valid.json
t/test_parsing/i_string_not_in_unicode_range.json
t/test_parsing/i_string_overlong_sequence_2_bytes.json
t/test_parsing/i_string_overlong_sequence_6_bytes.json
t/test_parsing/i_string_overlong_sequence_6_bytes_null.json
t/test_parsing/i_string_truncated-utf-8.json
t/test_parsing/i_string_utf16BE_no_BOM.json
t/test_parsing/i_string_utf16LE_no_BOM.json
t/test_parsing/i_structure_500_nested_arrays.json
t/test_parsing/i_structure_UTF-8_BOM_empty_object.json
t/test_parsing/n_array_1_true_without_comma.json
t/test_parsing/n_array_a_invalid_utf8.json
t/test_parsing/n_array_colon_instead_of_comma.json
t/test_parsing/n_array_comma_after_close.json
t/test_parsing/n_array_comma_and_number.json
t/test_parsing/n_string_unescaped_tab.json
t/test_parsing/n_string_unicode_CapitalU.json
t/test_parsing/n_string_with_trailing_garbage.json
t/test_parsing/n_structure_100000_opening_arrays.json
t/test_parsing/n_structure_U+2060_word_joined.json
t/test_parsing/n_structure_UTF8_BOM_no_data.json
t/test_parsing/n_structure_angle_bracket_..json
t/test_parsing/n_structure_angle_bracket_null.json
t/test_parsing/n_structure_array_trailing_garbage.json
t/test_parsing/n_structure_array_with_extra_array_close.json
t/test_parsing/n_structure_array_with_unclosed_string.json
t/test_parsing/n_structure_capitalized_True.json
t/test_parsing/n_structure_close_unopened_array.json
t/test_parsing/n_structure_comma_instead_of_closing_brace.json
t/test_parsing/n_structure_double_array.json
t/test_parsing/n_structure_end_array.json
t/test_parsing/n_structure_incomplete_UTF8_BOM.json
t/test_parsing/n_structure_lone-invalid-utf-8.json
t/test_parsing/n_structure_lone-open-bracket.json
t/test_parsing/n_structure_no_data.json
t/test_parsing/n_structure_null-byte-outside-string.json
t/test_parsing/n_structure_number_with_trailing_garbage.json
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MarpaX/ESLIF/BNF.pod view on Meta::CPAN
The C<symbol-action> adverb is how a match within a sub-grammar is transfered.
The C<default-encoding> adverb gives default encoding when the recognizer runs in character mode and the end-user gave no encoding.
The C<fallback-encoding> adverb gives fallback encoding when the recognizer runs in character mode and the end-user gave no encoding nor C<default-encoding>. Then MarpaX::ESLIF will try to I<guess> the encoding, and if this fail, will fallback to thi...
The C<discard-is-fallback> adverb indicates ESLIF that C<:discard> should not be tried whenever scan/resume is entered. The default is the safe implementation, i.e. it is always tried, and no grammar terminal will match if C<:discard> matches an equa...
=item Meta actions
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MarpaX/Languages/ECMAScript/AST/Grammar/CharacterClasses.pm view on Meta::CPAN
our $VERSION = '0.020'; # VERSION
our @EXPORT_OK = qw/
BOM
BS
CR
FF
Isb
IsBackslash
IsBOM
IsCaret
IsCR
IsDecimalDigit
IsDollar
IsDot
lib/MarpaX/Languages/ECMAScript/AST/Grammar/CharacterClasses.pm view on Meta::CPAN
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsTAB
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsVT
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsFF
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsSP
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsNBSP
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsBOM
+MarpaX::Languages::ECMAScript::AST::Grammar::CharacterClasses::IsUSP
END
}
lib/MarpaX/Languages/ECMAScript/AST/Grammar/CharacterClasses.pm view on Meta::CPAN
@{TAB()},
@{VT()},
@{FF()},
@{SP()},
@{NBSP()},
@{BOM()},
@{USP()},
];
}
lib/MarpaX/Languages/ECMAScript/AST/Grammar/CharacterClasses.pm view on Meta::CPAN
200D
END
}
sub IsBOM { return <<END;
FEFF
END
}
sub BOM { return [ "\N{U+FEFF}" ] }
sub BS { return [ "\N{U+0008}" ] }
lib/MarpaX/Languages/ECMAScript/AST/Grammar/CharacterClasses.pm view on Meta::CPAN
=head2 IsZWNJ()
=head2 sub IsZWJ()
=head2 IsBOM()
=head2 BOM()
Return an array reference of characters composing BOM
=head2 BS()
Return an array reference of characters composing BS
view all matches for this distribution
view release on metacpan or search on metacpan
"Carp" : "0",
"Data::Dumper" : "0",
"Data::Scan" : "0",
"Data::Scan::Role::Consumer" : "0",
"Encode" : "0",
"File::BOM" : "0",
"File::Basename" : "0",
"File::ShareDir" : "0",
"File::Spec::Functions" : "0",
"Getopt::Long" : "0",
"IO::String" : "0",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MarpaX/Languages/PowerBuilder/base.pm view on Meta::CPAN
package MarpaX::Languages::PowerBuilder::base;
use strict;
use warnings;
use File::BOM qw(open_bom);
use Encode qw(decode);
use File::Basename qw(dirname basename);
use Marpa::R2;
use Data::Dumper;
our $AUTO_DECODE = 1; #used to auto decode input passed to the parse method
sub slurp{
my $input = shift;
local $/;
open my $IN, '<:via(File::BOM)', $input;
my $data = <$IN>;
close $IN;
$data;
}
lib/MarpaX/Languages/PowerBuilder/base.pm view on Meta::CPAN
die "forget to call new() ?" unless ref($self) && $self->can('grammar');
my $input = shift;
my $opts = shift;
#3 ways to pass inputs: glob, file-name, full-string
if(ref $input eq 'GLOB'){
$input = File::BOM::decode_from_bom( do{ local $/=undef; <$input> } );
}
elsif($input!~/\n/ && -f $input){
$input = slurp $input;
}
view all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Math/Business/BlackScholes/Binaries/Greeks/Math.pm view on Meta::CPAN
our $VERSION = '0.06'; ## VERSION
=head1 NAME
BOM::Utility::Math::Routines
=head1 DESCRIPTION
Misc math routines.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Math/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/Math/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
view all matches for this distribution
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
view all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||cViu
#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
view all matches for this distribution
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//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
metabolomics-references/PhytoHUB__v1_4.tsv view on Meta::CPAN
"PHUB000337" "Piceatannol (cis-)" 1 0 244.0735588660 "C14H12O4" "[H]\\C(=C(/[H])C1=CC(O)=CC(O)=C1)C1=CC=C(O)C(O)=C1" "CDRPUGZCRXZLFL-UPHRSURJSA-N"
"PHUB000338" "Viniferin (cis-Epsilon-)" 1 0 454.1416384280 "C28H22O6" "OC1=CC=C(\\C=C/C2=C3[C@H]([C@@H](OC3=CC(O)=C2)C2=CC=C(O)C=C2)C2=CC(O)=CC(O)=C2)C=C1" "FQWLMRXWKZGLFI-HQAJZZHBSA-N"
"PHUB000339" "Resveratrol 4'-glucoside" 1 0 390.1314676680 "C20H22O8" "OC[C@H]1O[C@@H](OC2=CC=C(\\C=C\\C3=CC(O)=CC(O)=C3)C=C2)C(O)[C@@H](O)C1O" "RUOKEYJFAJITAG-QBPIKYQOSA-N"
"PHUB000340" "Viniferin-alpha" 1 0 678.1889825460 "C42H30O9" "[H][C@]12[C@@H](OC3=C1C(=CC(O)=C3)[C@]1([H])[C@H](OC3=C1C(=CC(O)=C3)[C@@]1([H])[C@@H](OC3=C1C2=CC(O)=C3)C1=CC=C(O)C=C1)C1=CC=C(O)C=C1)C1=CC=C(O)C=C1" "KUTVNHOAKHJJFL-YVHWEYFBNA-N"
"PHUB000341" "Parthenocissin A" 1 0 454.1416384280 "C28H22O6" "OC1=CC=C(\\C=C2\\[C@H]([C@@H](C3=C2C=C(O)C=C3O)C2=CC=C(O)C=C2)C2=CC(O)=CC(O)=C2)C=C1" "BIQMSWPBPAKGSE-RVMRZQENSA-N"
"PHUB000342" "Miyabenol C" 1 0 680.2046326100 "C42H32O9" "OC1=CC=C(\\C=C\\C2=C3[C@@H]([C@H](OC3=CC(O)=C2)C2=CC=C(O)C=C2)C2=C3C(C(OC3=CC(O)=C2)C2=CC=C(O)C=C2)C2=CC(O)=CC(O)=C2)C=C1" "RKFYYCKIHVEWHX-ZSIDMBOMSA-N"
"PHUB000343" "Antheraxanthin" 1 0 584.4229456630 "C40H56O3" "C\\C(\\C=C\\C=C(/C)\\C=C\\C1=C(C)C[C@@H](O)CC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/[C@@]12O[C@]1(C)C[C@@H](O)CC2(C)C" "OFNSUWBAQRCHAV-YROYAVGENA-N"
"PHUB000344" "Astaxanthin" 1 0 596.3865601540 "C40H52O4" "C\\C(\\C=C\\C=C(/C)\\C=C\\C1=C(C)C(=O)[C@@H](O)CC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C1=C(C)C(=O)[C@@H](O)CC1(C)C" "MQZIGYBFDRPAKN-IDLFNPRFNA-N"
"PHUB000345" "Canthaxanthin" 1 0 564.3967309140 "C40H52O2" "C\\C(\\C=C\\C=C(/C)\\C=C\\C1=C(C)C(=O)CCC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C1=C(C)C(=O)CCC1(C)C" "FDSDTBUPSURDBL-DKLMTRRASA-N"
"PHUB000346" "Capsanthin" 1 0 584.4229456630 "C40H56O3" "C\\C(\\C=C\\C=C(/C)\\C=C\\C(=O)[C@]1(C)C[C@@H](O)CC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C1=C(C)C[C@@H](O)CC1(C)C" "VYIRVAXUEZSDNC-FCAIEIKONA-N"
"PHUB000347" "Capsorubin" 1 0 600.4178602830 "C40H56O4" "C\\C(\\C=C\\C=C(/C)\\C=C\\C(=O)[C@]1(C)C[C@@H](O)CC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C(=O)[C@]1(C)C[C@@H](O)CC1(C)C" "GVOIABOMXKDDGU-YUURSNASSA-N"
"PHUB000348" "Carotene 5,6-epoxide (beta-)" 1 0 552.4331164230 "C40H56O" "C\\C(\\C=C\\C=C(/C)\\C=C\\C1=C(C)CCCC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C12OC1(C)CCCC2(C)C" "RVCRIPILOFSMFG-WWSVUWEKNA-N"
"PHUB000349" "Carotene-alpha" 1 0 536.4382017920 "C40H56" "C/C(=C\\C=C\\C=C(/C)\\C=C\\C=C(/C)\\C=C\\C1=C(C)CCCC1(C)C)/C=C/C=C(\\C)/C=C/[C@H]1C(C)=CCCC1(C)C" "ANVAOWXLWRTKGA-BYORDMDQNA-N"
"PHUB000350" "Carotene-beta" 1 0 536.4382018030 "C40H56" "C\\C(\\C=C\\C=C(/C)\\C=C\\C1=C(C)CCCC1(C)C)=C/C=C/C=C(\\C)/C=C/C=C(\\C)/C=C/C1=C(C)CCCC1(C)C" "OENHQHLEOONYIE-JLTXGRSLSA-N"
"PHUB000351" "Carotene-gamma" 1 0 536.4382018030 "C40H56" "CC(C)=CCC\\C(C)=C\\C=C\\C(\\C)=C\\C=C\\C(\\C)=C\\C=C\\C=C(/C)\\C=C\\C=C(/C)\\C=C\\C1=C(C)CCCC1(C)C" "HRQKOYFGHJYEFS-BXOLYSJBSA-N"
"PHUB000352" "Carotene-zeta" 1 0 540.4695019320 "C40H60" "[H]\\C(CC\\C(C)=C(/[H])\\C(\\[H])=C(/[H])\\C(\\C)=C(/[H])\\C(\\[H])=C(/[H])\\C(\\[H])=C(/C)\\C(\\[H])=C(/[H])\\C(\\[H])=C(/C)CC\\C([H])=C(/C)CCC=C(C)C)=C(\\C)CCC=C(C)C" "BIWLELKAFXRPDE-WTXAYMO...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Miril/Publisher.pm view on Meta::CPAN
);
}
#my $post_fh = IO::File->new($filename, "<") or die $!;
#while (<$post_fh>)
#{
# warn "BOM before write!" if /\x{FEFF}/;
#}
}
1;
view all matches for this distribution
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//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/CoreList/List/5.pod view on Meta::CPAN
=item * L<Module::Loaded> (undef)
=item * L<Module::Metadata> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF16BE> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF16LE> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF8> (undef)
=item * L<Module::Pluggable> (undef)
=item * L<Module::Pluggable::Object> (undef)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/CoreList.pm view on Meta::CPAN
'Locale::Maketext::Simple'=> '0.21_01',
'Memoize' => '1.03_01',
'Module::CoreList' => '5.20170114_22',
'Module::CoreList::TieHashDelta'=> '5.20170114_22',
'Module::CoreList::Utils'=> '5.20170114_22',
'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
'Module::Metadata::corpus::BOMTest::UTF8'=> '1',
'Net::Cmd' => '3.05_01',
'Net::Config' => '3.05_01',
'Net::Domain' => '3.05_01',
'Net::FTP' => '3.05_01',
'Net::FTP::A' => '3.05_01',
lib/Module/CoreList.pm view on Meta::CPAN
'Math::BigInt::Trace' => '0.42_01',
'Memoize' => '1.03_01',
'Module::CoreList' => '5.20170114_24',
'Module::CoreList::TieHashDelta'=> '5.20170114_24',
'Module::CoreList::Utils'=> '5.20170114_24',
'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
'Module::Metadata::corpus::BOMTest::UTF8'=> '1',
'Net::Cmd' => '3.08_01',
'Net::Config' => '3.08_01',
'Net::Domain' => '3.08_01',
'Net::FTP' => '3.08_01',
'Net::FTP::A' => '3.08_01',
view all matches for this distribution
view release on metacpan or search on metacpan
Fixed RT#38302: Fixed META.yml generation (thanks very much to cpanservice for the help).
=item 0.10, 2010-02-26
Fixed RT#55010: Removed Unicode BOM from Find.pm.
=item 0.11, 2012-05-22
Fixed RT#74251: defined(@array) is deprecated under Perl 5.15.7.
Thanks to Roman F, who contributed the implementation.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/Generic/File.pm view on Meta::CPAN
}
}
if( !CORE::length( $buffer ) )
{
return( $self->error( "This file ${file} is an empty CSV file with a BOM nonetheless." ) );
}
if( defined( $enc ) )
{
$enc = '' if( $enc eq 'utf-ebcdic' );
lib/Module/Generic/File.pm view on Meta::CPAN
if( CORE::length( $enc // '' ) )
{
# Mark the file handle with the right perl IO layer.
$io->binmode( ":encoding($enc)" );
}
# Default to $opts->{encoding} if it was provided, and we have no encoding found from the BOM.
elsif( CORE::length( $opts->{binmode} // '' ) )
{
$io->binmode( ":encoding($opts->{binmode})" );
}
lib/Module/Generic/File.pm view on Meta::CPAN
# Make sure error_diag() is called in scalar context.
return( $self->error( "Unable to parse CSV header line in file ${file}: ", scalar( $csv->error_diag ) ) );
}
}
# If we detected the BOM, we will have an $opened (i,e, $io) value set.
if( !$opened )
{
$io = $self->open( '<', $opts ) || return( $self->pass_error );
}
elsif( !$self->can_read )
lib/Module/Generic/File.pm view on Meta::CPAN
}
}
return(1);
};
# If we have a initial first raw from our detect BOM operation earlier, then we use that line of data now.
$process->( $first_row ) if( $first_row );
# Read each line of CSV data until the end.
my $row;
# while( my $row = $csv->getline( $io ) )
lib/Module/Generic/File.pm view on Meta::CPAN
=item * C<detect_bom>
Optional. Defaults to true.
If set to a true value, this will check the CSV file for a C<BOM> (Byte-order mark), remove it by seeking past it, and use it to determine the necessary underlying encoding of the file to read the rest of the data. The encoding is then applied to the...
Using the C<BOM> detection, it recognises C<bocu-1>, C<gb-18030>, C<utf-ebcdic>, C<utf-1>, C<utf-8>, C<utf-16be>, C<utf-16le>, C<utf-32be>, C<utf-32le>, C<scsu>
=item * C<expects>
Optional. Determines the expected return format.
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution
view release on metacpan or search on metacpan
corpus/BOMTest/UTF8.pm view on Meta::CPAN
package Heart;
our $VERSION = 1;
package BOMTest::UTF8;
our $VERSION = 3;
package CÅur;
view all matches for this distribution
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//;
}
view all matches for this distribution
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//;
}
view all matches for this distribution