view release on metacpan or search on metacpan
docs/Acme-FishFarm-1.01.html view on Meta::CPAN
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Acme::FishFarm - A Fish Farm with Automated Systems</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:root@localhost" />
</head>
<body>
view release on metacpan or search on metacpan
lib/Acme/FixIO.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw();
our @EXPORT_OK = qw();
binmode(STDOUT, ':unix:encoding(utf8):crlf') or die "Can't binmode STDOUT because $!";
binmode(STDERR, ':unix:encoding(utf8):crlf') or die "Can't binmode STDERR because $!";
1;
__END__
lib/Acme/FixIO.pm view on Meta::CPAN
This is caused by a bug in Windows. When writing to a console set to code
page 65001, WriteFile() returns the number of characters written instead
of the number of bytes.
Workaround: Inject a binmode(STDOUT, ':unix:encoding(utf8):crlf') into the
perl program.
=head1 AUTHOR
Klaus Eichner <klaus03@gmail.com>
view release on metacpan or search on metacpan
maint/perlcritic.rc.gen.pl view on Meta::CPAN
#!/usr/bin/env perl
## no critic (Modules::RequireVersionVar)
# ABSTRACT: Write an INI file from a bundle
use 5.008; # utf8
use strict;
use warnings;
use utf8;
our $VERSION = 0.001;
use Carp qw( croak carp );
use Perl::Critic::ProfileCompiler::Util qw( create_bundle );
maint/perlcritic.rc.gen.pl view on Meta::CPAN
my $inf = $bundle->actionlist->get_inflated;
my $config = $inf->apply_config;
{
my $rcfile = path('./perlcritic.rc')->openw_utf8;
$rcfile->print( $config->as_ini, "\n" );
close $rcfile or croak 'Something fubared closing perlcritic.rc';
}
my $deps = $inf->own_deps;
{
my $target = path('./misc');
$target->mkpath if not $target->is_dir;
my $depsfile = $target->child('perlcritic.deps')->openw_utf8;
for my $key ( sort keys %{$deps} ) {
$depsfile->printf( "%s~%s\n", $key, $deps->{$key} );
*STDERR->printf( "%s => %s\n", $key, $deps->{$key} );
}
close $depsfile or carp 'Something fubared closing perlcritic.deps';
view release on metacpan or search on metacpan
lib/Acme/Flip.pm view on Meta::CPAN
Acme::Flip - Replace alphanumeric characters in text with ones that look flipped
=head1 SYNOPSIS
use Acme::Flip;
binmode STDOUT, ':encoding(utf8)';
print Acme::Flip::flip ('Hello world');
=head1 DESCRIPTION
Replace alphanumeric characters in text with ones that look flipped.
view release on metacpan or search on metacpan
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
package Acme::Free::API::Geodata::GeoIP;
use v5.38;
use strict;
use warnings;
use utf8;
our $VERSION = '1.0';
use Data::Dumper;
use WWW::Mechanize;
view release on metacpan or search on metacpan
lib/Acme/Free/Advice/Slip.pm view on Meta::CPAN
}
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Free::Advice::Slip - Seek Advice from the Advice Slip API
view release on metacpan or search on metacpan
lib/Acme/Free/Advice/Unsolicited.pm view on Meta::CPAN
}
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Free::Advice::Unsolicited - Solicit Unsolicited Advice from Kevin Kelly
view release on metacpan or search on metacpan
lib/Acme/Free/Advice.pm view on Meta::CPAN
sub flavors () { keys %flavor }
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Free::Advice - Wise words. Dumb code.
view release on metacpan or search on metacpan
bin/freeapi view on Meta::CPAN
use strict;
use Dispatch::Fu;
use Acme::Free::Public::APIs qw//;
use Util::H2O::More qw/d2o Getopt2h2o o2d/;
use open qw(:std :utf8); # Ensures input/output are treated as UTF-8
use Encode;
use constant {
EXIT_SUCCESS => 0,
EXIT_ERROR => 1,
view release on metacpan or search on metacpan
lib/Acme/Futuristic/Perl.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::Futuristic::Perl - because Modern::Perl is too old
view release on metacpan or search on metacpan
lib/Acme/Ghost.pm view on Meta::CPAN
package Acme::Ghost;
use warnings;
use strict;
use utf8;
=encoding utf-8
=head1 NAME
Acme::Ghost - An yet another view to daemon processes
view release on metacpan or search on metacpan
lib/Acme/Glue.pm view on Meta::CPAN
package Acme::Glue;
use utf8;
use strict;
use warnings;
$Acme::Glue::VERSION = "2025.06";
=encoding utf8
=head1 NAME
Acme::Glue - A placeholder module for code accompanying a Perl photo project
view release on metacpan or search on metacpan
((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp))
static char *
my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
{
sv_utf8_downgrade(sv,0);
return SvPV(sv,*lp);
}
# endif
#else
# define SvPVbyte SvPV
view release on metacpan or search on metacpan
lib/Acme/Greek.pm view on Meta::CPAN
package Acme::Greek;
use strict;
use utf8;
my $latin = q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz};
my $greek = q{ΑΒΨΔΕΦΓΗΙΞΚΛΜÎΟΠQΡΣΤΘΩWΧΥΖαβψδεφγηιξκλμνοπqÏστθωςχυζ};
sub encode {$_ = shift; eval "tr/$latin/$greek/"; $_}
sub decode {$_ = shift; eval "tr/$greek/$latin/"; $_}
open 0 or print "can't encode '$0'\n" and exit;
binmode 0, ':utf8';
(my $code = join '', <0>) =~ s/^\s*use\s+Acme::Greek\s*;\s*//ms;
do {eval decode $code; exit;} if $code =~ /[$greek]/;
open 0, ">$0" or print "ψαν'τ ενψοδε '$0'";
binmode 0, ':utf8';
print {0} "use Acme::Greek;\n", encode $code and exit;
=head1 NAME
Acme::Greek - Ιτ'σ αλλ γÏεεκ το με!
view release on metacpan or search on metacpan
lib/Acme/Greeting.pm view on Meta::CPAN
package Acme::Greeting;
use strict;
use warnings;
use v5.12.3;
use utf8;
use self;
our $VERSION = '0.0.3';
my $last = "";
lib/Acme/Greeting.pm view on Meta::CPAN
}
my @greeting = ();
my $DB;
open($DB, "<:utf8", $realfile) and do {
while (<$DB>) {
chomp;
if ( m/^=item\ (.+)$ /x ) {
push @greeting, $1;
}
view release on metacpan or search on metacpan
examples/calendar.pl view on Meta::CPAN
#!/usr/bin/env perl
use 5.010;
use utf8;
use strict;
use warnings;
use autodie;
use Gtk2 '-init';
use Acme::Gtk2::Ex::Builder;
view release on metacpan or search on metacpan
lib/Acme/HTTP.pm view on Meta::CPAN
'ETag' => '"1404967972"'
'X-HW' => '1408272823.dop...pa1.c'
...and here is another example result of get_esponse() of a web page:
'Content-Type' => 'text/html; charset=utf-8'
'Content-Length' => '31569'
'Date' => 'Sun, 17 Aug 2014 11:02:54 GMT'
'Last-Modified' => 'Thu, 24 Jul 2014 03:31:45 GMT'
'Accept-Ranges' => 'bytes'
'Connection' => 'close'
view release on metacpan or search on metacpan
lib/Acme/Has/Tiny.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=for stopwords ro rw rwp isa
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/Hello/I18N/de_DE.po view on Meta::CPAN
"POT-Creation-Date: 2002-05-22 19:23+0200\n"
"PO-Revision-Date: 2002-02-01 21:43+0100\n"
"Last-Translator: Karl Eichwalder <ke@suse.de>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
msgid "hello, world\n"
msgstr "hallo, Welt\n"
view release on metacpan or search on metacpan
lib/Acme/Helloworld.pm view on Meta::CPAN
print "Hello, world\n";
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Helloworld - output 'Hello, world'
view release on metacpan or search on metacpan
eg/apartment.pl view on Meta::CPAN
#!perl
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");
use Acme::HidamariSketch;
my $hidamari = Acme::HidamariSketch->new;
my $apartment = $hidamari->apartment;
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
#line 128
view release on metacpan or search on metacpan
lib/Acme/Honkidasu.pm view on Meta::CPAN
use strict;
use warnings;
{
package Acme::Honkidasu;
use utf8;
our $VERSION = '0.04';
use Time::Piece ();
our $LIST_HONKIDASU = [
lib/Acme/Honkidasu.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Honkidasu - 本気出ã™ã‚³ãƒ”ペ
=head1 SYNOPSIS
use 5.010;
binmode STDOUT, 'utf8';
use Acme::Honkidasu;
my $time = localtime;
say $time->honkidasu;
say $time->strftime('%F %(');
lib/Acme/Honkidasu.pm view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use utf8;
binmode STDOUT, ":utf8";
use Acme::Honkidasu;
$Acme::Honkidasu::DETERMINE = sub {
my $time = shift;
my $list = shift;
view release on metacpan or search on metacpan
lib/Acme/HowToMakeSushi.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::HowToMakeSushi - It's making sushi.
view release on metacpan or search on metacpan
lib/Acme/ICan/tBelieveItCanSort.pm view on Meta::CPAN
}
}
=pod
=encoding utf-8
=head1 NAME
Acme::ICan'tBelieveItCanSort - Wait... It Actually Works?
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names view on Meta::CPAN
my $is_stream = $_pci_r->{res}[3]{stream} // $_pci_meta_result_stream // 0;
if ($is_success && (0 || $_pci_meta_skip_format || $_pci_r->{res}[3]{"cmdline.skip_format"})) { $fres = $_pci_r->{res}[2] }
elsif ($is_success && $is_stream) {}
else { require Local::_pci_clean_json; require Perinci::Result::Format::Lite; $is_stream=0; _pci_clean_json($_pci_r->{res}); $fres = Perinci::Result::Format::Lite::format($_pci_r->{res}, ($_pci_r->{format} // $_pci_r->{res}[3]{"cmdline.default_format...
my $use_utf8 = $_pci_r->{res}[3]{"x.hint.result_binary"} ? 0 : 0;
if ($use_utf8) { binmode STDOUT, ":encoding(utf8)" }
if ($is_stream) {
my $code = $_pci_r->{res}[2]; if (ref($code) ne "CODE") { die "Result is a stream but no coderef provided" } if ($_pci_meta_result_type_is_simple) { while(defined(my $l=$code->())) { print $fh $l; print $fh "\n" unless $_pci_meta_result_type eq "...
} else {
print $fh $fres;
}
script/gen-generic-ind-company-names view on Meta::CPAN
#
#sub _read_file {
# my ($self, $filename) = @_;
# open my $fh, "<", $filename
# or die "Can't open file '$filename': $!";
# binmode($fh, ":encoding(utf8)");
# local $/;
# my $res = scalar <$fh>;
# close $fh;
# $res;
#}
script/gen-generic-ind-company-names view on Meta::CPAN
#package Text::Table::Tiny;
#$Text::Table::Tiny::VERSION = '1.02';
#use 5.010;
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util 0.202 qw/ is_arrayref /;
#use String::TtyLength 0.02 qw/ tty_width /;
#
script/gen-generic-ind-company-names view on Meta::CPAN
#
#__END__
#
#=pod
#
#=encoding utf8
#
#=head1 NAME
#
#Text::Table::Tiny - generate simple text tables from 2D arrays
#
script/gen-generic-ind-company-names view on Meta::CPAN
#Specifies the format of the output table.
#The default is C<'classic'>,
#but other options are C<'boxrule'> and C<'norule'>.
#
#If you use the C<boxrule> style,
#you'll probably need to run C<binmode(STDOUT, ':utf8')>.
#
#Added in 1.00.
#
#
#=item *
script/gen-generic-ind-company-names view on Meta::CPAN
# | Feraligatr | Water | 5678 |
#
#If you want a more stylish looking table,
#set the C<style> parameter to C<'boxrule'>:
#
# binmode(STDOUT,':utf8');
# generate_table(rows => $rows, header_row => 1, style => 'boxrule');
#
#This uses the ANSI box rule characters.
#Note that you will need to ensure UTF output.
#
view release on metacpan or search on metacpan
lib/Acme/Ikamusume.pm view on Meta::CPAN
package Acme::Ikamusume;
use 5.010001;
use strict;
use warnings;
use utf8;
our $VERSION = '0.08';
use File::ShareDir qw/dist_file/;
use Lingua::JA::Kana;
lib/Acme/Ikamusume.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Ikamusume - The invader comes from the bottom of the sea!
=head1 SYNOPSIS
use utf8;
use Acme::Ikamusume;
print Acme::Ikamusume->geso('イカ娘ã§ã™ã€‚ã‚ãªãŸã‚‚perlã§ä¾µç•¥ã—ã¾ã›ã‚“ã‹ï¼Ÿ');
# => イカ娘ã§ã‚²ã‚½ã€‚ãŠä¸»ã‚‚perlã§ä¾µç•¥ã—ãªã‚¤ã‚«ï¼Ÿ
view release on metacpan or search on metacpan
lib/Acme/Insult/Evil.pm view on Meta::CPAN
sub insult (%args) { my $ref = _http(%args); $ref ? bless $ref, __PACKAGE__ : $ref }
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Insult::Evil - Programmatically Generate Evil Insults
view release on metacpan or search on metacpan
lib/Acme/Insult/Glax.pm view on Meta::CPAN
}
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Insult::Glax - Programmatically Generate Insults
view release on metacpan or search on metacpan
lib/Acme/Insult.pm view on Meta::CPAN
sub flavors () { keys %flavor }
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Insult - Code That Wasn't Raised Right