mephinet

#! /usr/bin/perl

use utf8;
use Test::More;
use Email::Address;

use warnings;
use strict;

my $rcpt;

mephinet

requires "CPAN::Meta", "== 2.120921";
requires "CPAN::Meta::Requirements", "== 2.123";
requires "Carp", "== 1.32";
requires "Class::Load", "== 0.20";
requires "Class::Load::XS", "== 0.04";
requires "Data::OptList", "== 0.107";
requires "Devel::GlobalDestruction", "== 0.11";
requires "Devel::StackTrace", "== 1.30";
requires "Dist::CheckConflicts", "== 0.02";
requires "Eval::Closure", "== 0.08";

mephinet

#! /usr/bin/env perl

use Test::More;
use warnings;
use strict;

use URI::Find;

my $original =<<EOT;
The first sentence ends with a link to http://www.perl.org. The second sentence contains no link.

mephinet

#! /usr/bin/env perl

package Test_Parent;
use Test::Class::Moose;
use namespace::autoclean;

package Test_Child;
use Test::Class::Moose extends => 'Test_Parent';
use namespace::autoclean;

mephinet

#! /usr/bin/env perl

package My::Types;
use me::inlined;
use Moose::Util::TypeConstraints;
use namespace::autoclean;

enum 'Customer', [qw(ACME Foo)];

package Web;

mephinet

污瑩渱⁴敳琠灡牡杲慰栺੾ਰ砲ㄠ℠へ㈲•‰砲㌠⌠へ㈴․‰砲㔠┠ਰ砲㘠☠へ㈷‧‰砲㠠⠠へ㈹
‰砲愠⨠ਰ砲戠⬠へ㉣‬‰砲搠ⴠへ㉥‮‰砲映⼠ਰ砳〠〠へ㌱‱‰砳㈠㈠へ㌳″‰砳㐠㐠ਰ砳㔠㔠へ㌶‶‰砳㜠㜠へ㌸‸‰砳㤠㤠ਰ砳愠㨠へ㍢※‰砳挠㰠へ㍤‽‰砳攠㸠ਰ砳映㼠へ㐰⁀‰破ㄠ䄠へ㐲⁂‰破㌠䌠ਰ破㐠䐠へ㐵⁅‰破㘠䘠へ㐷⁇‰破㠠䠠ਰ破愠䨠へ㑢⁋‰破挠䰠へ㑤⁍‰破攠丠ਰ破映传へ㔰⁐‰砵ㄠ儠へ㔲⁒‰砵㌠匠ਰ砵㐠吠へ㔵⁕‰砵㘠嘠へ㔷⁗‰砵㠠堠ਰ砵㤠夠へ㕡⁚‰砵戠嬠へ㕣⁜‰砵搠崠ਰ砵攠帠へ㕦 ‰砶〠怠へ㘱⁡‰砶㈠戠ਰ砶㌠挠へ㘴⁤‰砶㔠攠へ㘶⁦‰砶㜠朠ਰ砶㠠栠へ㘹⁩‰砶愠樠へ㙢‰砶挠氠ਰ砶搠洠へ㙥‰砶映漠へ㜰⁰‰砷ㄠ焠ਰ砷㈠爠へ㜳⁳‰砷㐠琠へ㜵⁵‰砷㘠瘠ਰ砷㜠眠へ㜸⁸‰砷㤠礠へ㝡⁺‰砷戠笠ਰ砷挠簠へ㝤⁽‰砷攠縠へ愰₠‰硡ㄠꄠਰ硡㈠ꈠへ愳₣‰硡㐠ꐠへ愵₥‰硡㘠꘠ਰ硡㜠꜠へ愸₨‰硡㤠ꤠへ慡₪‰硡戠ꬠਰ硡挠갠へ慥₮‰硡映꼠へ戰₰‰硢ㄠ넠ਰ硢㈠눠へ戳₳‰硢㐠될へ戵₵‰硢㘠똠ਰ硢㜠뜠へ戸₸‰硢㤠뤠へ扡₺‰硢戠묠ਰ硢挠밠へ扤₽‰硢攠븠へ扦₿‰硣〠쀠ਰ硣ㄠ선へ挲⃂‰硣㌠쌠へ挴⃄‰硣㔠씠ਰ硣㘠옠へ挷⃇‰硣㠠젠へ挹⃉‰硣愠쨠ਰ硣戠쬠へ捣⃌‰硣搠촠へ捥⃎‰硣映켠ਰ硤〠퀠へ搱⃑‰硤㈠툠へ搳⃓‰硤㐠퐠ਰ硤㔠픠へ搶⃖‰硤㜠휠へ搸⃘‰硤㤠�ਰ硤愠�へ摢⃛‰硤挠�へ摤⃝‰硤攠�ਰ硤映�へ攰⃠‰硥ㄠへ攲⃢‰硥㌠ਰ硥㐠へ攵⃥‰硥㘠へ攷⃧‰硥㠠ਰ硥㤠へ敡⃪‰硥戠へ散⃬‰硥搠ਰ硥攠へ敦⃯‰硦〠へ昱⃱‰硦㈠ਰ硦㌠へ昴⃴‰硦㔠へ昶⃶‰硦㜠ਰ硦㠠へ昹⃹‰硦愠蘒へ晢⃻‰硦挠ﰠਰ硦搠ﴠへ晥⃾‰硦映＠੾੣瀱㈵㈠瑥獴⁰慲慧牡灨㨊縊へ㠰₀‰砸㈠舠へ㠳₃‰砸㐠萠へ㠵₅ へ㠶₆‰砸㜠蜠へ㠸₈‰砸㤠褠へ㡡₊ へ㡢₋‰砸挠谠へ㡥₎‰砹ㄠ鄠へ㤲ₒ へ㤳ₓ‰砹㐠鐠へ㤵ₕ‰砹㘠阠へ㤷ₗ へ㤸ₘ‰砹㤠餠へ㥡ₚ‰砹戠鬠へ㥣ₜ へ㥥₞‰砹映鼠੾�

mephinet

#! /usr/bin/env perl

use strict;
use warnings;
use Test::More;

use Log::Any '$log';
use Log::Any::Adapter 'Test';

use URI;

mephinet

use warnings;
use strict;

use Log::Any::Adapter;

use Log::Any '$log';
use File::Basename;

BEGIN { $ENV{LOG_PREFIX} = 'elapsed'; }

mephinet

#! /usr/bin/env perl

use strict;
use warnings;
use v5.10;

package A;
use Moose;
use namespace::autoclean;

mephinet

#! /usr/bin/env perl

use strict;
use warnings;

my $some_cond = 0;

sub method {
    my $wa = wantarray();
    die "wantarray = $wa" if defined $wa;