view release on metacpan or search on metacpan
include/boost/callable_traits/add_member_const.hpp view on Meta::CPAN
*/
template<typename T>
using add_member_const_t = //see below
//<-
#ifdef BOOST_CLBL_TRTS_DISABLE_ABOMINABLE_FUNCTIONS
detail::sfinae_try<
typename detail::traits<T>::add_member_const,
detail::fail_when_same<typename detail::traits<T>::add_member_const,
include/boost/callable_traits/add_member_const.hpp view on Meta::CPAN
detail::try_but_fail_if_invalid<
typename detail::traits<T>::add_member_const,
member_qualifiers_are_illegal_for_this_type>;
#endif // #ifdef BOOST_CLBL_TRTS_DISABLE_ABOMINABLE_FUNCTIONS
namespace detail {
template<typename T, typename = std::false_type>
struct add_member_const_impl {};
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/Alvis/Document/Encoding.pm view on Meta::CPAN
my ($ERR_OK,
$ERR_ILLEGAL_CODE,
$ERR_DOC,
$ERR_DOC_TYPE,
$ERR_DOC_SUB_TYPE,
$ERR_BOM,
$ERR_FIRST_CHARS,
$ERR_META,
$ERR_XML,
$ERR_GUESS,
$ERR_WRONG_GUESS,
lib/Alvis/Document/Encoding.pm view on Meta::CPAN
my %ErrMsgs=($ERR_OK=>"",
$ERR_ILLEGAL_CODE=>"Illegal UTF-8 code.",
$ERR_DOC=>"No document text.",
$ERR_DOC_TYPE=>"No document type.",
$ERR_DOC_SUB_TYPE=>"No document subtype.",
$ERR_BOM=>"Byte order mark recognition failed miserably.",
$ERR_FIRST_CHARS=>"Guessing from the first characters " .
"failed miserably.",
$ERR_META=>"Guessing from the meta information " .
"failed miserably.",
$ERR_XML=>"Guessing from XML format failed miserably.",
lib/Alvis/Document/Encoding.pm view on Meta::CPAN
{
@guesses=HTML::Encoding::encoding_from_byte_order_mark($text,xhtml=>0);
};
if ($@)
{
$self->_set_err_state($ERR_BOM,"$@");
}
if (scalar(@guesses))
{
return @guesses;
}
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
factpacks/airport.fact view on Meta::CPAN
Airport BOB => The code for the airport in: Bora Bora <French Society islands> (Pacific)
Airport BOD => The code for the airport in: Bordeaux <France>
Airport BOG => The code for the airport in: Bogota <Colombia>
Airport BOI => The code for the airport in: Boise, ID <USA>
Airport BOJ => The code for the airport in: Burgas <Romania>
Airport BOM => The code for the airport in: Bombay <India>
Airport BON => The code for the airport in: Bonaire <West Indian =>les>
Airport BOO => The code for the airport in: Bodo <Norway>
Airport BOS => The code for the airport in: Boston, MA <USA>
Airport BOY => The code for the airport in: Bobo/Dioulasso <Burkina Faso>
Airport BPN => The code for the airport in: Balikpapan <Indonesia>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
"bootstrap/css/bootstrap-reboot.css" => "/*!\n * Bootstrap Reboot v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/...
"bootstrap/css/bootstrap-reboot.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-reboot.scss\",\"bootstrap-reboot.css\",\"../../scss/_reboot.scss\",\"../../scss/_variables.scss\",\"../../scss/vendor/_rfs.scss\",\"../../scss/mixins/_h...
"bootstrap/css/bootstrap-reboot.min.css" => "/*!\n * Bootstrap Reboot v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/b...
"bootstrap/css/bootstrap-reboot.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-reboot.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap-reboot.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap-reboot.css\",\"../../scss/mi...
"bootstrap/css/bootstrap.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE...
"bootstrap/css/bootstrap.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"bootstrap.css\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"../../scss/_variables.scss\",\"../../scss/vendor/_rfs.scss\",\"../../scss/mixi...
"bootstrap/css/bootstrap.min.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LIC...
"bootstrap/css/bootstrap.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap.css\",\"../../scss/mixi...
"bootstrap/dropdown.js" => "/*!\n * Bootstrap dropdown.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/dropdown.js.map" => "{\"version\":3,\"file\":\"dropdown.js\",\"sources\":[\"../src/dropdown.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): dropdown...
"bootstrap/index.js" => "/**\n * --------------------------------------------------------------------------\n * Bootstrap (v4.4.0): index.js\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)\n * ------------------------...
"bootstrap/index.js.map" => "{\"version\":3,\"sources\":[\"../src/index.js\"],\"names\":[\"\$\",\"TypeError\",\"version\",\"fn\",\"jquery\",\"split\",\"minMajor\",\"ltMajor\",\"minMinor\",\"minPatch\",\"maxMajor\",\"Error\"],\"mappings\":\"AAaA;;;;...
"bootstrap/js/bootstrap.bundle.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boo...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
1106,
"MINYAK ATSIRI BAWANG BOMBAY (ONION ESSENTIAL OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
1994,
"EKSTRAK BAWANG BOMBAY (ONION EXTRACT)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
1106,
"MINYAK ATSIRI BAWANG BOMBAY (ONION ESSENTIAL OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
"NO",
"YES",
],
[
1994,
"EKSTRAK BAWANG BOMBAY (ONION EXTRACT)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"NO",
"YES",
],
[
1106,
"MINYAK ATSIRI BAWANG BOMBAY (ONION ESSENTIAL OIL)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"NO",
"YES",
],
[
1994,
"EKSTRAK BAWANG BOMBAY (ONION EXTRACT)",
"Bahan Baku",
"NO",
"NO",
"NO",
"YES",
view all matches for this distribution
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.283
PPI::Structure::When 1.283
PPI::Token 1.283
PPI::Token::ArrayIndex 1.283
PPI::Token::Attribute 1.283
PPI::Token::BOM 1.283
PPI::Token::Cast 1.283
PPI::Token::Comment 1.283
PPI::Token::DashedWord 1.283
PPI::Token::Data 1.283
PPI::Token::End 1.283
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CPAN/SBOM.pm view on Meta::CPAN
package App::CPAN::SBOM;
use 5.010001;
use strict;
use warnings;
use utf8;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
use MetaCPAN::Client;
use MIME::Base64;
use Pod::Usage qw(pod2usage);
use URI::PackageURL;
use SBOM::CycloneDX::Component;
use SBOM::CycloneDX::ExternalReference;
use SBOM::CycloneDX::Hash;
use SBOM::CycloneDX::License;
use SBOM::CycloneDX::Metadata;
use SBOM::CycloneDX::OrganizationalContact;
use SBOM::CycloneDX::Util qw(cpan_meta_to_spdx_license cyclonedx_tool cyclonedx_component);
use SBOM::CycloneDX::Vulnerability::Affect;
use SBOM::CycloneDX::Vulnerability::Rating;
use SBOM::CycloneDX::Vulnerability::Source;
use SBOM::CycloneDX::Vulnerability;
use SBOM::CycloneDX;
our $VERSION = '1.03';
sub DEBUG { $ENV{SBOM_DEBUG} || 0 }
sub cli_error {
my ($error, $code) = @_;
$error =~ s/ at .* line \d+.*//;
say STDERR "ERROR: $error";
lib/App/CPAN/SBOM.pm view on Meta::CPAN
if (defined $options{v}) {
return show_version();
}
if ($options{'list-spdx-licenses'}) {
say $_ for (sort @{SBOM::CycloneDX::Enum->SPDX_LICENSES});
return 0;
}
unless ($options{distribution} || $options{'project-meta'} || $options{'project-directory'}) {
pod2usage(-exitstatus => 0, -verbose => 0);
lib/App/CPAN/SBOM.pm view on Meta::CPAN
$options{maxdepth} //= 1;
$options{validate} //= 1;
if (defined $options{debug}) {
$ENV{SBOM_DEBUG} = 1;
}
my $bom = SBOM::CycloneDX->new;
if (defined $options{distribution}) {
my ($distribution, $version) = split '@', $options{distribution};
lib/App/CPAN/SBOM.pm view on Meta::CPAN
$bom->metadata->tools->push(cyclonedx_tool());
my $output_file = $options{output} // 'bom.json';
say STDERR "Save SBOM to $output_file";
open my $fh, '>', $output_file or Carp::croak "Failed to open file: $!";
say $fh $bom->to_string;
close $fh;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
say <<"VERSION";
$progname version $VERSION
Copyright 2025, Giuseppe Di Terlizzi <gdt\@cpan.org>
This program is part of the "App-CPAN-SBOM" distribution and is free software;
you can redistribute it and/or modify it under the same terms as Perl itself.
Complete documentation for $progname can be found using 'man $progname'
or on the internet at <https://metacpan.org/dist/App-CPAN-SBOM>.
VERSION
return 0;
}
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my $bom = $params{bom};
my $options = $params{options} || {};
my @META_FILES = (qw[META.json META.yml MYMETA.json MYMETA.yml]);
say STDERR 'Generate SBOM';
my $project_type = $options->{'project-type'} || 'library';
my $project_directory = File::Spec->rel2abs($options->{'project-directory'});
my $project_meta = $options->{'project-meta'} || $options->{'meta'};
my $project_name = $options->{'project-name'} || basename($project_directory);
lib/App/CPAN/SBOM.pm view on Meta::CPAN
$project_name = $meta->name;
$project_version = $meta->version;
@authors = make_authors([$meta->author]);
@external_references = make_external_references($meta->{resources});
@licenses = (SBOM::CycloneDX::License->new(id => cpan_meta_to_spdx_license($meta->license)));
# Detect distribution author dependencies
# TODO get the author-defined dependency version
my $prereqs = $meta->effective_prereqs;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
}
}
if ($project_license) {
@licenses = (SBOM::CycloneDX::License->new(id => $project_license));
}
if (@{$project_author}) {
@authors = make_authors($project_author);
}
my $bom_ref = "$project_name\@$project_version";
$bom_ref =~ s/\s+/-/g;
# Build root BOM component
my $root_component = SBOM::CycloneDX::Component->new(
type => $project_type,
name => $project_name,
version => $project_version,
bom_ref => $bom_ref,
licenses => \@licenses,
lib/App/CPAN/SBOM.pm view on Meta::CPAN
if ($project_description) {
$root_component->description($project_description);
}
# Add root BOM component in metadata
$bom->metadata->component($root_component);
# Find dependencies from "cpanfile.snapshot" or "cpanfile"
if (my @audit_deps = $audit_discover->discover($project_directory)) {
@dependencies = @audit_deps;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my $distribution = $params{distribution};
my $version = $params{version};
my $bom = $params{bom};
my $options = $params{options} || {};
say STDERR "Generate SBOM for $distribution\@$version";
my $mcpan = MetaCPAN::Client->new;
my $release_data = $mcpan->release({all => [{distribution => $distribution}, {version => $version}]});
my $dist_data = $release_data->next;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my @external_references = make_external_references($dist_data->metadata->{resources});
my $license = join ' AND ', @{$metadata->{license}};
my $spdx_license = cpan_meta_to_spdx_license($license);
my $bom_license = SBOM::CycloneDX::License->new(($spdx_license) ? {id => $spdx_license} : {name => $license});
my $root_component = SBOM::CycloneDX::Component->new(
type => 'library',
name => $dist_data->name,
version => $dist_data->version,
licenses => [$bom_license],
authors => \@authors,
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my @external_references = ();
if (defined $resources->{repository} && $resources->{repository}->{url}) {
my $external_reference
= SBOM::CycloneDX::ExternalReference->new(type => 'vcs', url => $resources->{repository}->{url});
push @external_references, $external_reference;
}
if (defined $resources->{bugtracker} && $resources->{bugtracker}->{web}) {
my $external_reference
= SBOM::CycloneDX::ExternalReference->new(type => 'issue-tracker', url => $resources->{bugtracker}->{web});
push @external_references, $external_reference;
}
return @external_references;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my @authors = ();
foreach my $metadata_author (@{$metadata_authors}) {
if ($metadata_author =~ /(.*) <(.*)>/) {
my ($name, $email) = $metadata_author =~ /(.*) <(.*)>/;
push @authors, SBOM::CycloneDX::OrganizationalContact->new(name => $name, email => _clean_email($email));
}
elsif ($metadata_author =~ /(.*), (.*)/) {
my ($name, $email) = $metadata_author =~ /(.*), (.*)/;
push @authors, SBOM::CycloneDX::OrganizationalContact->new(name => $name, email => _clean_email($email));
}
else {
push @authors, SBOM::CycloneDX::OrganizationalContact->new(name => $metadata_author);
}
}
return @authors;
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my @authors = make_authors($metadata->{author});
my $license = join ' AND ', @{$dist_data->metadata->{license}};
my $spdx_license = cpan_meta_to_spdx_license($license);
my $bom_license = SBOM::CycloneDX::License->new(($spdx_license) ? {id => $spdx_license} : {name => $license});
my $purl = URI::PackageURL->new(type => 'cpan', namespace => $author, name => $distribution, version => $version);
my @ext_refs = make_external_references($dist_data->metadata->{resources});
my $hashes = SBOM::CycloneDX::List->new;
if (my $checksum = $dist_data->checksum_sha256) {
$hashes->add(SBOM::CycloneDX::Hash->new(alg => 'sha-256', content => $checksum));
}
if (my $checksum = $dist_data->checksum_md5) {
$hashes->add(SBOM::CycloneDX::Hash->new(alg => 'md5', content => $checksum));
}
my $component = SBOM::CycloneDX::Component->new(
type => 'library',
name => $distribution,
version => $version,
licenses => [$bom_license],
authors => \@authors,
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my $cpansa = $advisory->{id};
my @references = @{$advisory->{references}};
foreach my $cve (@cves) {
my $vulnerability = SBOM::CycloneDX::Vulnerability->new(
id => $cve,
description => $description,
source => SBOM::CycloneDX::Vulnerability::Source->new(
name => 'NVD',
url => "https://nvd.nist.gov/vuln/detail/$cve"
),
affects => [SBOM::CycloneDX::Vulnerability::Affect->new(ref => $bom_ref)],
ratings => [SBOM::CycloneDX::Vulnerability::Rating->new(severity => $severity)]
);
$bom->vulnerabilities->add($vulnerability);
}
}
lib/App/CPAN/SBOM.pm view on Meta::CPAN
my $ua = HTTP::Tiny->new(
verify_SSL => $verify_ssl,
default_headers => {'Content-Type' => 'application/json', 'X-Api-Key' => $options->{'api-key'}}
);
say STDERR "Upload BOM in OSWASP Dependency Track ($server_url)";
my $response = $ua->put($server_url, {content => encode_json($bom_payload)});
DEBUG and say STDERR "-- Response <-- " . Dumper($response);
unless ($response->{success}) {
return cli_error(sprintf(
'Failed to upload BOM file to OWASP Dependency Track: (%s) %s - %s',
$response->{status}, $response->{reason}, $response->{content}
));
}
}
lib/App/CPAN/SBOM.pm view on Meta::CPAN
=encoding utf-8
=head1 NAME
App::CPAN::SBOM - CPAN SBOM (Software Bill of Materials) generator
=head1 SYNOPSIS
use App::CPAN::SBOM qw(run);
run(\@ARGV);
=head1 DESCRIPTION
L<App::CPAN::SBOM> is a "Command Line Interface" helper module for C<cpan-sbom(1)> command.
=head2 METHODS
=over
=item App::CPAN::SBOM->run(@args)
=back
Execute the command
=head1 SUPPORT
=head2 Bugs / Feature Requests
Please report any bugs or feature requests through the issue tracker
at L<https://github.com/giterlizzi/perl-App-CPAN-SBOM/issues>.
You will be notified automatically of any progress on your issue.
=head2 Source Code
This is open source software. The code repository is available for
public review and contribution under the terms of the license.
L<https://github.com/giterlizzi/perl-App-CPAN-SBOM>
git clone https://github.com/giterlizzi/perl-App-CPAN-SBOM.git
=head1 AUTHOR
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
}
},
"develop" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::BOM" : "0",
"Test::More" : "0.88",
"Test::NoTabs" : "0",
"Test::Perl::Critic" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CamelPKI/Certificate.pm view on Meta::CPAN
YWlyIERpZ2l0YWwgQ2luZW1hMR4wHAYDVQQLExVFY2xhaXIgRGlnaXRhbCBDaW5l
bWExMTAvBgNVBAMTKC5BQyBvcGVyYXRpb25uZWxsZSBFY2xhaXIgRGlnaXRhbCBD
aW5lbWExRDBCBgNVBC4TOzgyOjk1OjgyOkE2OjBCOjE4OkQwOkM4OjhFOjZFOkZB
OjkwOkY5OkQ4OkQ5OjIwOjMzOkY2OjQ4Ojc4MB4XDTA3MDMyMTE2NDA0OFoXDTM3
MDMyMTE2MzkwMFowWDEfMB0GA1UECgwWRWNsYWlyRGlnaXRhbENpbmVtYS5mcjEQ
MA4GA1UECwwHV0FOIEVEQzEMMAoGA1UECwwDVlBOMRUwEwYDVQQDDAxtb25zaXRl
Mi5jb20wggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCh/Y1Egj7uF+rp
hGe2I8TQ8o1aXQFfrrwzxfZGXxhRiiuF0sjxT0snjNdaevnh1ksIIniOiYRKHoZq
hyYyPBUdingCznyWAqvOgx/0kombATRtPOMEi9u0p37mo7PuQBqY3YC7s64xo50r
wf1Mqkz7hriNOwnOS0Ed0W4uKlgIzJlVJ8YbT+33SO43bWVMhqHzUYOHDSv4RRmw
H9vYp+bBXHuUiaqYX+EVtUD9MYjUHPl7Q0GMQdUQRIy4D9m4pbA2zXMmViu3+GbB
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/App/DubiousHTTP/Tests/Broken.pm view on Meta::CPAN
[ INVALID, 'te:chunked\000;do_chunked' => '"Transfer-Encoding:chunked\000", served chunked' ],
[ INVALID, 'te:\177chunked;do_chunked' => '"Transfer-Encoding:\177chunked", served chunked' ],
[ INVALID, 'te:chunked\177;do_chunked' => '"Transfer-Encoding:chunked\177", served chunked' ],
[ INVALID, 'te:chu\177nked;do_chunked' => '"Transfer-Encoding:chu\177nked", served chunked' ],
[ INVALID, 'te:\357\273\277chunked;do_chunked' => '"Transfer-Encoding:<UTF8-BOM>chunked", served chunked' ],
[ INVALID, 'te:\302\204chunked;do_chunked' => '"Transfer-Encoding:<UTF8-NBSP>chunked", served chunked' ],
[ INVALID, 'ce:gz\000ip;do_gzip' => '"Content-Encoding:gz\000ip", served gzipped' ],
[ INVALID, 'data:Content\000-encoding:gzip\015\012;do_gzip' => '"Content\000-Encoding:gzip", served gzipped' ],
[ INVALID, 'ce\000:gzip;do_gzip' => '"Content-Encoding\000:gzip", served gzipped' ],
view all matches for this distribution
view release on metacpan or search on metacpan
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/GhaInstall/YAML.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
share/public_html/static/hls.js view on Meta::CPAN
if (!/\r\n|\n/.test(self.buffer)) {
return this;
}
line = collectNextLine();
// strip of UTF-8 BOM if any
// https://en.wikipedia.org/wiki/Byte_order_mark#UTF-8
var m = line.match(/^()?WEBVTT([ \t].*)?$/);
if (!m || !m[0]) {
throw new Error('Malformed WebVTT signature.');
}
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/App/Mowyw.pm view on Meta::CPAN
return encode_entities($str);
} else {
print STDERR "." unless $config{quiet};
# any encoding will do if vim automatically detects it
my $vim_encoding = 'utf-8';
my $BOM = "\x{feff}";
my $syn = Text::VimColor->new(
filetype => $lang,
string => encode($vim_encoding, $BOM . $str),
);
$str = decode($vim_encoding, $syn->html);
$str =~ s/^$BOM//;
return $str;
}
}
# parse sub: expect a specific token, return its content or die if the
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
t/50_encodings.t view on Meta::CPAN
mkdir("out") unless -d "out";
$data = encode("UTF-8", $data);
my @BOMs = qw( UTF-8 UTF-16BE UTF-16LE UTF-32BE UTF-32LE );
my @noBOMs = qw( ISO-8859-1 UTF-8 );
my %enc2bom = map { $_ => encode($_, "\x{feff}") } @BOMs;
enctest( $_, 1 ) for @noBOMs;
enctest($_) for @BOMs;
done_testing( 3 * ( 1 + 4*(@noBOMs + @BOMs) ) );
sub enctest {
my ( $enc, $nobom ) = @_;
my $encoded = $data;
_enctest( $encoded, $enc, $nobom );
t/50_encodings.t view on Meta::CPAN
my $fn = "out/$enc.cho";
open( my $fh, ">:raw", $fn ) or die("$fn: $!\n");
print $fh $encoded;
close($fh);
$enc .= " (no BOM)" if $nobom;
$enc .= " ($crlf)" if $crlf;
my $s = ChordPro::Songbook->new;
eval { $s->parse_file($fn) } or diag("$@");
ok( scalar( @{ $s->{songs} } ) == 1, "$enc: One song" );
view all matches for this distribution
view release on metacpan or search on metacpan
test_run_chain('xml(hex)', '&abc', '&abc', 'xml pattern 4');
test_run_chain('xml,hex', '&abc', '&abc',
'xml pattern 4 (without parentheses)');
test_run_chain('-xml', '©', '©', 'xml decode hex');
test_run_chain('-xml', '', "\xef\xbb\xbf", 'xml decode hex BOM');
test_run_chain('-hex:base64', '00413780', 'AEE3gA==', 'simple chain');
test_run_chain(
'-hex:hash(sha256):url64',
view all matches for this distribution
view release on metacpan or search on metacpan
share/public/swagger-ui/swagger-ui-bundle.js.map view on Meta::CPAN
{"version":3,"sources":["webpack:///webpack/universalModuleDefinition","webpack:///webpack/bootstrap 396b8c743e9ffbc09e47","webpack:///./node_modules/react/react.js","webpack:///./node_modules/prop-types/index.js","webpack:///./node_modules/babel-run...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/PDF/Link/Icons/JPG.pm view on Meta::CPAN
Vc2RG1JUOvi52bzundG5X/6Zs1dfPL4bxxvAvVfqf+XW3xgO+Kl5UzpY15rkKJ8dCxcl0/jf
dZJbztgpe2TWgPGlFkBuHlFLUOv/zWBT8LKaLPGDwBhqciCtHSHOFiQqlXh0pwHlgqbu+bUb
//k53qF6iez7K4p2oyACAyiCnU1g1U6Q+pxSADGM1qbtD5qtEwOSqDQ/P/+hp5+16nfGd+d4
A7hHrv/nLz89PPWB57yHhe7nNStFIxsLVKBc55iTm/hs3fB+bQu0kIC2GAXbX5zRx1YRp7K3
CA7+efngz+n0Pl+sgeNXRWGOFpK/tuoBuvZAFR6zneStZfFHFJ8CWEwthFiiJfDqQxOjdCxC
2t9pvH6qlseYTHxLyL7FoH3yDSQqHstdJysZY1Kat29c/rVLXvxrz75gjBOMN4BDv/7yi1es
n1y87A/EZJ1ZofLkgJ1J3MTtyGWnyDJb9eQWpb45OZeSLYflvQPt2dvnommUPUp8QZjYS21h
ydYiqb8UfXkx/BIboMQXk/BDQApik7aviXMFkmbMfclP2OPH05u3ArU4yYKDEKd9jDD7biZ+
ru0fQCaCEiKqJjUjScoytXYneRT5sV5/YM/elz37/PVjSvJ4A7j715988burjlu04j0idkI7
dQsiz96cna3nH6QatfGbz9Oj9/WDLRcL1PZO9pFEyhmpemZkLG0g1urftvhJ2+mdVQYBASdK
Zy8nnB3Y5vWBzlOV+cklwNtB87URC4k/h+VKbZyERk4ymBoQKVsrAHzTESavEvIFtv9mzvK+
view all matches for this distribution
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
--TALES OF A WHALE VOYAGER TO THE ARCTIC OCEAN.
"It was not till the boats returned from the pursuit of these
whales, that the whites saw their ship in bloody possession of the
savages enrolled among the crew."
--NEWSPAPER ACCOUNT OF THE TAKING AND RETAKING OF THE WHALE-SHIP HOBOMACK.
"It is generally well known that out of the crews of Whaling vessels
(American) few ever return in the ships on board of which they
departed."
--CRUISE IN A WHALE BOAT.
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