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 release on metacpan or search on metacpan
lib/Carrot/Diversity/Include_Block.pm view on Meta::CPAN
BEGIN {
require('Carrot/Diversity/Include_Block./manual_modularity.pl');
} #BEGIN
Carrot::Meta::Greenhouse::Package_Loader::provide(
my $file_name_class = '::Personality::Valued::File::Name::Type::Regular::Content::UTF8_wBOM');
my $expressiveness = Carrot::individuality;
$expressiveness->declare_provider;
# =--------------------------------------------------------------------------= #
view release on metacpan or search on metacpan
(index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()),
} )
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
BOM_UTF8|||
BhkDISABLE||5.024000|
BhkENABLE||5.024000|
BhkENTRY_set||5.024000|
BhkENTRY|||
BhkFLAGS|||
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 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 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 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 release on metacpan or search on metacpan
lib/Catalyst/Plugin/I18N/Manual.pod view on Meta::CPAN
- Catalyst >= 5.33
- Catalyst::Plugin::I18N >= 0.04
- Catalyst::Plugin::Unicode >= 0.2
- Catlayst::View::TT && Template-Toolkit >= 2.14
- GNU gettext utilities
- An editor that understands UTF-8 and Byte Order Mark (BOM)
$ catalyst.pl MyApp
created "MyApp"
created "MyApp/script"
created "MyApp/lib"
lib/Catalyst/Plugin/I18N/Manual.pod view on Meta::CPAN
);
$c->forward('MyApp::View::TT');
}
$ vim root/test.tt # Save file in UTF-8 with BOM
[% c.loc( 'Welcome to my place [_1]!', c.stash.name ) %]
$ xgettext.pl --output=lib/MyApp/I18N/messages.pot --directory=lib/ --directory=root/
$ msgmerge --update lib/MyApp/I18N/sv.po lib/MyApp/I18N/messages.pot
lib/Catalyst/Plugin/I18N/Manual.pod view on Meta::CPAN
=item Locale
L<http://en.wikipedia.org/wiki/Locale>
=item Byte Order Mark (BOM)
L<http://en.wikipedia.org/wiki/Byte_Order_Mark>
=item Character encoding
view release on metacpan or search on metacpan
lib/Catalyst/View/JSON.pm view on Meta::CPAN
}
my $json = $self->render($c, $data);
my $output;
## add UTF-8 BOM if the client meets a test and the application wants it.
if ($self->use_force_bom && $encoding eq 'utf-8') {
my $user_agent = $c->req->user_agent || '';
if ($self->user_agent_bom_test($user_agent)) {
$output = "\xEF\xBB\xBF";
}
lib/Catalyst/View/JSON.pm view on Meta::CPAN
An optional hashref that supplies arguments to L<JSON::MaybeXS> used when creating
a new object.
=item use_force_bom
If versions of this view older than 0.36, there was some code that added a UTF-8 BOM
marker to the end of the JSON string when the user agent was Safari. After looking
at a lot of existing code I don't think this is needed anymore so we removed it by
default. However if this turns out to be a problem you can re enable it by setting
this attribute to true. Possible a breaking change so we offer this workaround.
view release on metacpan or search on metacpan
lib/Catalyst/View/TT.pm view on Meta::CPAN
is for older versions of L<Catalyst>.
Be sure to set C<< ENCODING => 'utf-8' >> and use
L<Catalyst::Plugin::Unicode::Encoding> if you want to use non-ascii
characters (encoded as utf-8) in your templates. This is only needed if
you actually have UTF8 literals in your templates and the BOM is not
properly set. Setting encoding here does not magically encode your
template output. If you are using this version of L<Catalyst> you need
to all the Unicode plugin, or upgrade (preferred)
=head2 Unicode (Catalyst v5.90080+)
This version of L<Catalyst> will automatically encode your body output
to UTF8. This means if your variables contain multibyte characters you don't
need top do anything else to get UTF8 output. B<However> if your templates
contain UTF8 literals (like, multibyte characters actually in the template
text), then you do need to either set the BOM mark on the template file or
instruct TT to decode the templates at load time via the ENCODING configuration
setting. Most of the time you can just do:
MyApp::View::HTML->config(
ENCODING => 'UTF-8');
view release on metacpan or search on metacpan
lib/CatalystX/Controller/ExtJS/Direct/API.pm view on Meta::CPAN
$c->req($c->request_class->new(%{$c->req}, %req));
eval {
$c->visit($route->build_url( $req->{data} ));
my $response = $c->res;
if ( $response->content_type eq 'application/json' ) {
(my $res_body = $response->body || '') =~ s/^\xEF\xBB\xBF//; # remove BOM
my $json = JSON::decode_json( $res_body );
$body = $json;
} else {
$body = $response->body;
}
view release on metacpan or search on metacpan
1.101670 2010-06-16
- Fixed content-type for Direct API
- Fixed prereq
1.101570 2010-06-06
- Fixed bogus bug where C::View::JSON prepends the BOM when agent = Safari
- Fixed meta to not include example/tutorial libs
- Fixed #57373 (Global configuration doesn't work as documented)
1.101560 2010-06-05
- Ext.Direct support
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
view release on metacpan or search on metacpan
lib/Catmandu/Importer/RIS.pm view on Meta::CPAN
my $previous_key= '';
while($line = <$fh>) {
chomp($line);
next if $line eq '';
# Remove BOM
$line =~ s/^\x{feff}//;
$line =~ s/^\s\s/$previous_key/;
my ($key,$val) = split($pattern,$line,2);
view release on metacpan or search on metacpan
t/SacramentocrimeJanuary2006.csv view on Meta::CPAN
cdatetime,address,district,beat,grid,crimedescr,ucr_ncic_code,latitude,longitude
1/1/06 0:00,3108 OCCIDENTAL DR,3,3C ,1115,10851(A)VC TAKE VEH W/O OWNER,2404,38.55042047,-121.3914158
1/1/06 0:00,2082 EXPEDITION WAY,5,5A ,1512,459 PC BU...
view release on metacpan or search on metacpan
Revision history for Catmandu
1.2025 2025-07-07 11:23:47 CEST
- #403: Add support for BOM in CSV header ()
- Update project info and contact details
1.2024 2025-01-16 16:23:49 CET
- #402: Fix cli with Getopt::Long::Descriptive >= 0.116
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 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 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 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 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 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 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 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 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 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//;
}