view release on metacpan or  search on metacpan

lib/Acme/Pony/Pink.pm  view on Meta::CPAN

use 5.010;
use autodie;
use strict;
no warnings;
use utf8;

BEGIN {
	$Acme::Pony::Pink::AUTHORITY = 'cpan:TOBYINK';
	$Acme::Pony::Pink::VERSION   = '0.003';
}

 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/PriPara.pm  view on Meta::CPAN

package Acme::PriPara;
use 5.008001;
use strict;
use warnings;
use utf8;

our $VERSION = "0.04";

use Readonly;

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::PriPara - It's new $module

 view release on metacpan or  search on metacpan

author/RandomEmoji.pm  view on Meta::CPAN

package Acme::RandomEmoji;
use strict;
use warnings;
use utf8;

use Exporter 'import';
our @EXPORT_OK = qw(random_emoji);
our $VERSION = '0.01';

author/RandomEmoji.pm  view on Meta::CPAN

1;

__END__

=encoding utf-8

=head1 NAME

Acme::RandomEmoji - pick an emoji randomly

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

          ((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/Replica.pm  view on Meta::CPAN

}

1;
__END__

=encoding utf8

=head1 NAME

Acme::Replica

 view release on metacpan or  search on metacpan

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

    return if $rv eq 1;
    return if $rv eq '__PACKAGE__';
    return if $rv =~ /^__PACKAGE__->meta->make_immutable/;

    $rv = decode_utf8($rv);

    my $data = {
        'file'    => $filename,
        'package' => $this_package,
        'PPI'     => ref $match,

 view release on metacpan or  search on metacpan

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

1;
__END__

=encoding utf-8

=head1 NAME

Acme::SWUECHO::Meta - a set of tool to learn modules.

 view release on metacpan or  search on metacpan

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

package Acme::SaBalTongMun;
our $VERSION = '1.100830';
use Moose;
# ENCODING: utf-8
# ABSTRACT: make a round robin (사발통문, 沙鉢通文)

use namespace::autoclean;

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

1;

__END__
=pod

=encoding utf-8

=head1 NAME

Acme::SaBalTongMun - make a round robin (사발통문, 沙鉢通文)

 view release on metacpan or  search on metacpan

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

package Acme::Samurai;
use 5.010001;
use strict;
use warnings;
use utf8;
our $VERSION = '0.04';

use File::ShareDir qw/dist_file/;
use Lingua::JA::Alphabet::Yomi qw/alphabet2yomi/;
use Lingua::JA::Numbers qw/num2ja/;

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Samurai - Speak like a Samurai

=head1 SYNOPSIS

  use utf8;
  use Acme::Samurai;

  Acme::Samurai->gozaru("私、侍です"); # => "それがし、侍でござる"

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

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

__END__
=pod

=encoding utf-8

=head1 NAME

Acme::Schlong - Fun with Acme::Schlong!

 view release on metacpan or  search on metacpan

lib/Acme/Shukugawa/Atom.pm  view on Meta::CPAN

package Acme::Shukugawa::Atom;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use utf8;
use Encode qw(decode_utf8);
use File::ShareDir;
use Text::MeCab;
use YAML ();

our $VERSION = '0.00004';

lib/Acme/Shukugawa/Atom.pm  view on Meta::CPAN

our ($CONFIG, @DEFAULT_WORDS, $RE_EXCEPTION, $RE_SMALL, $RE_SYLLABLE, $RE_NBAR);
BEGIN
{
    my $config = YAML::LoadFile( 
        $CONFIG || File::ShareDir::module_file(__PACKAGE__, 'config.yaml') );
    $RE_SMALL    = decode_utf8("[ャュョッー]");
    $RE_SYLLABLE = decode_utf8("(?:.$RE_SMALL?)");
    $RE_NBAR     = decode_utf8("^ンー");
    @DEFAULT_WORDS = map { 
        (decode_utf8($_->[0]), decode_utf8($_->[1]))
    } @{ $config->{custom_words} || [] };
}

sub _create_exception_re
{
    my $self = shift;
    my $custom = $self->custom_words;

    return decode_utf8(join("|",
        map { $custom->[$_ * 2 + 1] } (0..(scalar(@$custom) - 1)/2) ));
}

sub translate
{
    my $self   = shift;
    my $string = decode_utf8(shift);

    if (! ref $self) {
        $self = $self->new({ custom_words => \@DEFAULT_WORDS, @_ });
    }

lib/Acme/Shukugawa/Atom.pm  view on Meta::CPAN

        }

        foreach (my $node = $mecab->parse($text); $node; $node = $node->next) {
            next unless $node->surface;

            my $surface = decode_utf8($node->surface);
            my $feature = decode_utf8($node->feature);
            my ($type, $yomi) = (split(/,/, $feature))[0,8];
# warn "$surface -> $type, $yomi";

            if ($surface eq '上手') {
                $ret .= 'マイウー';
                next;
            }

            if ($type eq 'å‹•è©ž' && $node->next) {
                # 助動詞を計算に入れる
                my $next_feature = decode_utf8($node->next->feature);
                my ($next_type, $next_yomi) = (split(/,/, $next_feature))[0,8];
                if ($next_type eq '助動詞') {
                    $yomi .= $next_yomi;
                    $node = $node->next;
                }

 view release on metacpan or  search on metacpan

lib/Acme/Signature/Arity.pod  view on Meta::CPAN

=encoding utf8

=for comment POD_DERIVED_INDEX_GENERATED
The following documentation is automatically generated.  Please do not edit
this file, but rather the original, inline with Acme::Signature::Arity
at lib/Acme/Signature/Arity.pm

 view release on metacpan or  search on metacpan

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

package Acme::Songmu;
use 5.010;
use strict;
use warnings;
use utf8;
use Encode;

use version 0.77; our $VERSION = version->declare("v0.1.0");

use Time::Piece ();

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

    my $self = shift;
    sprintf '%s %s', $self->first_name, $self->last_name;
}

sub gmu {
    say encode_utf8 'ぐむー';
}

1;
__END__

=encoding utf-8

=for stopwords sandboxing

=head1 NAME

 view release on metacpan or  search on metacpan

local/lib/perl5/IO/Async/Handle.pm  view on Meta::CPAN

         unless( $self->can_event( 'on_read_ready' ) ) {
            croak 'Expected either a on_read_ready callback or an ->on_read_ready method';
         }

         my @layers = PerlIO::get_layers( $read_handle );
         if( grep m/^encoding\(/, @layers or grep m/^utf8$/, @layers ) {
            # Only warn for now, because if it's UTF-8 by default but only
            # passes ASCII then all will be well
            carp "Constructing a ".ref($self)." with an encoding-enabled handle may not read correctly";
         }

 view release on metacpan or  search on metacpan

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Speed - About "SPEED" is Japanese female vocal/dance group

 view release on metacpan or  search on metacpan

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

use Devel::Caller 'caller_cv';
use IO::Handle;

my @stop_modules = (
    '1' .. '9', ':',
    'SIG', 'stderr', '__ANON__', 'utf8::', 'CORE::', 'DynaLoader::', 'strict::',
    'stdout', 'attributes::', 'stdin', 'ARGV', 'INC', 'Scalar::', 'ENV',
    'Regexp::', 'XSLoader::', 'UNIVERSAL::', 'overload::', 'B::', 'Carp::', 
    'Data::', 'PerlIO::', '0', 'BEGIN', 'STDOUT', 'IO::', '_', 'Dumper',
    'Exporter::', 'bytes::', 'STDERR', 'Internals::', 'STDIN', 'Config::',
    'warnings::', 'DB::',

 view release on metacpan or  search on metacpan

t/03_flags.t  view on Meta::CPAN

# UTF8

my $unistr = "\x{307b}\x{3052}\x{ff01}"; # [hoge] in Japanese hiragana

ok utf8::is_utf8($unistr), 'deals with utf8 string';

ok utf8::is_utf8("[%s]$unistr" % 'foo'), 'lhs';
is "[%s]$unistr" % 'foo', "[foo]$unistr";

ok utf8::is_utf8('[%s]' % $unistr), 'rhs';
is '[%s]' % $unistr, "[$unistr]";

$fmt = '[%s]';
$fmt %= $unistr;

ok utf8::is_utf8($fmt), 'assign';
is $fmt, "[$unistr]";

 view release on metacpan or  search on metacpan

DateLocales.pm  view on Meta::CPAN

=head2 RESULTS

 * Solaris 10:
   * does not understand %OB
   * %B seems to return the genitive form
   * the "short" locale names seem to link to the non-utf8 forms (iso-8859-1 or so)
   * encoding seems to match the locale charset
   * all Serbian variants are cyrillic
 * FreeBSD 6.2, 7.0, 7.2:
   * understands %OB, which is usually the nominative form of month names
   * %B has the genitive form (modulo bugs, see the Croatian locale)

DateLocales.pm  view on Meta::CPAN

   * encoding seems to match the locale charset
 * Linux (debian etch):
   * does not understand %OB
   * %B returns the nominative form (at least for Croatian)
   * encoding seems to match the locale charset
   * the "short" locale names seem to link to the non-utf8 forms (iso-8859-1 or so)
 * Linux (s390x-linux):
   * does not understand %OB
   * %B returns the nominative form (at least for Bosnian and Czech)
   * the @euro form seems to be the same like the "short" locale (that is, iso-8859-15 or so)
 * OpenBSD 4.5:

DateLocales.pm  view on Meta::CPAN

 * cygwin:
   * does not seem to have the "locales -a" command, so only the default locale was tested
   * understands %OB, contents (genitive vs. nominative) unclear
 * irix 6.5:
   * does not understand %OB
   * does not have utf-8 locales, but iso-8859-15 locales
   * the non-latin-1 locales (latin2, russian) don't have an encoding spec in its
     locale name, so detecting the encoding must be done through an heuristic

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/Acme/Sub/Parms.pod  view on Meta::CPAN

code so it can be used B<without> needing Acme::Sub::Parms to be
installed at all.

This would typically be used by setting the flag on the
'use Acme::Sub::Parms', and then running 
  perl -c sourcefile > outputfile
(with 'sourcefile' and 'outputfile' replaced with the appropriate
filenames).

=back

=head1 Parameter Binding and Validation

 view release on metacpan or  search on metacpan

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

package Acme::SuddenlyDeath;
use strict;
use warnings;
use utf8;

use parent 'Exporter';
use Text::VisualWidth::UTF8;

our @EXPORT = qw/ sudden_death sudden_death_single /;

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

}

1;
__END__

=encoding utf8

=head1 NAME

Acme::SuddenlyDeath - ASCII Art of sudden death (突然の死) generator

 view release on metacpan or  search on metacpan

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

package Acme::TLDR;
# ABSTRACT: Abbreviate Perl namespaces for the Extreme Perl Golf


use strict;
use utf8;
use warnings qw(all);

use Digest::MD5 qw(md5_hex);
use ExtUtils::Installed;
use File::HomeDir;

 view release on metacpan or  search on metacpan

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Taboo - Automated Cencoring Micro Engine

 view release on metacpan or  search on metacpan

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

use strict;

use 5.008;


=encoding utf-8

=head1 NAME

Acme::Tanasinn - Don't think. Feel and you'll be tanasinn.

 view release on metacpan or  search on metacpan

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

package Acme::Tategaki;
use 5.008005;
use strict;
use warnings;
use utf8;
use Array::Transpose::Ragged qw/transpose_ragged/;
use Encode qw/encode_utf8 decode_utf8/;
use Data::Dump qw/dump/;

use parent 'Exporter';
our @EXPORT = qw( tategaki tategaki_one_line);

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

    return join "\n", @text;
}

if ( __FILE__ eq $0 ) {
    print encode_utf8(tategaki decode_utf8 'お前は、すでに、死んでいる。'), "\n";
    print encode_utf8(tategaki_one_line decode_utf8 'お前は、すでに、死んでいる。');
}

1;

__END__

=encoding utf-8

=head1 NAME

Acme::Tategaki - This Module makes a text vertically.

=head1 SYNOPSIS

    $ perl -MAcme::Tategaki -MEncode -e 'print encode_utf8 tategaki(decode_utf8 "お前は、すでに、死んでいる。"), "\n";'
    死　す　お
    ん　で　前
    で　に　は
    い　︑　︑
    る　　　　
    ︒　　　　

    $ perl -MAcme::Tategaki -MEncode -e 'print encode_utf8 tategaki_one_line(decode_utf8 "お前は、すでに、死んでいる。"), "\n";'
    お
    前
    は
    ︑
    す

 view release on metacpan or  search on metacpan

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

# Tau. Twice the Pie.
package Acme::Tau;
use 5.018;
use warnings;
use Acme::Pi;
use utf8;
my $tau = $Acme::Pi::VERSION * 2; $Acme::Tau::VERSION = "$tau";
1;

__END__

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

README
dist.ini
lib/Acme/Test/LocaleTextDomainUTF8IfEnv.pm
po/Acme-Test-LocaleTextDomainUTF8IfEnv.pot
po/id.po
script/acme-test-localetextdomainutf8ifenv
share/LocaleData/id/LC_MESSAGES/Acme-Test-LocaleTextDomainUTF8IfEnv.mo
t/00-compile.t
t/author-critic.t
t/author-pod-coverage.t
t/author-pod-syntax.t

 view release on metacpan or  search on metacpan

lib/Acme/Test/MetaCPAN/NoContributingDoc.pm  view on Meta::CPAN

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Test::MetaCPAN::NoContributingDoc - Test module for MetaCPAN C</contributing-to>

 view release on metacpan or  search on metacpan

lib/Acme/Test/VW.pm  view on Meta::CPAN

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Test::VW - Makes your tests always pass under CI

 view release on metacpan or  search on metacpan

lib/Acme/TestDist/Cpp/EUMM/EUCppGuess.pm  view on Meta::CPAN

1;
__END__

=encoding utf8

=head1 NAME

Acme::TestDist::Cpp::EUMM::EUCppGuess - Example C++ distribution with MakeMaker and CppGuess to test the tool chain