view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

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

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

    configure_requires => {

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

package Acme::MotorcycleGang;

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


  local $_ = $text;

  s/あいらぶゆう|あいらぶゆー|アイラブユウ|アイラブユー/愛羅武勇/g;
  s/あいしてる/愛死天流/g;

t/01.MotorcycleGang.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => '6';

use utf8;
use Acme::MotorcycleGang;

is( Acme::MotorcycleGang->yorosiku("あい"), "愛");
is( Acme::MotorcycleGang->yorosiku("あいらぶゆう"), "愛羅武勇");
is( Acme::MotorcycleGang->yorosiku("あいらぶゆー"), "愛羅武勇");
is( Acme::MotorcycleGang->yorosiku("アイラブユウ"), "愛羅武勇");
is( Acme::MotorcycleGang->yorosiku("アイラブユー"), "愛羅武勇");

is( Acme::MotorcycleGang->yorosiku("しんじゅく区"), "神呪苦区");