view release on metacpan or search on metacpan
lib/A1z/HTML5/Template.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
A1z::HTML5::Template - Fast and easy Web Apps
view release on metacpan or search on metacpan
lib/A1z/Html.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Web Utilities - A1z::Html
view release on metacpan or search on metacpan
lib/AC/MrGamoo/Server.pm view on Meta::CPAN
$text ||= 'OK';
my $res = "HTTP/1.0 $code $text\r\n"
. "Server: AC/MrGamoo\r\n"
. "Connection: close\r\n"
. "Content-Type: text/plain; charset=UTF-8\r\n"
. "Content-Length: " . length($content) . "\r\n"
. "\r\n"
. $content ;
$me->write_and_shut($res);
view release on metacpan or search on metacpan
lib/AC/Yenta/Stats.pm view on Meta::CPAN
$text ||= 'OK';
my $res = "HTTP/1.0 $code $text\r\n"
. "Server: AC/Yenta\r\n"
. "Connection: close\r\n"
. "Content-Type: text/plain; charset=UTF-8\r\n"
. "Content-Length: " . length($content) . "\r\n"
. "\r\n"
. $content ;
$io->write($res);
view release on metacpan or search on metacpan
lib/ACME/CPANPLUS/Module/With/Core/PreReq.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
ACME::CPANPLUS::Module::With::Core::PreReq - Fake module with a prereq that is a core module for testing CPANPLUS
view release on metacpan or search on metacpan
lib/AI/Classifier/Text/FileLearner.pm view on Meta::CPAN
my $self = shift;
my $file = $self->iterator->match;
return if !defined($file);
my $category = $self->get_category( $file );
open(my $fh, "<:encoding(UTF-8)", $file )
|| Carp::croak(
"Unable to read the specified training file: $file\n");
my $content = join('', <$fh>);
close $fh;
my $initial_features = {};
view release on metacpan or search on metacpan
lib/AI/MXNet.pm view on Meta::CPAN
}
1;
__END__
=encoding UTF-8
=head1 NAME
AI::MXNet - Perl interface to MXNet machine learning library
view release on metacpan or search on metacpan
lib/AI/MicroStructure/WordBlacklist.pm view on Meta::CPAN
sub getStopWordsSmall{
my @search = ("a","a's","able","about","above","according","accordingly","across","actually","after","afterwards","again","against","ain't","all","allow","allows","almost","alone","along","already","also","although","always","am","among","amongst","a...
return @search;
}
sub getStopWords {
if ( @_ and $_[0] eq 'UTF-8' ) {
# adding U0 causes the result to be flagged as UTF-8
my %stoplist = map { ( pack("U0a*", $_), 1 ) } qw(
a able about above according accordingly across actually after afterwards again against aint all allow allows almost alone along already also although always am among amongst an and another any anybody anyhow anyone anything anyway anyways anywhere a...
b be became because become becomes becoming been before beforehand behind being believe below beside besides best better between beyond both brief but by
c came can cannot cant cant cause causes certain certainly changes clearly cmon co com come comes concerning consequently consider considering contain containing contains corresponding could couldnt course cs currently
d definitely described despite did didnt different do does doesnt doing done dont down downwards during
view release on metacpan or search on metacpan
lib/AI/NaiveBayes.pm view on Meta::CPAN
1;
=pod
=encoding UTF-8
=head1 NAME
AI::NaiveBayes - A Bayesian classifier
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
local $/;
$content = <$fh>;
};
if( $content ne $new_content ) {
if( open my $fh, '>:raw:encoding(UTF-8)', $filename ) {
print $fh $new_content;
} else {
warn "Couldn't (re)write '$filename': $!";
};
};
view release on metacpan or search on metacpan
lib/AI/Pathfinding/OptimizeMultiple.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
AI::Pathfinding::OptimizeMultiple - optimize path finding searches for a large
set of initial conditions (for better average performance).
view release on metacpan or search on metacpan
lib/AI/Perceptron/Simple.pm view on Meta::CPAN
if ( $display_stats and not defined $identifier ) {
croak "Please specifiy a string for \$identifier if you are trying to display stats";
}
# CSV processing is all according to the documentation of Text::CSV
open my $data_fh, "<:encoding(UTF-8)", $stimuli_train_csv
or croak "Can't open $stimuli_train_csv: $!";
my $csv = Text::CSV->new( {auto_diag => 1, binary => 1} );
my $attrib = $csv->getline($data_fh);
lib/AI/Perceptron/Simple.pm view on Meta::CPAN
sub _fill_predicted_values {
my ( $self, $stimuli_validate, $predicted_index, $aoa ) = @_;
# CSV processing is all according to the documentation of Text::CSV
open my $data_fh, "<:encoding(UTF-8)", $stimuli_validate
or croak "Can't open $stimuli_validate: $!";
my $csv = Text::CSV->new( {auto_diag => 1, binary => 1} );
my $attrib = $csv->getline($data_fh);
lib/AI/Perceptron/Simple.pm view on Meta::CPAN
true_positive => 0, true_negative => 0, false_positive => 0, false_negative => 0,
accuracy => 0, sensitivity => 0
);
# CSV processing is all according to the documentation of Text::CSV
open my $data_fh, "<:encoding(UTF-8)", $file
or croak "Can't open $file: $!";
my $csv = Text::CSV->new( {auto_diag => 1, binary => 1} );
my $attrib = $csv->getline($data_fh); # get the row of headers, can't specify any column
view release on metacpan or search on metacpan
bin/Inception.pl view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
Inception.pl - Runnable example command line Inception client
view release on metacpan or search on metacpan
lib/AI/TensorFlow/Libtensorflow.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
AI::TensorFlow::Libtensorflow - Bindings for Libtensorflow deep learning library
view release on metacpan or search on metacpan
lib/API/Basecamp.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Basecamp - Basecamp.com API Client
view release on metacpan or search on metacpan
examples/githubcl-appspec.yaml view on Meta::CPAN
get:
description: |
Get a Blob.
Since blobs can be any arbitrary binary data, the input and responses for
the blob API takes an encoding parameter that can be either utf-8 or
base64. If your data cannot be losslessly sent as a UTF-8 string, you can
base64 encode it.
parameters:
- description: Name of repository owner.
in: path
name: owner
view release on metacpan or search on metacpan
lib/API/Facebook.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Facebook - Facebook.com API Client
view release on metacpan or search on metacpan
lib/API/GitForge.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::GitForge - generic interface to APIs of sites like GitHub, GitLab etc.
view release on metacpan or search on metacpan
lib/API/Github.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Github - Github.com API Client
view release on metacpan or search on metacpan
lib/API/Google.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Google - Perl library for easy access to Google services via their API
view release on metacpan or search on metacpan
lib/API/Handle.pm view on Meta::CPAN
, lazy => 1
, required => 1
, default => sub {
require XML::TreePP;
return new XML::TreePP (
output_encoding => 'UTF-8'
, utf8_flag => 1
, attr_prefix => '-'
, indent => 2
, use_ixhash => 1
);
view release on metacpan or search on metacpan
lib/API/ISPManager.pm view on Meta::CPAN
if ($response->is_success) {
my $content = $response->content;
if ($response->header('content-type') eq 'text/xml') {
# allow only XML answers
if ($content && $content =~ /^<\?xml version="\d\.\d" encoding="UTF-8"\?>/s) {
warn $content if $DEBUG;
return $content;
} else {
return '';
}
view release on metacpan or search on metacpan
lib/API/Instagram.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Instagram - Object Oriented Interface for the Instagram REST and Search APIs
view release on metacpan or search on metacpan
lib/API/MailboxOrg.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::MailboxOrg - Perl library to work with the API for the Mailbox.org API
view release on metacpan or search on metacpan
lib/API/Medium.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Medium - Talk with medium.com using their REST API
view release on metacpan or search on metacpan
lib/API/Name.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::Name - Name.com API Client
view release on metacpan or search on metacpan
lib/API/ParallelsWPB.pm view on Meta::CPAN
__END__
=pod
=encoding UTF-8
=head1 NAME
API::ParallelsWPB - client for Parallels Presence Builder API
view release on metacpan or search on metacpan
lib/API/Plesk.pm view on Meta::CPAN
$req->push_header(':KEY', $self->{secret_key});
} else {
$req->push_header(':HTTP_AUTH_LOGIN', $self->{username});
$req->push_header(':HTTP_AUTH_PASSWD', $self->{password});
}
$req->content_type('text/xml; charset=UTF-8');
$req->content($xml);
# LWP6 hack to prevent verification of hostname
$ua->ssl_opts(verify_hostname => 0) if $ua->can('ssl_opts');
lib/API/Plesk.pm view on Meta::CPAN
sub render_xml {
my ($self, $hash) = @_;
my $xml = _render_xml($hash);
$xml = qq|<?xml version="1.0" encoding="UTF-8"?><packet version="$self->{api_version}">$xml</packet>|;
$xml;
}
# renders xml from hash
view release on metacpan or search on metacpan
lib/API/PleskExpand.pm view on Meta::CPAN
# packet version override for
my $packet_version = $self->{'api_version'};
return unless $xml_request;
my $xml_packet_struct = <<" DOC";
<?xml version="1.0" encoding="UTF-8"?>
<packet version="$packet_version">
$xml_request
</packet>
DOC