utf8 results from the CPAN

Acme-Greek

view release on metacpan or search on metacpan

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 all matches for this distribution

Acme-Greeting

2 results

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 all matches for this distribution

Acme-Gtk2-Ex-Builder

2 results

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 all matches for this distribution

Acme-HidamariSketch

20 results

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 all matches for this distribution

Acme-Hidek

1 match

view release on metacpan or search on metacpan

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

package Acme::Hidek;

use 5.008_001;
use utf8;
use Mouse;
use Time::Piece;
use Time::HiRes qw(sleep);

if ($^O eq 'MSWin32') {

view all matches for this distribution

Acme-Honkidasu

4 results

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

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 all matches for this distribution

Acme-ID-CompanyName

1 match

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 all matches for this distribution

Acme-Ikamusume

6 results

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


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 all matches for this distribution

Acme-Iota

2 results

view release on metacpan or search on metacpan

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

1;
__END__

=pod

=encoding utf8

=head1 NAME

Acme::Iota - Iota Is Acme

view all matches for this distribution

Acme-JMOLLY-Utils

1 match

view release on metacpan or search on metacpan

lib/Tie/Cycle.pm view on Meta::CPAN


"Tie::Cycle";

__END__

=encoding utf8

=head1 NAME

Tie::Cycle - Cycle through a list of values via a scalar.

view all matches for this distribution

Acme-Jungle-CrawlerExample

1 match

view release on metacpan or search on metacpan

lib/Data/News.pm view on Meta::CPAN

            join( '|' , @{ $self->images } ),
        ],
    );
    my $file = './data/NEWS-' . $self->site_name. '-' . $self->filename_csv;

    open my $fh, ">>:encoding(utf8)", "$file" or die "$file: $!";
    $self->csv->print( $fh, $_ ) for @rows;
    close $fh or die "Error on file $file: $!";
}

1;

view all matches for this distribution

Acme-KemonoFriends-Color

2 results

view release on metacpan or search on metacpan

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

package Acme::KemonoFriends::Color;
use 5.008001;
use strict;
use warnings;
use utf8;
use Encode qw( encode );
use Exporter 'import';
our @EXPORT = qw( printk );
our $VERSION = "0.01";

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

Acme::KemonoFriends::Color - Colorfull output.

=head1 SYNOPSIS

    use Acme::KemonoFriends::Color;
    use utf8;

    # It is randomly displayed in the color of Kemono Friends.
    printk('Welcome to ã‚ˆã†ã“ãã‚¸ãƒ£ãƒ‘ãƒªãƒ‘ãƒ¼ã‚¯!');

=head1 DESCRIPTION

view all matches for this distribution

Acme-Kensiro

1 match

view release on metacpan or search on metacpan

Build.PL view on Meta::CPAN


use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;

view all matches for this distribution

Acme-Kiyoshi-Array

2 results

view release on metacpan or search on metacpan

eg/kiyoshi.pl view on Meta::CPAN

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;
use Data::Dumper;
use Acme::Kiyoshi::Array;

view all matches for this distribution

Acme-LAUTER-DEUTSCHER

1 match

view release on metacpan or search on metacpan

t/NETZ/FUNKTIONALITAT.t view on Meta::CPAN

#!perl
# vim:enc=utf8:
use strict;
use warnings;

use Test::More;
use File::Temp;

view all matches for this distribution

Acme-Lambda

3 results

view release on metacpan or search on metacpan

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

package Acme::Lambda;

use 5.008;
use warnings;
use strict;
use utf8;

use base qw(Exporter);

our @EXPORT = qw(lambda Î»);
our @EXPORT_OK = @EXPORT;

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

    return sub {local $_ = $_[0]; $sub->(@_)};
}

*Î» = \&lambda;

=encoding utf8

=head1 NAME

Acme::Lambda - Perl with lambdas!

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

    use Acme::Lambda;

    my $square = lambda { $_ * $_ };
    print $square->(4);         # 16

    use utf8;
    my $cube = Î» {$_ * $_ * $_};
    print $cube->(3);           # 27

    # The sub can also access its full argument list through @_
    my $add = lambda {$_[0] + $_[1] } ;

view all matches for this distribution

Acme-Lingua-ZH-Remix

4 results

view release on metacpan or search on metacpan

lib/Acme/Lingua/ZH/Remix.pm view on Meta::CPAN

use v5.10;
our $VERSION = "0.99";

=pod

=encoding utf8

=head1 NAME

Acme::Lingua::ZH::Remix - The Chinese sentence generator.

lib/Acme/Lingua/ZH/Remix.pm view on Meta::CPAN


The corpus should use full-width punctuation characters.

=cut

use utf8;
use Moo;
use Types::Standard qw(HashRef Int);
use List::MoreUtils qw(uniq);
use Hash::Merge qw(merge);

lib/Acme/Lingua/ZH/Remix.pm view on Meta::CPAN

generate the result. If it takes more then 1000 iterations, it aborts and return
the results anyway, regardless the length constraint. This can happen when the
lengths of phrases from corpus do no adds up to a value within the given range.

The returned scalar is the generate sentence string of wide characters. (Which
makes Encode::is_utf8 return true.)

=cut

sub random_sentence {
    my ($self, %options) = @_;

view all matches for this distribution

Acme-LookOfDisapproval

9 results

view release on metacpan or search on metacpan

anotherlib/Acme/o_o.pm view on Meta::CPAN

use strict;
use warnings;
use utf8;
package Acme::à² _à² ;
# vim: set ts=8 sts=2 sw=2 tw=100 et :
# ABSTRACT: Send warnings with à² _à² 

our $VERSION = '0.007';

anotherlib/Acme/o_o.pm view on Meta::CPAN


version 0.008

=head1 SYNOPSIS

    use utf8;
    use Acme::à² _à² ;
    à² _à²  'you did something dumb';

=head1 DESCRIPTION

view all matches for this distribution

Acme-Lou

9 results

view release on metacpan or search on metacpan

author/ja2kana.pl view on Meta::CPAN

use strict;
use utf8;
use Fatal qw(open close);
use FindBin qw($Bin);
use Encode;

my %en2kana;
open my $en2kana, '<:encoding(utf8)', "$Bin/lou-en2kana.csv";
while (<$en2kana>) {
    chomp;
    next unless $_;
    next if /^#/;
    my ($en, $kana) = split ',';

author/ja2kana.pl view on Meta::CPAN

    youth lack role waste worth
    few pray health sex
);

warn "make $Bin/lou-ja2kana.csv...\n";
open my $ja2kana, '>:encoding(utf8)', "$Bin/lou-ja2kana.csv";

print {$ja2kana} <<'HEADER';
# lou-ja2kana.csv
# Copyright 2007 Naoki Tomita <tomita@cpan.org>
# License: GPL

view all matches for this distribution

Acme-MITHALDU-BleedingOpenGL

1 match

view release on metacpan or search on metacpan

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

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|||
SvREFCNT_inc_NN|5.009004||p
SvREFCNT_inc_simple_NN|5.009004||p

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_uni|||n
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

ppport.h view on Meta::CPAN

cast_iv||5.006000|
cast_ulong||5.006000|
cast_uv||5.006000|
check_type_and_open|||
check_uni|||
check_utf8_print|||
checkcomma|||
checkposixcc|||
ckWARN|5.006000||p
ck_entersub_args_list||5.013006|
ck_entersub_args_proto_or_list||5.013006|

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|||

ppport.h view on Meta::CPAN

find_script|||
find_uninit_var|||
first_symbol|||n
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|||
force_list|||

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|||

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_X_LVT|||
is_utf8_X_LV_LVT_V|||
is_utf8_X_LV|||
is_utf8_X_L|||
is_utf8_X_T|||
is_utf8_X_V|||
is_utf8_X_begin|||
is_utf8_X_extend|||
is_utf8_X_non_hangul|||
is_utf8_X_prepend|||
is_utf8_alnum||5.006000|
is_utf8_alpha||5.006000|
is_utf8_ascii||5.006000|
is_utf8_char_slow|||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|||
items|||n
ix|||n
jmaybe|||
join_exact|||
keyword_plugin_standard|||
keyword|||
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|

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|||

ppport.h view on Meta::CPAN

my_strlcpy|5.009004||pn
my_swabn|||n
my_swap|||
my_unexec|||
my_vsnprintf||5.009004|n
need_utf8|||n
newANONATTRSUB||5.006000|
newANONHASH|||
newANONLIST|||
newANONSUB|||
newASSIGNOP|||

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|||

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|||

ppport.h view on Meta::CPAN

sv_insert|||
sv_isa|||
sv_isobject|||
sv_iv||5.005000|
sv_kill_backrefs|||
sv_len_utf8||5.006000|
sv_len|||
sv_magic_portable|5.014000|5.004000|p
sv_magicext||5.007003|
sv_magic|||
sv_mortalcopy|||

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_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||

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||5.004000|
sv_vcatpvf|5.006000|5.004000|p
sv_vsetpvf_mg|5.006000|5.004000|p

ppport.h view on Meta::CPAN

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.007003|
to_utf8_lower||5.007003|
to_utf8_substr|||
to_utf8_title||5.007003|
to_utf8_upper||5.007003|
token_free|||
token_getmad|||
tokenize_use|||
tokeq|||
tokereport|||

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|
utf8_length||5.007001|
utf8_mg_len_cache_update|||
utf8_mg_pos_cache_update|||
utf8_to_bytes||5.006001|
utf8_to_uvchr||5.007001|
utf8_to_uvuni||5.007001|
utf8n_to_uvchr|||
utf8n_to_uvuni||5.007001|
utilize|||
uvchr_to_utf8_flags||5.007003|
uvchr_to_utf8|||
uvuni_to_utf8_flags||5.007003|
uvuni_to_utf8||5.007001|
validate_suid|||
varname|||
vcmp||5.009000|
vcroak||5.006000|
vdeb||5.007003|

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

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

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

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 all matches for this distribution

Acme-MadokaMagica

11 results

view release on metacpan or search on metacpan

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

package Acme::MadokaMagica;
use 5.008001;
use strict;
use warnings;
use utf8;
use parent 'Exporter';

our $VERSION = "0.09";
our $miracle = "å¥‡è·¡";
our $magical = "é”æ³•";

view all matches for this distribution

Acme-Math-PerfectChristmasTree

2 results

view release on metacpan or search on metacpan

lib/Acme/Math/PerfectChristmasTree.pm view on Meta::CPAN

}

1;
__END__

=encoding utf8

=head1 NAME

Acme::Math::PerfectChristmasTree - Calculate the perfect Christmas tree

view all matches for this distribution

Acme-MetaSyntactic-Themes

11 results

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/counting_to_one.pm view on Meta::CPAN

our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.000';
__PACKAGE__->init();
1;

=encoding utf8

=head1 NAME

Acme::MetaSyntactic::counting_to_one - The "movies where you count up to one" theme

view all matches for this distribution

Acme-MetaSyntactic-daleks

1 match

view release on metacpan or search on metacpan

t/ams-90up2date.t view on Meta::CPAN


    # compare each theme data with the network
    for my $theme (@themes) {

    SKIP: {
            no warnings 'utf8';
            skip "$theme ignored upon request", 2 if !$test{$theme};
            my $current = [ sort $theme->name(0) ];
            my $online  = [ sort $theme->remote_list() ];

        SKIP: {

view all matches for this distribution

Acme-MetaSyntactic-legojurassicworld

1 match

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/legojurassicworld.pm view on Meta::CPAN

package Acme::MetaSyntactic::legojurassicworld;
$Acme::MetaSyntactic::legojurassicworld::VERSION = '0.04';
#ABSTRACT: LEGO Jurassic World theme

use utf8;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
__PACKAGE__->init();

view all matches for this distribution

Acme-MetaSyntactic-legolotr

1 match

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/legolotr.pm view on Meta::CPAN

  $Acme::MetaSyntactic::legolotr::VERSION = '0.02';
}

#ABSTRACT: LEGO Lord of the Rings theme

use utf8;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
__PACKAGE__->init();

lib/Acme/MetaSyntactic/legolotr.pm view on Meta::CPAN

Characters from the LEGO Lord of the Rings game as gleaned from
the L<http://www.gamefaqs.com/> walkthroughs.

I<And in the darkness bind them>

=encoding utf8

=head1 SEE ALSO

L<Acme::MetaSyntactic>, L<Acme::MetaSyntactic::List>.

view all matches for this distribution

Acme-MetaSyntactic-legomarvelsavengers

1 match

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/legomarvelsavengers.pm view on Meta::CPAN

package Acme::MetaSyntactic::legomarvelsavengers;
$Acme::MetaSyntactic::legomarvelsavengers::VERSION = '0.02';
#ABSTRACT: LEGO Marvel's Avengers theme

use utf8;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
__PACKAGE__->init();

view all matches for this distribution

Acme-MetaSyntactic-legomovievideogame

1 match

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/legomovievideogame.pm view on Meta::CPAN

package Acme::MetaSyntactic::legomovievideogame;
$Acme::MetaSyntactic::legomovievideogame::VERSION = '0.02';
#ABSTRACT: LEGO Movie Videogame theme

use utf8;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
__PACKAGE__->init();

view all matches for this distribution

Acme-MetaSyntactic-legothehobbit

1 match

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/legothehobbit.pm view on Meta::CPAN

package Acme::MetaSyntactic::legothehobbit;
$Acme::MetaSyntactic::legothehobbit::VERSION = '0.02';
#ABSTRACT: LEGO The Hobbit game theme

use utf8;
use strict;
use warnings;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
__PACKAGE__->init();

view all matches for this distribution

Acme-MetaSyntactic

5 results

view release on metacpan or search on metacpan

lib/Acme/MetaSyntactic/RemoteList.pm view on Meta::CPAN

    "\x{2640}"     => 'female',
    "\x{2642}"     => 'male',
);
my $utf_re = qr/(@{[join( '|', sort keys %utf2asc )]})/; 

sub tr_utf8_basic {
    my $str = shift;
    $str =~ s/$utf_re/$utf2asc{$1}/go;
    return $str;
}

lib/Acme/MetaSyntactic/RemoteList.pm view on Meta::CPAN

=item tr_accent( $str )

Return a copy of C<$str> will all iso-8859-1 accented characters turned
into basic ASCII characters.

=item tr_utf8_basic( $str )

Return a copy of C<$str> with some of the utf-8 accented characters turned
into basic ASCII characters. This is very crude, but I didn't to bother
and depend on the proper module to do that.

view all matches for this distribution