view release on metacpan or  search on metacpan

lib/Acme/Insult/Pirate.pm  view on Meta::CPAN

    sub insult (%args) { my $ref = _http(%args); $ref ? bless $ref, __PACKAGE__ : $ref }
}
1;
__END__

=encoding utf-8

=head1 NAME

Acme::Insult::Pirate - Programmatically Generate Pirate Themed Insults

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

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

);

sub printk {
    my $message = shift;
    my @strings = split('',$message);
    print encode('utf-8', _escaped_message($_)) for @strings;
}

sub _get_color_code {
    my $code = $KemonoFriends_color[int( rand($#KemonoFriends_color) )];

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

}

1;
__END__

=encoding utf-8

=for stopwords ja

=head1 NAME

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 release on metacpan or  search on metacpan

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

1;
__END__

=for stopwords kensiro sinsu

=encoding utf-8

=head1 NAME

Acme::Kensiro - kensiro-sinsu

 view release on metacpan or  search on metacpan

t/wild.txt  view on Meta::CPAN

rips and cuts.

"An' dat Buck fight lak two hells," was Francois's answer. "An' now we
make good time. No more Spitz, no more trouble, sure."

While Perrault packed the camp outfit and loaded the sled, the
dog-driver proceeded to harness the dogs. Buck trotted up to the place
Spitz would have occupied as leader; but Francois, not noticing him,
brought Sol-leks to the coveted position. In his judgment, Sol-leks was
the best lead-dog left. Buck sprang upon Sol-leks in a fury, driving him
back and standing in his place.

t/wild.txt  view on Meta::CPAN

of the ill treatment they had received and the unjust load. Buck was
raging. He broke into a run, the team following his lead. Hal cried
"Whoa! whoa!" but they gave no heed. He tripped and was pulled off his
feet. The capsized sled ground over him, and the dogs dashed on up the
street, adding to the gayety of Skaguay as they scattered the remainder
of the outfit along its chief thoroughfare.

Kind-hearted citizens caught the dogs and gathered up the scattered
belongings. Also, they gave advice. Half the load and twice the dogs,
if they ever expected to reach Dawson, was what was said. Hal and
his sister and brother-in-law listened unwillingly, pitched tent, and
overhauled the outfit. Canned goods were turned out that made men laugh,
for canned goods on the Long Trail is a thing to dream about. "Blankets
for a hotel" quoth one of the men who laughed and helped. "Half as
many is too much; get rid of them. Throw away that tent, and all those
dishes,--who's going to wash them, anyway? Good Lord, do you think
you're travelling on a Pullman?"

t/wild.txt  view on Meta::CPAN

everything, finally wiping her eyes and proceeding to cast out even
articles of apparel that were imperative necessaries. And in her zeal,
when she had finished with her own, she attacked the belongings of her
men and went through them like a tornado.

This accomplished, the outfit, though cut in half, was still a
formidable bulk. Charles and Hal went out in the evening and bought six
Outside dogs. These, added to the six of the original team, and Teek
and Koona, the huskies obtained at the Rink Rapids on the record
trip, brought the team up to fourteen. But the Outside dogs, though
practically broken in since their landing, did not amount to much. Three

t/wild.txt  view on Meta::CPAN

Then came the underfeeding. Hal awoke one day to the fact that his
dog-food was half gone and the distance only quarter covered; further,
that for love or money no additional dog-food was to be obtained. So
he cut down even the orthodox ration and tried to increase the day's
travel. His sister and brother-in-law seconded him; but they were
frustrated by their heavy outfit and their own incompetence. It was a
simple matter to give the dogs less food; but it was impossible to
make the dogs travel faster, while their own inability to get under way
earlier in the morning prevented them from travelling longer hours. Not
only did they not know how to work dogs, but they did not know how to
work themselves.

t/wild.txt  view on Meta::CPAN

did, till Buck's ribs knitted and he was able to travel.

That winter, at Dawson, Buck performed another exploit, not so heroic,
perhaps, but one that put his name many notches higher on the totem-pole
of Alaskan fame. This exploit was particularly gratifying to the three
men; for they stood in need of the outfit which it furnished, and were
enabled to make a long-desired trip into the virgin East, where miners
had not yet appeared. It was brought about by a conversation in the
Eldorado Saloon, in which men waxed boastful of their favorite dogs.
Buck, because of his record, was the target for these men, and Thornton
was driven stoutly to defend him. At the end of half an hour one man

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

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

END_TEST_PROGRAM

foreach my $pair (@pairs) {
    my ( $english, $lauter ) = @$pair;

    my $outfile = File::Temp->new( UNLINK => 1, SUFFIX => '-lauter.pl' );
    print $outfile $test_program, "$english\n";
    $outfile->close;

    open my $infh, '-|', $^X, $outfile or die $!;
    my $result = do { local $/, <$infh> };
    close $infh;

    $english =~ s{\n}{\\n}gs;
    is $result, $lauter, "translated '$english'";

 view release on metacpan or  search on metacpan

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

tie *STDOUT, __PACKAGE__, (*STDOUT);

1;
__END__

=encoding utf-8

=head1 NAME

Acme::LSD - A dumb module that colorize your prints

 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->(@_)};
}

*λ = \λ

=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 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 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 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 release on metacpan or  search on metacpan

BleedingOpenGL.pm  view on Meta::CPAN

@constants = (@gl_const, @glu_const, @glut_const, @glx_const);
@functions = (@gl_func, @glu_func, @glut_func, @glx_func);

%EXPORT_TAGS = ('constants' => \@constants, 'functions' => \@functions, 'all' => \@EXPORT_OK, 'old' => \@EXPORT,
	'glconstants' => \@gl_const, 'gluconstants' => \@glu_const, 'glutconstants' => \@glut_const, 'glxconstants' => \@glx_const,
	'glfunctions' => \@gl_func, 'glufunctions' => \@glu_func, 'glutfunctions' => \@glut_func, 'glxfunctions' => \@glx_func,
	'oldfunctions' => \@oldfunctions, 'oldconstants' => \@oldconstants,
);

@rename_old = qw(
	glBitmap

 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 = "魔法";

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::MadokaMagica - It's miracles and magic are real module.

 view release on metacpan or  search on metacpan

lib/Acme/Marvel/CinematicUniverse/Character.pm  view on Meta::CPAN

__END__

=pod

=encoding utf-8

=head1 NAME

Acme::Marvel::CinematicUniverse::Character - a character from the MCU

 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 release on metacpan or  search on metacpan

lib/Acme/Math/XS/LeanDist.pm  view on Meta::CPAN

}


__END__

=encoding utf-8

=head1 NAME

Acme::Math::XS::LeanDist - Example module for Inline::Module::LeanDist

 view release on metacpan or  search on metacpan

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

# -*- encoding: utf-8; indent-tabs-mode: nil -*-
#
#     Acme::MetaSyntactic::counting_to_one -- A selection of various movie titles
#
#     Copyright (C) 2012 Jean Forget
#

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 release on metacpan or  search on metacpan

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

Daleks_for_Dummies
Daleks_in_America
Daleks_in_Black
Daleks_in_Pink_Lace
Daleks_in_the_Night
Daleks_in_the_Outfield
Daleks_of_Fire
Daleks_of_Fury
Daleks_of_Madison_County
Daleks_of_a_Summer_Night
Daleks_of_new_york

 view release on metacpan or  search on metacpan

devdata/article.html  view on Meta::CPAN

		<a class="bsub" href="javascript:void(0)"><span id='bsub-text'>Ikuti</span></a>
		<div id="bitsubscribe">

					<h3><label for="loggedout-follow-field">Ikuti “Namafb.com”</label></h3>

			<form action="https://subscribe.wordpress.com" method="post" accept-charset="utf-8" id="loggedout-follow">
			<p>Kirimkan setiap pos baru ke Kotak Masuk Anda.</p>

			<p id="loggedout-follow-error" style="display: none;"></p>

						<p class="bit-follow-count">Bergabunglah dengan 420 pengikut lainnya</p>

 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 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 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 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 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 release on metacpan or  search on metacpan

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

    $str =~ tr{ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖØÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöøùúûüýÿ}
              {AAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuyy};
    return $str;
}

my %utf2asc = (
    "æ"        => 'ae',
    "Æ"        => 'AE',
    "\xc5\xa0" => 'S',
    "\x{0160}" => 'S',
    # for pokemons

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

    "\xe2\x99\x80" => 'female',
    "\xe2\x99\x82" => 'male',
    "\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;
}

1;

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.

=back