App-after
view release on metacpan or search on metacpan
# nuclei nucleus
# oases oasis
# oxen ox
# pence penny
# people person
# phenomena phenomenon
# quanta quantum
# strata stratum
# teeth tooth
# testes testis
# these this
# theses thesis
# those that
# women woman
#/);
#
#
#
#my %ves = (qw/
# calves calf
# dwarves dwarf
# elves elf
# halves half
# knives knife
# leaves leaf
# lives life
# loaves loaf
# scarves scarf
# sheaves sheaf
# shelves shelf
# wharves wharf
# wives wife
# wolves wolf
#/);
#
#
#my %plural = (
# 'menus' => 'menu',
# 'buses' => 'bus',
# %ves,
# %irregular,
#);
#
#
#my @no_change = qw/
# deer
# ides
# fish
# means
# offspring
# series
# sheep
# species
# /;
#
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
#Hermes
#Holmes
#Hughes
#Ives
#Jacques
#James
#Keyes
#Mercedes
#Naples
#Oates
#Raines
#Texas
#athletics
#bogus
#bus
#cactus
#cannabis
#caries
#chaos
#citrus
#clothes
#corps
#corpus
#devious
#dias
#facies
#famous
#hippopotamus
#homunculus
#iris
#lens
#mathematics
#metaphysics
#metropolis
#mews
#minus
#miscellaneous
#molasses
#mrs
#narcissus
#news
#octopus
#ourselves
#papyrus
#perhaps
#physics
#platypus
#plus
#previous
#pus
#rabies
#scabies
#sometimes
#stylus
#themselves
#this
#thus
#various
#yes
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
#my @oes = (qw/
#canoes
#does
#foes
#gumshoes
#hoes
#horseshoes
#oboes
#shoes
#snowshoes
#throes
#toes
#/);
#
#my %oes;
#
#@oes{@oes} = (1) x @oes;
#
#
#
#
#
#
#
#my @ies = (qw/
#Aussies
#Valkryies
#aunties
#bogies
#brownies
#calories
#charlies
#coolies
#coteries
#curies
#cuties
#dies
#genies
#goalies
#kilocalories
#lies
#magpies
#menagerie
#movies
#neckties
#pies
#porkpies
#prairies
#quickies
#reveries
#rookies
#sorties
#stogies
#talkies
#ties
#macronuclei
#naevi
#nuclei
#obeli
#octopi
#oeconomi
#oesophagi
#panni
#periœci
#phocomeli
#phoeti
#platypi
#polypi
#precunei
#radii
#rhombi
#sarcophagi
#solidi
#stimuli
#succubi
#syllabi
#thesauri
#thrombi
#tori
#trophi
#uteri
#viri
#virii
#xiphopagi
#zygomatici
#/);
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
# stiletti
# torsi
#/);
#
#my %i_to_o;
#@i_to_o{@i_to_o} = (1) x @i_to_o;
#
#my %i_to_other = (
# improvisatori => 'improvisatore',
# rhinoceri => 'rhinoceros',
# scaloppini => 'scaloppine'
#);
#
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
# ;
# }
# elsif (length ($word) <= 2) {
# ;
# }
# elsif ($word =~ /ss$/) {
# ;
# }
# elsif ($word =~ /sis$/) {
# ;
# }
# elsif ($word =~ /ies$/) {
# if ($ies{$word}) {
# $singular =~ s/ies$/ie/;
# }
# else {
# $singular =~ s/ies$/y/;
# }
# }
# elsif ($word =~ /oes$/) {
# if ($oes{$word}) {
# $singular =~ s/oes$/oe/;
# }
# else {
# $singular =~ s/oes$/o/;
# }
# }
# elsif ($word =~ /xes$/) {
# $singular =~ s/xes$/x/;
# }
# elsif ($word =~ /ses$/) {
# if ($ses{$word}) {
# $singular =~ s/ses$/se/;
# }
# else {
# $singular =~ s/ses$/s/;
# }
# }
# elsif ($word =~ $es_re) {
# $singular =~ s/$es_re/$1/;
# }
# else {
# $singular =~ s/s$//;
# }
# }
# elsif ($word =~ /i$/) {
# if ($i_to_us{$word}) {
# $singular =~ s/i$/us/;
# }
# elsif ($i_to_o{$word}) {
# $singular =~ s/i$/o/;
# }
# if ($i_to_other{$word}) {
# $singular = $i_to_other{$word};
# }
# level => $method,
# category => $self->{category}
# }
# );
# };
#}
#
#
#sub msgs {
# my $self = shift;
#
# return \@msgs;
#}
#
#sub clear {
# my ($self) = @_;
#
# @msgs = ();
#}
#
#sub contains_ok {
# my ( $self, $regex, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log contains '$regex'";
# my $found =
# _first_index( sub { $_->{message} =~ /$regex/ }, @{ $self->msgs } );
# if ( $found != -1 ) {
# splice( @{ $self->msgs }, $found, 1 );
# $tb->ok( 1, $test_name );
# }
# else {
# $tb->ok( 0, $test_name );
# $tb->diag( "could not find message matching $regex" );
# _diag_msgs();
# }
#}
#
#sub category_contains_ok {
# my ( $self, $category, $regex, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log for $category contains '$regex'";
# my $found =
# _first_index(
# sub { $_->{category} eq $category && $_->{message} =~ /$regex/ },
# @{ $self->msgs } );
# if ( $found != -1 ) {
# splice( @{ $self->msgs }, $found, 1 );
# $tb->ok( 1, $test_name );
# }
# else {
# $tb->ok( 0, $test_name );
# $tb->diag( "could not find $category message matching $regex" );
# _diag_msgs();
# }
#}
#
#sub does_not_contain_ok {
# my ( $self, $regex, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log does not contain '$regex'";
# my $found =
# _first_index( sub { $_->{message} =~ /$regex/ }, @{ $self->msgs } );
# if ( $found != -1 ) {
# $tb->ok( 0, $test_name );
# $tb->diag( "found message matching $regex: " . $self->msgs->[$found]->{message} );
# }
# else {
# $tb->ok( 1, $test_name );
# }
#}
#
#sub category_does_not_contain_ok {
# my ( $self, $category, $regex, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log for $category contains '$regex'";
# my $found =
# _first_index(
# sub { $_->{category} eq $category && $_->{message} =~ /$regex/ },
# @{ $self->msgs } );
# if ( $found != -1 ) {
# $tb->ok( 0, $test_name );
# $tb->diag( "found $category message matching $regex: "
# . $self->msgs->[$found] );
# }
# else {
# $tb->ok( 1, $test_name );
# }
#}
#
#sub empty_ok {
# my ( $self, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log is empty";
# if ( !@{ $self->msgs } ) {
# $tb->ok( 1, $test_name );
# }
# else {
# $tb->ok( 0, $test_name );
# $tb->diag( "log is not empty" );
# _diag_msgs();
# $self->clear();
# }
#}
#
#sub contains_only_ok {
# my ( $self, $regex, $test_name ) = @_;
#
# local $Test::Builder::Level = $Test::Builder::Level + 1;
#
# $test_name ||= "log contains only '$regex'";
# my $count = scalar( @{ $self->msgs } );
# if ( $count == 1 ) {
# local $Test::Builder::Level = $Test::Builder::Level + 1;
# $self->contains_ok( $regex, $test_name );
# }
# else {
# $tb->ok( 0, $test_name );
# _diag_msgs();
# }
#}
#
#sub _diag_msgs {
# my $count = @msgs;
# if ( ! $count ) {
# $tb->diag("log contains no messages");
# }
# else {
# $tb->diag("log contains $count message" . ( $count > 1 ? "s:" : ":"));
#}
#
#my %aliases = Log::Any::Adapter::Util::log_level_aliases();
#
#foreach my $name ( Log::Any::Adapter::Util::logging_methods(), keys(%aliases) )
#{
# my $realname = $aliases{$name} || $name;
# my $namef = $name . "f";
# my $is_name = "is_$name";
# my $is_realname = "is_$realname";
# my $numeric = Log::Any::Adapter::Util::numeric_level($realname);
# no strict 'refs';
# *{$is_name} = sub {
# my ($self) = @_;
# return $self->{adapter}->$is_realname;
# };
# *{$name} = sub {
# my ( $self, @parts ) = @_;
# my $message = join(" ", grep { defined($_) && length($_) } @parts );
# return unless length $message;
# $message = $self->{filter}->( $self->{category}, $numeric, $message )
# if defined $self->{filter};
# return unless defined $message and length $message;
# $message = "$self->{prefix}$message"
# if defined $self->{prefix} && length $self->{prefix};
# return $self->{adapter}->$realname($message);
# };
# *{$namef} = sub {
# my ( $self, @args ) = @_;
# return unless $self->{adapter}->$is_realname;
# my $message =
# $self->{formatter}->( $self->{category}, $numeric, @args );
# return unless defined $message and length $message;
# return $self->$name($message);
# };
#}
#
#1;
#
#
#
#__END__
#
### Log/Any/Proxy/Test.pm ###
#use 5.008001;
#use strict;
#use warnings;
#
#package Log::Any::Proxy::Test;
#
#our $VERSION = '1.040';
#
#use Log::Any::Proxy;
#our @ISA = qw/Log::Any::Proxy/;
#
#my @test_methods = qw(
# msgs
# clear
# contains_ok
# category_contains_ok
# does_not_contain_ok
# category_does_not_contain_ok
# empty_ok
# contains_only_ok
#);
#
#foreach my $name (@test_methods) {
# no strict 'refs';
# *{$name} = sub {
# my $self = shift;
# $self->{adapter}->$name(@_);
# };
#}
#
#1;
### Log/Any/Test.pm ###
#use 5.008001;
#use strict;
#use warnings;
#
#package Log::Any::Test;
#
#our $VERSION = '1.040';
#
#no warnings 'once';
#$Log::Any::OverrideDefaultAdapterClass = 'Log::Any::Adapter::Test';
#$Log::Any::OverrideDefaultProxyClass = 'Log::Any::Proxy::Test';
#
#1;
#
#__END__
#
### Module/Path/More.pm ###
#package Module::Path::More;
#
#our $DATE = '2016-01-09';
#our $VERSION = '0.30';
#
#use 5.010001;
#use strict;
#use warnings;
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT_OK = qw(module_path pod_path);
#
#our $SEPARATOR;
#
#our %SPEC;
#
#$SPEC{':package'} = {
# v => 1.1,
# summary => 'Get path to locally installed Perl module',
#};
#
#BEGIN {
# if ($^O =~ /^(dos|os2)/i) {
# $SEPARATOR = '\\';
# } elsif ($^O =~ /^MacOS/i) {
# $SEPARATOR = ':';
# } else {
# $SEPARATOR = '/';
( run in 2.272 seconds using v1.01-cache-2.11-cpan-99c4e6809bf )