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__
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
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
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:
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
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
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__
lib/Acme/Tategaki.pm view on Meta::CPAN
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
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/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
view release on metacpan or search on metacpan
lib/Acme/Text/Viceversa.pm view on Meta::CPAN
use 5.008001;
use strict;
use warnings;
use Carp;
use utf8;
our $VERSION = "0.07";
sub new {
my $class = shift;
lib/Acme/Text/Viceversa.pm view on Meta::CPAN
unless $str =~ /^(:?[ -~$list]+)$/o;
my @results = ();
my $string = '';
my $buffer = '';
while ( $string = substr( $str, 0, 1, '' ) or $string eq '0' ){
# some charactors have length 2 even if they were under utf8
if( exists $rot180{$string} ) {
unshift @results, $rot180{$string};
$buffer = '';
}else{
$buffer .= $string;
view release on metacpan or search on metacpan
lib/Acme/Throw.pm view on Meta::CPAN
use warnings;
package Acme::Throw;
# ABSTRACT: For when code makes you want to throw something.
use utf8;
our $MSG;
sub import {
my ($class, %args) = @_;
$MSG = $args{-msg} || "WHY WON'T THIS CODE WORK??!?";
my $orig_handler = $SIG{__DIE__};
$SIG{__DIE__} = sub {
binmode(STDERR, ":utf8");
print STDERR "(╯°□°）╯︵ â”»â”â”» $MSG\n";
$SIG{__DIE__} = $orig_handler;
die @_;
};
}
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
print 2**200; # 1.60693804425899e+60
print big(2)**200; # 1606938044258990275541962092341162602522202993782792835301376
...and much more.
=encoding utf8
=head1 ABSTRACT
About 120 more or less useful perl subroutines lumped together and exported into your namespace.
# - git status
# - git commit -am versjon
# - git push #eller:
# - git push origin master
# - http://pause.perl.org/
# - tegnsett/utf8-kroell
# - https://rt.cpan.org/Dist/Display.html?Queue=Acme-Tools
# http://en.wikipedia.org/wiki/Birthday_problem#Approximations
# memoize_expire() http://perldoc.perl.org/Memoize/Expire.html
# memoize_file_expire()
# }
# $crc = $crc ^ 0xffffffff;
# return $crc;
# }
#
# $maybe_valid_utf8 =~ # https://stackoverflow.com/questions/11709410/regex-to-detect-invalid-utf-8-string
# m/\A(
# [\x09\x0A\x0D\x20-\x7E] # ASCII, or rather: [\x00-\x7F]
# | [\xC2-\xDF][\x80-\xBF] # non-overlong 2-byte
# | \xE0[\xA0-\xBF][\x80-\xBF] # excluding overlongs
# | [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2} # straight 3-byte
view release on metacpan or search on metacpan
lib/Acme/Umlautify.pm view on Meta::CPAN
$Acme::Umlautify::VERSION = '1.07';
require Exporter;
require DynaLoader;
use utf8;
use warnings;
use strict;
push our @ISA, 'Exporter';
our @EXPORT = qw/umlautify umlautify_latin/;
lib/Acme/Umlautify.pm view on Meta::CPAN
return wantarray ? @out : $out[0];
}
__END__
=encoding utf8
=head1 NAME:
Acme::Umlautify - Äd̈d̈ Üm̈l̈äüẗs̈ ẗö ëv̈ër̈ÿẗḧïn̈g̈!̈
view release on metacpan or search on metacpan
lib/Acme/Unicodify.pm view on Meta::CPAN
#
package Acme::Unicodify;
# ABSTRACT: Convert ASCII text into look-somewhat-alike unicode
$Acme::Unicodify::VERSION = '1.202110';
use utf8;
use v5.22;
use strict;
use warnings;
view release on metacpan or search on metacpan
lib/Acme/VOYAGEGROUP/ConferenceRoom.pm view on Meta::CPAN
package Acme::VOYAGEGROUP::ConferenceRoom;
use 5.008005;
use strict;
use warnings;
use Carp;
use utf8;
use UNIVERSAL::require;
use parent 'Exporter';
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";
our $VERSION = "0.01";
our @EXPORT = qw/ conference_room /;
use constant FLOOR_PLAN => <<'EOS';
view release on metacpan or search on metacpan
lib/Acme/Want5000trillion/Asciiart.pm view on Meta::CPAN
package Acme::Want5000trillion::Asciiart;
use utf8;
use strict;
use warnings;
sub sayAA {
return <<'EOF_AA_WANT';
view release on metacpan or search on metacpan
lib/Acme/Waterkip.pm view on Meta::CPAN
use utf8;
package Acme::Waterkip;
our $VERSION = '0.001';
# ABSTRACT: You should never use this module unless you are a waterkip
view release on metacpan or search on metacpan
lib/Acme/Web/PodDisplay.pm view on Meta::CPAN
=head1 DESCRIPTION
Acme::Web::PodDisplay does nothing. It's used to test how various CPAN web interfaces work with combinations of PM and POD files.
=encoding utf8
=head1 SOURCE
This POD documentation is from the PodDisplay.pm file.
view release on metacpan or search on metacpan
lib/Acme/XSS.pm view on Meta::CPAN
1;
__END__
=for stopwords xmp XSS
=encoding utf8
=head1 NAME
Acme::XSS - "><xmp>XSS Testing
view release on metacpan or search on metacpan
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
PERL_MAGIC_sv|5.007002||p
PERL_MAGIC_taint|5.007002||p
PERL_MAGIC_tiedelem|5.007002||p
PERL_MAGIC_tiedscalar|5.007002||p
PERL_MAGIC_tied|5.007002||p
PERL_MAGIC_utf8|5.008001||p
PERL_MAGIC_uvar_elem|5.007003||p
PERL_MAGIC_uvar|5.007002||p
PERL_MAGIC_vec|5.007002||p
PERL_MAGIC_vstring|5.008001||p
PERL_PV_ESCAPE_ALL|5.009004||p
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
SvPVbyte_force||5.009002|
SvPVbyte_nolen||5.006000|
SvPVbytex_force||5.006000|
SvPVbytex||5.006000|
SvPVbyte|5.006000||p
SvPVutf8_force||5.006000|
SvPVutf8_nolen||5.006000|
SvPVutf8x_force||5.006000|
SvPVutf8x||5.006000|
SvPVutf8||5.006000|
SvPVx|||
SvPV|||
SvREFCNT_dec_NN||5.017007|
SvREFCNT_dec|||
SvREFCNT_inc_NN|5.009004||p
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
_invlist_populate_swatch|||n
_invlist_search|||n
_invlist_subtract|||
_invlist_union_maybe_complement_2nd|||
_invlist_union|||
_is_cur_LC_category_utf8|||
_is_in_locale_category||5.021001|
_is_uni_FOO||5.017008|
_is_uni_perl_idcont||5.017008|
_is_uni_perl_idstart||5.017007|
_is_utf8_FOO||5.017008|
_is_utf8_char_slow||5.021001|n
_is_utf8_idcont||5.021001|
_is_utf8_idstart||5.021001|
_is_utf8_mark||5.017008|
_is_utf8_perl_idcont||5.017008|
_is_utf8_perl_idstart||5.017007|
_is_utf8_xidcont||5.021001|
_is_utf8_xidstart||5.021001|
_load_PL_utf8_foldclosures|||
_make_exactf_invlist|||
_new_invlist_C_array|||
_new_invlist|||
_pMY_CXT|5.007003||p
_setup_canned_invlist|||
_swash_inversion_hash|||
_swash_to_invlist|||
_to_fold_latin1|||
_to_uni_fold_flags||5.014000|
_to_upper_title_latin1|||
_to_utf8_fold_flags||5.019009|
_to_utf8_lower_flags||5.019009|
_to_utf8_title_flags||5.019009|
_to_utf8_upper_flags||5.019009|
_warn_problematic_locale|||n
aMY_CXT_|5.007003||p
aMY_CXT|5.007003||p
aTHXR_|5.021008||p
aTHXR|5.021008||p
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
amagic_is_enabled|||
amagic_ncmp|||
anonymise_cv_maybe|||
any_dup|||
ao|||
append_utf8_from_native_byte||5.019004|n
apply_attrs_my|||
apply_attrs_string||5.006001|
apply_attrs|||
apply|||
assert_uft8_cache_coherent|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
blockhook_register||5.013003|
boolSV|5.004000||p
boot_core_PerlIO|||
boot_core_UNIVERSAL|||
boot_core_mro|||
bytes_cmp_utf8||5.013007|
bytes_from_utf8||5.007001|
bytes_to_utf8||5.006001|
call_argv|5.006000||p
call_atexit||5.006000|
call_list||5.004000|
call_method|5.006000||p
call_pv|5.006000||p
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
cast_ulong||5.006000|n
cast_uv||5.006000|n
check_locale_boundary_crossing|||
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
ckWARN|5.006000||p
ck_entersub_args_core|||
ck_entersub_args_list||5.013006|
ck_entersub_args_proto_or_list||5.013006|
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
do_spawn|||
do_sprintf|||
do_sv_dump||5.006000|
do_sysseek|||
do_tell|||
do_trans_complex_utf8|||
do_trans_complex|||
do_trans_count_utf8|||
do_trans_count|||
do_trans_simple_utf8|||
do_trans_simple|||
do_trans|||
do_vecget|||
do_vecset|||
do_vop|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
find_uninit_var|||
first_symbol|||n
fixup_errno_string|||
foldEQ_latin1||5.013008|n
foldEQ_locale||5.013002|n
foldEQ_utf8_flags||5.013010|
foldEQ_utf8||5.013002|
foldEQ||5.013002|n
fold_constants|||
forbid_setid|||
force_ident_maybe_lex|||
force_ident|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
hv_stores|5.009004||p
hv_store|||
hv_undef_flags|||
hv_undef|||
ibcmp_locale||5.004000|
ibcmp_utf8||5.007003|
ibcmp|||
incline|||
incpush_if_exists|||
incpush_use_sep|||
incpush|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
isASCII|5.006000||p
isBLANK|5.006001||p
isCNTRL|5.006000||p
isDIGIT|||
isFOO_lc|||
isFOO_utf8_lc|||
isGCB|||n
isGRAPH|5.006000||p
isGV_with_GP|5.009004||p
isIDCONT||5.017008|
isIDFIRST_lazy||5.021001|
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
is_uni_space||5.006000|
is_uni_upper_lc||5.006000|
is_uni_upper||5.006000|
is_uni_xdigit_lc||5.006000|
is_uni_xdigit||5.006000|
is_utf8_alnumc||5.017007|
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
is_utf8_blank||5.017002|
is_utf8_char_buf||5.015008|n
is_utf8_char||5.006000|n
is_utf8_cntrl||5.006000|
is_utf8_common|||
is_utf8_digit||5.006000|
is_utf8_graph||5.006000|
is_utf8_idcont||5.008000|
is_utf8_idfirst||5.006000|
is_utf8_lower||5.006000|
is_utf8_mark||5.006000|
is_utf8_perl_space||5.011001|
is_utf8_perl_word||5.011001|
is_utf8_posix_digit||5.011001|
is_utf8_print||5.006000|
is_utf8_punct||5.006000|
is_utf8_space||5.006000|
is_utf8_string_loclen||5.009003|n
is_utf8_string_loc||5.008001|n
is_utf8_string||5.006001|n
is_utf8_upper||5.006000|
is_utf8_xdigit||5.006000|
is_utf8_xidcont||5.013010|
is_utf8_xidfirst||5.013010|
isa_lookup|||
isinfnansv|||
isinfnan||5.021004|n
items|||n
ix|||n
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
join_exact|||
keyword_plugin_standard|||
keyword|||
leave_common|||
leave_scope|||
lex_bufutf8||5.011002|
lex_discard_to||5.011002|
lex_grow_linestr||5.011002|
lex_next_chunk||5.011002|
lex_peek_unichar||5.011002|
lex_read_space||5.011002|
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
magic_setpos|||
magic_setregexp|||
magic_setsig|||
magic_setsubstr|||
magic_settaint|||
magic_setutf8|||
magic_setuvar|||
magic_setvec|||
magic_set|||
magic_sizepack|||
magic_wipepack|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
multideref_stringify|||
my_atof2||5.007002|
my_atof||5.006000|
my_attrs|||
my_bcopy|||n
my_bytes_to_utf8|||n
my_bzero|||n
my_chsize|||
my_clearenv|||
my_cxt_index|||
my_cxt_init|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
my_strftime||5.007002|
my_strlcat|5.009004||pn
my_strlcpy|5.009004||pn
my_unexec|||
my_vsnprintf||5.009004|n
need_utf8|||n
newANONATTRSUB||5.006000|
newANONHASH|||
newANONLIST|||
newANONSUB|||
newASSIGNOP|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
newSVpv_share||5.013006|
newSVpvf_nocontext|||vn
newSVpvf||5.004000|v
newSVpvn_flags|5.010001||p
newSVpvn_share|5.007001||p
newSVpvn_utf8|5.010001||p
newSVpvn|5.004050||p
newSVpvs_flags|5.010001||p
newSVpvs_share|5.009003||p
newSVpvs|5.009003||p
newSVpv|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
sv_2nv_flags||5.013001|
sv_2pv_flags|5.007002||p
sv_2pv_nolen|5.006000||p
sv_2pvbyte_nolen|5.006000||p
sv_2pvbyte|5.006000||p
sv_2pvutf8_nolen||5.006000|
sv_2pvutf8||5.006000|
sv_2pv|||
sv_2uv_flags||5.009001|
sv_2uv|5.004000||p
sv_add_arena|||
sv_add_backref|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
sv_insert|||
sv_isa|||
sv_isobject|||
sv_iv||5.005000|
sv_kill_backrefs|||
sv_len_utf8_nomg|||
sv_len_utf8||5.006000|
sv_len|||
sv_magic_portable|5.021008|5.004000|p
sv_magicext_mglob|||
sv_magicext||5.007003|
sv_magic|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
sv_pvbyte||5.006000|
sv_pvn_force_flags|5.007002||p
sv_pvn_force|||
sv_pvn_nomg|5.007003|5.005000|p
sv_pvn||5.005000|
sv_pvutf8n_force||5.006000|
sv_pvutf8n||5.006000|
sv_pvutf8||5.006000|
sv_pv||5.006000|
sv_recode_to_utf8||5.007003|
sv_reftype|||
sv_ref|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
sv_untaint||5.004000|
sv_upgrade|||
sv_usepvn_flags||5.009004|
sv_usepvn_mg|5.004050||p
sv_usepvn|||
sv_utf8_decode||5.006000|
sv_utf8_downgrade||5.006000|
sv_utf8_encode||5.006000|
sv_utf8_upgrade_flags_grow||5.011000|
sv_utf8_upgrade_flags||5.007002|
sv_utf8_upgrade_nomg||5.007002|
sv_utf8_upgrade||5.007001|
sv_uv|5.005000||p
sv_vcatpvf_mg|5.006000|5.004000|p
sv_vcatpvfn_flags||5.017002|
sv_vcatpvfn||5.004000|
sv_vcatpvf|5.006000|5.004000|p
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
taint_env|||
taint_proper|||
tied_method|||v
tmps_grow_p|||
toFOLD_uni||5.007003|
toFOLD_utf8||5.019001|
toFOLD||5.019001|
toLOWER_L1||5.019001|
toLOWER_LC||5.004000|
toLOWER_uni||5.007003|
toLOWER_utf8||5.015007|
toLOWER|||
toTITLE_uni||5.007003|
toTITLE_utf8||5.015007|
toTITLE||5.019001|
toUPPER_uni||5.007003|
toUPPER_utf8||5.015007|
toUPPER|||
to_byte_substr|||
to_lower_latin1|||n
to_uni_fold||5.007003|
to_uni_lower_lc||5.006000|
to_uni_lower||5.007003|
to_uni_title_lc||5.006000|
to_uni_title||5.007003|
to_uni_upper_lc||5.006000|
to_uni_upper||5.007003|
to_utf8_case||5.007003|
to_utf8_fold||5.015007|
to_utf8_lower||5.015007|
to_utf8_substr|||
to_utf8_title||5.015007|
to_utf8_upper||5.015007|
tokenize_use|||
tokeq|||
tokereport|||
too_few_arguments_pv|||
too_many_arguments_pv|||
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
unwind_handler_stack|||
update_debugger_info|||
upg_version||5.009005|
usage|||
utf16_textfilter|||
utf16_to_utf8_reversed||5.006001|
utf16_to_utf8||5.006001|
utf8_distance||5.006000|
utf8_hop||5.006000|n
utf8_length||5.007001|
utf8_mg_len_cache_update|||
utf8_mg_pos_cache_update|||
utf8_to_bytes||5.006001|
utf8_to_uvchr_buf||5.015009|
utf8_to_uvchr||5.007001|
utf8_to_uvuni_buf||5.015009|
utf8_to_uvuni||5.007001|
utf8n_to_uvchr||5.007001|
utf8n_to_uvuni||5.007001|
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8||5.007001|
uvoffuni_to_utf8_flags||5.019004|
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
valid_utf8_to_uvchr||5.015009|
valid_utf8_to_uvuni||5.015009|
validate_proto|||
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
#ifndef newSVpvn
# define newSVpvn(data,len) ((data) \
? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
: newSV(0))
#endif
#ifndef newSVpvn_utf8
# define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
#endif
#ifndef SVf_UTF8
# define SVf_UTF8 0
#endif
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
char *
DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
{
sv_utf8_downgrade(sv,0);
return SvPV(sv,*lp);
}
#endif
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
#ifndef PERL_MAGIC_vec
# define PERL_MAGIC_vec 'v'
#endif
#ifndef PERL_MAGIC_utf8
# define PERL_MAGIC_utf8 'w'
#endif
#ifndef PERL_MAGIC_substr
# define PERL_MAGIC_substr 'x'
#endif
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
if (mg->mg_len > 0)
Safefree(mg->mg_ptr);
else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */
SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
else if (mg->mg_type == PERL_MAGIC_utf8)
Safefree(mg->mg_ptr);
}
if (mg->mg_flags & MGf_REFCOUNTED)
SvREFCNT_dec(mg->mg_obj);
Safefree(mg);
lib/Acme/YAPC/Okinawa/ppport.h view on Meta::CPAN
const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
char octbuf[32] = "%123456789ABCDF";
STRLEN wrote = 0;
STRLEN chsize = 0;
STRLEN readsize = 1;
#if defined(is_utf8_string) && defined(utf8_to_uvchr)
bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;
#endif
const char *pv = str;
const char * const end = pv + count;
octbuf[0] = esc;
if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
sv_setpvs(dsv, "");
#if defined(is_utf8_string) && defined(utf8_to_uvchr)
if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count))
isuni = 1;
#endif
for (; pv < end && (!max || wrote < max) ; pv += readsize) {
const UV u =
#if defined(is_utf8_string) && defined(utf8_to_uvchr)
isuni ? utf8_to_uvchr((U8*)pv, &readsize) :
#endif
(U8)*pv;
const U8 c = (U8)u & 0xFF;
if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
view release on metacpan or search on metacpan
lib/YourBrainForOnceDude.pod view on Meta::CPAN
=for comment
DO NOT EDIT. This Pod was generated by Swim.
See http://github.com/ingydotnet/swim-pm#readme
=encoding utf8
=head1 NAME
YourBrainForOnceDude - Just use it!
view release on metacpan or search on metacpan
lib/Acme/Zalgo.pm view on Meta::CPAN
=head1 SYNOPSIS
use Acme::Zalgo;
binmode STDOUT, ':utf8';
print zalgo("Hello world\n");
# alternate syntax. NO COMMAS, THEY ARE FORBIDDEN
print HE COMES "Tony The Pony\n";
view release on metacpan or search on metacpan
abstract: 'Like constant, except actually not.'
author:
- 'Konrad Borowski <glitchmr@myopera.com>'
build_requires:
Test::More: 0
utf8: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300038, CPAN::Meta::Converter version 2.120921'
license: mit
view release on metacpan or search on metacpan
lib/Acme/eng2kor.pm view on Meta::CPAN
package Acme::eng2kor;
# ABSTRACT: English to Korean Translator
use utf8;
use Any::Moose;
use Any::Moose '::Util::TypeConstraints';
use JSON qw/decode_json/;
use Const::Fast;
use URI::Escape qw/uri_escape_utf8/;
use HTTP::Request;
use HTTP::Response;
use LWP::UserAgent;
use namespace::autoclean;
lib/Acme/eng2kor.pm view on Meta::CPAN
sub _google_translate {
my ($self, $word) = @_;
$self->text($word) if defined $word;
my $text = uri_escape_utf8($self->text);
my $escaped_uri = sprintf($GOOGLE_TRANSLATE_API_URL, $text, $self->src . '|' . $self->dst);
my $json = $self->get_json($escaped_uri);
$self->translated($json->{responseData}{translatedText});
return $json;
}
lib/Acme/eng2kor.pm view on Meta::CPAN
version v0.0.2
=head1 SYNOPSIS
use utf8;
use Acme::eng2kor;
binmode STDOUT, ':encoding(UTF-8)';
my $app = Acme::eng2kor->new;
$app->translate('hello');
print $app->text, "\n"; # hello