view release on metacpan or  search on metacpan

lib/Acme/CPANRatings.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::CPANRatings - A dummy module just so we can rate CPAN Ratings (the site itself)

 view release on metacpan or  search on metacpan

lib/Acme/Cavaspazi.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Cavaspazi - a simple function to remove spaces from strings or lists of strings

 view release on metacpan or  search on metacpan

lib/Acme/Claude/Shell/Session.pm  view on Meta::CPAN

package Acme::Claude::Shell::Session;

use 5.020;
use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use Types::Standard qw(InstanceOf Str);
use Marlin
    'loop!'        => InstanceOf['IO::Async::Loop'],
    'dry_run?'     => sub { 0 },

lib/Acme/Claude/Shell/Session.pm  view on Meta::CPAN

my @_session_prompts;

sub _load_history {
    my ($term) = @_;
    return unless -f $HISTORY_FILE;
    open my $fh, '<:encoding(UTF-8)', $HISTORY_FILE or return;
    while (my $line = <$fh>) {
        chomp $line;
        $term->addhistory($line) if length $line;
    }
    close $fh;

lib/Acme/Claude/Shell/Session.pm  view on Meta::CPAN

sub _append_to_history {
    my ($input) = @_;
    push @_session_prompts, $input;

    # Append to file immediately
    open my $fh, '>>:encoding(UTF-8)', $HISTORY_FILE or return;
    print $fh "$input\n";
    close $fh;

    # Trim file if too large (occasionally)
    _trim_history_file() if @_session_prompts % 100 == 0;
}

sub _trim_history_file {
    return unless -f $HISTORY_FILE;
    open my $fh, '<:encoding(UTF-8)', $HISTORY_FILE or return;
    my @lines = <$fh>;
    close $fh;

    return if @lines <= $MAX_HISTORY;

    # Keep only last MAX_HISTORY lines
    @lines = @lines[-$MAX_HISTORY..-1];

    open $fh, '>:encoding(UTF-8)', $HISTORY_FILE or return;
    print $fh @lines;
    close $fh;
}

async sub run {

lib/Acme/Claude/Shell/Session.pm  view on Meta::CPAN

    my ($self) = @_;

    # Load prompt history from file
    my @history;
    if (-f $HISTORY_FILE) {
        open my $fh, '<:encoding(UTF-8)', $HISTORY_FILE or do {
            print "Could not read history file.\n\n";
            return;
        };
        @history = <$fh>;
        close $fh;

 view release on metacpan or  search on metacpan

lib/Acme/Color/Rust.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Color::Rust - Color example class using Rust + FFI

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

AUTHOR
    Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

 view release on metacpan or  search on metacpan

lib/Acme/Daily/Fail.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Daily::Fail - generate random newspaper headlines

 view release on metacpan or  search on metacpan

lib/Acme/DarmstadtPM/TieHash.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::DarmstadtPM::TieHash - a module that shows that Perl can do all the Ruby things ;-)

 view release on metacpan or  search on metacpan

lib/Acme/Devel/Hide/Tiny.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Devel::Hide::Tiny - Hide a perl module for testing, in one statement

 view release on metacpan or  search on metacpan

lib/Acme/DieOnLoad.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::DieOnLoad - A module that dies when loaded

 view release on metacpan or  search on metacpan

lib/Acme/Emoticarp.pm  view on Meta::CPAN

  o_O 'No arguments provided.' unless @ARGV;

=head1 DESCRIPTION

This module exports aliases for L<Carp/cluck> and L<Carp/croak>
that are more amusing to use.  Because some emoticons use UTF-8
names, L<utf8> is automatically turned on in the importing environment.

=head1 FUNCTIONS

=head2 o_O

 view release on metacpan or  search on metacpan

lib/Acme/EnclosedChar.pm  view on Meta::CPAN

1;

__END__

=encoding UTF-8

=head1 NAME

Acme::EnclosedChar - Ⓔⓝⓒⓛⓞⓢⓔⓓ Ⓐⓛⓟⓗⓐⓝⓤⓜⓔⓡⓘⓒⓢ Ⓔⓝⓒⓞⓓⓔⓡ

 view release on metacpan or  search on metacpan

lib/Acme/FixIO.pm  view on Meta::CPAN

__END__

=head1 NAME

Acme::FixIO - Workaround for Windows chcp 65001 UTF-8 output bug

=head1 SYNOPSIS

    use Acme::FixIO;

    print chr(300) x 3, chr(301), "UVW\n";

=head1 DESCRIPTION

This is the underlying problem:
The last octet is repeated when Perl outputs a UTF-8 encoded string in
cmd.exe, chcp 65001

Two StackOverflow articles with basically the same problem:
L<http://stackoverflow.com/questions/23416075> and
L<http://stackoverflow.com/questions/25585248>.

 view release on metacpan or  search on metacpan

lib/Acme/Flat.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Flat - A Pure Perl reimplementation of B Internals

 view release on metacpan or  search on metacpan

lib/Acme/Ford/Prefect/FFI.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Ford::Prefect::FFI - FFI test module for Alien::Base

 view release on metacpan or  search on metacpan

lib/Acme/Ford/Prefect.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Ford::Prefect - Test Module for Alien::Base

 view release on metacpan or  search on metacpan

lib/Acme/Ford/Prefect2/FFI.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Ford::Prefect2::FFI - FFI test module for Alien::Base

 view release on metacpan or  search on metacpan

lib/Acme/Ford/Prefect2.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::Ford::Prefect2 - Test Module for Alien::Base + Alien::Build

 view release on metacpan or  search on metacpan

script/advice_kk.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Free::Advice::Unsolicited;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[-id 2];
#~ @ARGV = qw[-help];
#~ @ARGV = qw[-all];

 view release on metacpan or  search on metacpan

script/advice.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Free::Advice;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-json];
#~ @ARGV = qw[-h];

 view release on metacpan or  search on metacpan

lib/Acme/Free/Public/APIs.pm  view on Meta::CPAN

}

1;

__END__
=encoding UTF-8

=head1 NAME

Acme::Free::Public::APIs - Perl API client for FreePublicAPI.com's API for
for listing APIs.

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

AUTHOR
    Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

 view release on metacpan or  search on metacpan

lib/Acme/Ghost/Log.pm  view on Meta::CPAN

    5 => 'info', 6 => 'info',
    7 => 'debug',
    8 => 'trace',
);

my $ENCODING = find_encoding('UTF-8') or croak qq/Encoding "UTF-8" not found/;

sub new {
    my $class = shift;
    my $args = @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {};
    $args->{facility}   ||= Sys::Syslog::LOG_USER;

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

AUTHOR
    Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

 view release on metacpan or  search on metacpan

lib/Acme/Hello/I18N/de.po  view on Meta::CPAN

"POT-Creation-Date: 2002-05-22 19:23+0200\n"
"PO-Revision-Date: 2002-02-03 09:54+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/Holy/Shit/Here/Come/s/An/S.pm  view on Meta::CPAN

use strict;
use warnings;

our $VERSION = '0.003';

=encoding UTF-8

=head1 NAME

Acme::Holy'Shit::Here::Come's::An'S - HOLY 'SHIT HERE COME'S AN 'S

 view release on metacpan or  search on metacpan

lib/Acme/ID/CompanyName.pm  view on Meta::CPAN

__END__

=pod

=encoding UTF-8

=head1 NAME

Acme::ID::CompanyName - Generate nice-sounding, generic Indonesian company names

 view release on metacpan or  search on metacpan

lib/Acme/Include/Data.pod  view on Meta::CPAN

=encoding UTF-8

=head1 NAME

Acme::Include::Data - how to include data files with a CPAN module

 view release on metacpan or  search on metacpan

script/evil_insult.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Insult::Evil;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-json];
#~ @ARGV = qw[-language fr];

 view release on metacpan or  search on metacpan

script/glax_insult.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Insult::Glax;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-j];
#~ @ARGV = qw[-who Tim];

 view release on metacpan or  search on metacpan

script/insult.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Insult;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-json];
#~ @ARGV = qw[-h];