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

 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;

lib/Acme/Text/Viceversa.pm  view on Meta::CPAN

}

1;
__END__

=encoding utf-8

=head1 ATENTION
 
You have to twist your neck to read this document.
Don't turn your display, it is the sliest way for me.

 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

Tools.pm  view on Meta::CPAN

 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.

Tools.pm  view on Meta::CPAN

# - 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()

Tools.pm  view on Meta::CPAN

#  }
#  $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/UNIVERSAL/can/t.pm  view on Meta::CPAN

__END__

=pod

=encoding utf-8

=head1 NAME

Acme::UNIVERSAL::can::t - the opposite of UNIVERSAL::can

 view release on metacpan or  search on metacpan

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

                </u:$action>
            </s:Body>
        </s:Envelope>
        END
        my $res = $http->post( $control_url,
            { headers => { 'Content-Type' => 'text/xml; charset="utf-8"', 'SOAPAction' => "\"$service_type#$action\"" }, content => $body } );
        return $res->{success} ? $res->{content} : undef;
    }

    method _get_local_ip () {
        my $sock = IO::Socket::INET->new( Proto => 'udp', PeerAddr => '192.168.1.1', PeerPort => '1' );

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

use strict;
use warnings;

our $VERSION = "0.03";

=encoding utf-8

=head1 NAME

  Acme::Undead - The Undead is not die!

 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;

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

  my $translate = Acme::Unicodify->new();

  $foo = $translate->to_unicode('Hello, World');
  $bar = $translate->back_to_ascii($unified_string);

  file_to_unicode('/tmp/infile', '/tmp/outfile');
  file_back_to_ascii('/tmp/infile', '/tmp/outfile');

=head1 DESCRIPTION

This is intended to translate basic 7 bit ASCII into characters
that use several Unicode features, such as accent marks and

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

Takes an input string that has perhaps previously been produced
by C<to_unicode> and translates the look-alike characters back
into 7 bit ASCII.  Any other characters (Unicode or ASCII) are
passed through unchanged.

=head2 file_to_unicode($infile, $outfile)

This method reads the file with the named passed as the first
argument, and produces a new output file with the name passed
as the second argument.

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

case that no codepoints >127 are used).

This also assumes that there is sufficient memory to slurp the
entire contents of the file into memory.

=head2 file_back_to_ascii($infile, $outfile)

This method reads the file with the named passed as the first
argument, and produces a new output file with the name passed
as the second argument.

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

lib/Acme/VOYAGEGROUP/ConferenceRoom.pm  view on Meta::CPAN

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::VOYAGEGROUP::ConferenceRoom - It's new $module

 view release on metacpan or  search on metacpan

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

sub dont_blow {
    %invar = map{$_=>1} @_;
}

sub blow($$;$) {
    my ($src, $outputfile) = @_;
    my $doc;
    if(ref $src){
	$doc = PPI::Document->new($$src);
    }
    else {

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

	
	for (@{$doc->find('PPI::Token::Whitespace')}){
	    $_->{content} = ' ' if $_->{content} eq $/;
	}

	$doc->save($outputfile);
}

sub find {
    $symtable{shift()};
}

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

1;
__END__

=encoding utf-8

=head1 NAME

Acme::Want5000trillion - I want 5000trillion yen.

 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

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

XSLoader::load(__PACKAGE__, $VERSION);

1;
__END__

=encoding utf-8

=head1 NAME

Acme::YAPC::Okinawa::Bus - It's Tweet shere

 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

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

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::ZeroWidth - Zero-width fingerprinting

 view release on metacpan or  search on metacpan

lib/Acme/ZydecoTesting/App1.pm  view on Meta::CPAN

__END__

=pod

=encoding utf-8

=head1 NAME

Acme::ZydecoTesting::App1 - test packaging a Zydeco app

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

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

1;

__END__
=pod

=encoding utf-8

=head1 NAME

Acme::eng2kor - English to Korean Translator

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