view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
package Acme::MetaSyntactic::nethack;
use 5.006001;
use utf8;
use strict;
use warnings;
use version; our $VERSION = qv('v1.0.1');
use base 'Acme::MetaSyntactic::MultiList';
__PACKAGE__->init();
1; # Magic true value required at end of module
=encoding utf8
=for stopwords mmm mmmm NetHack something's ummm
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/soviet.pm view on Meta::CPAN
# -*- encoding: utf-8; indent-tabs-mode: nil -*-
#
# Acme::MetaSyntactic::soviet -- NATO codenames for Soviet-designed equipment
# Copyright (C) 2008, 2012, 2016, 2021 Jean Forget
#
# See the license in the embedded documentation below.
lib/Acme/MetaSyntactic/soviet.pm view on Meta::CPAN
}
38;
# Why 38? Hint: s/r$/t/
=encoding utf8
=head1 NAME
Acme::MetaSyntactic::soviet -- NATO codenames for Soviet-designed equipment
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
package Acme::MetaSyntactic::vim;
use 5.006001;
use utf8;
use strict;
use warnings;
use version; our $VERSION = qv('v1.0.1');
use base 'Acme::MetaSyntactic::MultiList';
__PACKAGE__->init();
1; # Magic true value required at end of module
=encoding utf8
=for stopwords Moolenaar autocmds
=head1 NAME
view release on metacpan or search on metacpan
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Acme::MilkyHolmes;
my ($sherlock, $nero, $elly, $cordelia) = Acme::MilkyHolmes->members();
$sherlock->say('ã£ã¦ãªã‚“ã§ã§ã™ã‹ãƒ¼');
view release on metacpan or search on metacpan
lib/Acme/MillaTutorial.pm view on Meta::CPAN
return "Hello World!";
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::MillaTutorial - Blah blah blah
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::Mitey::Cards - demo of Mite
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/MorningMusume/ShinMember.pm view on Meta::CPAN
use warnings;
use strict;
use Acme::MorningMusume;
use Acme::BloodType;
use utf8;
use base 'Acme::MorningMusume::Base';
=head1 NAME
Acme::MorningMusume::ShinMember - Create random Morning Musume!
lib/Acme/MorningMusume/ShinMember.pm view on Meta::CPAN
my ($mom, $dad) = @musume[rand(@musume), rand(@musume)];
my %attributes;
$attributes{first_name_en} = $mom->first_name_en;
$attributes{first_name_ja} = $mom->first_name_ja;
utf8::decode($attributes{first_name_ja});
$attributes{family_name_en} = $dad->family_name_en;
$attributes{family_name_ja} = $dad->family_name_ja;
utf8::decode($attributes{family_name_ja});
$attributes{nick} = [substr($attributes{first_name_ja}, 0, 1).'ã£ã¡ã‚ƒã‚“'];
$attributes{birthday} = $mom->birthday - rand($mom->birthday -
$dad->birthday);
$attributes{blood_type} = Acme::BloodType->new(
{phenotype => $mom->blood_type}
lib/Acme/MorningMusume/ShinMember.pm view on Meta::CPAN
Acme::BloodType->new(
{phenotype => $dad->blood_type}))
->get_bloodtype;
$attributes{hometown} = (rand 1 < 0.5 ? $mom : $dad)->hometown;
utf8::decode($attributes{hometown});
$attributes{graduate_date} = undef;
$attributes{class} = int ($mom->class - rand($mom->class - $dad->class));
$attributes{emoticon} = [(@{$dad->emoticon||()},
@{$mom->emoticon||()})[0..rand 2]];
utf8::decode($_) for @{$attributes{emoticon}};
return %attributes;
}
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Acme/MotorcycleGang.pm view on Meta::CPAN
use warnings;
use strict;
our $VERSION = '0.0.5';
use utf8;
sub yorosiku {
my $class = shift if $_[0] eq __PACKAGE__; ## no critic
my $text = shift || "";
lib/Acme/MotorcycleGang.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::MotorcycleGang - Translate Japanese MotorcycleGang Language
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/BDFOY.pm view on Meta::CPAN
use 5.008;
use strict;
use warnings;
=encoding utf8
=head1 NAME
Acme::MyFirstModule::BDFOY - The great new Acme::MyFirstModule::BDFOY!
view release on metacpan or search on metacpan
lib/Acme/MySecondModule/SADAMS.pm view on Meta::CPAN
sub d { }
1;
__END__
=encoding utf-8
=head1 NAME
Acme::MySecondModule::SADAMS - It's new $module
view release on metacpan or search on metacpan
lib/Acme/NabeAtzz.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=head1 NAME
Acme::NabeAtzz - One, Two, ã•ãƒ¼ã‚“
view release on metacpan or search on metacpan
lib/Acme/Nyaa.pm view on Meta::CPAN
package Acme::Nyaa;
use strict;
use warnings;
use utf8;
use 5.010001;
use Encode;
use Module::Load;
use version; our $VERSION = qv('0.0.10');
lib/Acme/Nyaa.pm view on Meta::CPAN
$argvs->{'objects'} = [];
$argvs->{'language'} ||= $Default;
$argvs->{'loaded-languages'} = [];
$argvs->{'objectid'} = int rand 2**24;
$argvs->{'encoding'} = q();
$argvs->{'utf8flag'} = undef;
my $nyaan = bless $argvs, __PACKAGE__;
my $klass = $nyaan->loadmodule( $argvs->{'language'} );
my $this1 = $nyaan->findobject( $klass, 1 );
lib/Acme/Nyaa.pm view on Meta::CPAN
# Implement at sub class
my $self = shift;
return $self->{'encoding'};
}
sub toutf8 {
my $self = shift;
my $argv = shift;
my $text = undef;
$text = ref $argv ? $$argv : $argv;
return $text unless length $text;
$self->reckon( \$text );
return $text if $self->{'utf8flag'};
return $text unless $self->{'encoding'};
if( not $self->{'encoding'} =~ m/(?:ascii|utf8)/ ) {
Encode::from_to( $text, $self->{'encoding'}, 'utf8' );
}
$text = Encode::decode_utf8 $text unless utf8::is_utf8 $text;
return $text;
}
sub utf8to {
my $self = shift;
my $argv = shift;
my $text = undef;
$text = ref $argv ? $$argv : $argv;
return $text unless $self->{'encoding'};
return $text unless length $text;
$text = Encode::encode_utf8 $text if utf8::is_utf8 $text;
if( $self->{'encoding'} ne 'utf8' ) {
Encode::from_to( $text, 'utf8', $self->{'encoding'} );
}
return $text;
}
1;
__END__
=encoding utf8
=head1 NAME
Acme::Nyaa - Convert texts like which a cat is talking in Japanese
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 release on metacpan or search on metacpan
lib/Acme/Ognon.pm view on Meta::CPAN
package Acme::Ognon;
=encoding utf8
=head1 NAME
Acme::Ognon - Suivez le Conseil supérieur de la langue française ... peut-être
view release on metacpan or search on metacpan
lib/Acme/OnePiece.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::OnePiece - substitute strings in a file into 'one piece'-ed.
view release on metacpan or search on metacpan
lib/Acme/Onion.pm view on Meta::CPAN
};
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Onion - .🧅 file extension in Perl.
view release on metacpan or search on metacpan
lib/Acme/Oppai.pm view on Meta::CPAN
package Acme::Oppai;
use strict;
use warnings;
use utf8;
use Encode;
use Encode::Guess;
use Scalar::Util qw(blessed);
lib/Acme/Oppai.pm view on Meta::CPAN
use overload q("") => sub {
my $self = shift;
my $oppai = ${ $self->[0] };
if ($self->[1]->{use_utf8}) {
utf8::decode($oppai) unless utf8::is_utf8($oppai);
} else {
utf8::encode($oppai) if utf8::is_utf8($oppai);
}
$self->clear;
$oppai;
};
lib/Acme/Oppai.pm view on Meta::CPAN
sub gen_word {
my ($self, $type, $word) = @_;
return $BASIC_WORD{$type} unless $word;
return $word if utf8::is_utf8($word);
my $enc = guess_encoding($word, qw(euc-jp shiftjis 7bit-jis utf8));
return $word unless ref($enc);
$enc->decode($word);
}
sub gen {
lib/Acme/Oppai.pm view on Meta::CPAN
}
}
}
my $word = $self->gen_word($type, @_);
utf8::decode($word) unless utf8::is_utf8($word);
push @{ $self->[3] }, {type => $type, word => $word};
${ $self->[0] } .= $self->gen($type, $word);
$self;
}
lib/Acme/Oppai.pm view on Meta::CPAN
=item option
=over 4
=item * use_utf8
use utf8 flag.
=item * default
default Asc Art type(up or down or default)
view release on metacpan or search on metacpan
Acme-PIA-Export-0.019.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>Module Acme::PIA::Export</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:" />
</head>
<body style="background-color: white">
view release on metacpan or search on metacpan
lib/Acme/PM/Berlin/Meetings/History.pod view on Meta::CPAN
gegenueber vom Bundeskanzleramt) S-Hauptbahnhof
BBBike-Route
L<http://bbbike.de/cgi-bin/bbbike.cgi?zielname=Elisabeth-Abegg-Str> -
Google Maps
L<http://maps.google.com/maps?oe=utf-8&client=firefox-a&ie=UTF8&q=zollpackhof&fb=1&hq=zollpackhof&cid=0,0,16858087506954263585&ei=X-lPTMjCC-LGOKeZmb8B&ved=0CBoQnwIwAQ&hnear=&ll=52.519459,13.380876&spn=0.028699,0.03047&z=15>
L<geo:52.521293,13.367068>
=head2 Treffen im Juni 2010
view release on metacpan or search on metacpan
use utf8;
use strict;
use warnings;
use Module::Build;
Module::Build->new(
view release on metacpan or search on metacpan
lib/Acme/PPIx/MetaSyntactic.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::PPIx::MetaSyntactic - rename functions and variables in a PPI::Document using Acme::MetaSyntactic
view release on metacpan or search on metacpan
share/locale/Acme__Padre__PlayCode-zh-cn.po view on Meta::CPAN
"POT-Creation-Date: 2009-05-11 19:53+0800\n"
"PO-Revision-Date: 2009-05-18 01:44-0400\n"
"Last-Translator: <fayland@gmail.com>\n"
"Language-Team: Chinese\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: lib/Padre/Plugin/AcmePlayCode.pm:19
msgid "Averything"
msgstr "Averything"
view release on metacpan or search on metacpan
lib/Acme/Pano/Util.pm view on Meta::CPAN
package Acme::Pano::Util;
use 5.006;
use strict;
use encoding 'utf8';
use utf8;
use warnings FATAL => 'all';
use Exporter qw/import/;
our @EXPORT = qw/toBareword fromBareword/;
our @EXPORT_OK = ();
our %EXPORT_TAGS = (
view release on metacpan or search on metacpan
__END__
=pod
=encoding utf8
=head1 NAME
Acme::People::Happy - Does people happy?
view release on metacpan or search on metacpan
inc/Module/Install/TrustMetaYml.pm view on Meta::CPAN
1;
__END__
=encoding utf8
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
inc/MyBumpVersionAfterRelease.pm view on Meta::CPAN
use warnings;
package inc::MyBumpVersionAfterRelease;
use Moose;
with 'Dist::Zilla::Role::AfterRelease';
use utf8;
use Path::Tiny 0.061;
# this is a smarter version of:
# [Run::AfterRelease]
# run = %x -p -i -e's/^version = 3\.(\d+)\s/sprintf(q(version = %0.( . (length($1)+1) . q(g), atan2(1,1)*4)/x'
inc/MyBumpVersionAfterRelease.pm view on Meta::CPAN
my $new_version = substr($Ï€, 0, $length);
# munge dist.ini to edit version line
my $path = path('dist.ini');
my $content = $path->slurp_utf8;
my $delta_length = $length - length($original_version);
if ($content =~ s/^(version = )$original_version\s{$delta_length}(\s+)/$1$new_version$2/m)
{
# append+truncate to preserve file mode
$path->append_utf8({ truncate => 1 }, $content);
return 1;
}
return;
}
view release on metacpan or search on metacpan
benchmark/pinoko_vs_geso.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Acme::Pinoko;
#use Acme::Ikamusume; # Acme::Ikamusume invades Text::MeCab globally
use Benchmark qw/cmpthese timethese/;
use open qw/:utf8 :std/;
my $kytea_pinoko = Acme::Pinoko->new(parser => 'Text::KyTea');
my $mecab_pinoko = Acme::Pinoko->new(parser => 'Text::MeCab');
view release on metacpan or search on metacpan
lib/Acme/Pointer.pm view on Meta::CPAN
our @EXPORT = qw/deref pointer/;
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Pointer - We can access to data using address as the string
lib/Acme/Pointer.pm view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw/say/;
use Data::Dumper;
use Acme::Pointer;
my $a = {