?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/xt.tar
???????
author/pod-coverage.t 0000644 00000001720 15125143236 0010610 0 ustar 00 #!perl # This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable 0.07. use Test::Pod::Coverage 1.08; use Test::More 0.88; BEGIN { if ( $] <= 5.008008 ) { plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+'; } } use Pod::Coverage::TrustPod; my %skip = map { $_ => 1 } qw( ); my @modules; for my $module ( all_modules() ) { next if $skip{$module}; push @modules, $module; } plan skip_all => 'All the modules we found were excluded from POD coverage test.' unless @modules; plan tests => scalar @modules; my %trustme = (); my @also_private; for my $module ( sort @modules ) { pod_coverage_ok( $module, { coverage_class => 'Pod::Coverage::TrustPod', also_private => \@also_private, trustme => $trustme{$module} || [], }, "pod coverage for $module" ); } done_testing(); author/pod-syntax.t 0000644 00000000252 15125143236 0010342 0 ustar 00 #!perl # This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. use strict; use warnings; use Test::More; use Test::Pod 1.41; all_pod_files_ok(); author/test-version.t 0000644 00000000637 15125143236 0010705 0 ustar 00 use strict; use warnings; use Test::More; # generated by Dist::Zilla::Plugin::Test::Version 1.09 use Test::Version; my @imports = qw( version_all_ok ); my $params = { is_strict => 0, has_version => 1, multiple => 0, }; push @imports, $params if version->parse( $Test::Version::VERSION ) >= version->parse('1.002'); Test::Version->import(@imports); version_all_ok; done_testing; author/critic.t 0000644 00000000435 15125143236 0007514 0 ustar 00 #!perl use strict; use warnings; use Test::More; use English qw(-no_match_vars); eval "use Test::Perl::Critic"; plan skip_all => 'Test::Perl::Critic required to criticise code' if $@; Test::Perl::Critic->import( -profile => "perlcritic.rc" ) if -e "perlcritic.rc"; all_critic_ok(); author/00-compile.t 0000644 00000002657 15125143236 0010114 0 ustar 00 use 5.006; use strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::Compile 2.056 use Test::More; plan tests => 2; my @module_files = ( 'Sub/Uplevel.pm' ); # fake home for cpan-testers use File::Temp; local $ENV{HOME} = File::Temp::tempdir( CLEANUP => 1 ); my @switches = ( -d 'blib' ? '-Mblib' : '-Ilib', ); use File::Spec; use IPC::Open3; use IO::Handle; open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; my @warnings; for my $lib (@module_files) { # see L<perlfaq8/How can I capture STDERR from an external command?> my $stderr = IO::Handle->new; diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} } $^X, @switches, '-e', "require q[$lib]")) if $ENV{PERL_COMPILE_TEST_DEBUG}; my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]"); binmode $stderr, ':crlf' if $^O eq 'MSWin32'; my @_warnings = <$stderr>; waitpid($pid, 0); is($?, 0, "$lib loaded ok"); shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ and not eval { require blib; blib->VERSION('1.01') }; if (@_warnings) { warn @_warnings; push @warnings, @_warnings; } } is(scalar(@warnings), 0, 'no warnings found') or diag 'got warnings: ', ( Test::More->can('explain') ? Test::More::explain(\@warnings) : join("\n", '', @warnings) ); author/portability.t 0000644 00000000130 15125143236 0010571 0 ustar 00 use strict; use warnings; use Test::More; use Test::Portability::Files; run_tests(); author/pod-spell.t 0000644 00000002101 15125143236 0010126 0 ustar 00 use strict; use warnings; use Test::More; # generated by Dist::Zilla::Plugin::Test::PodSpelling 2.007005 use Test::Spelling 0.12; use Pod::Wordlist; add_stopwords(<DATA>); all_pod_files_spelling_ok( qw( bin lib ) ); __DATA__ Aas Adam Alders Alders' Alex Alexey Andreas Bill Bron Burke Chrysostomos DAVIDRW Daniel Date David Denaxas FWILES Father Finch Froehlich Gavin Gisle Gondwana Graeme Grossmann HTTP Hanak Hans Hay Hedlund Hukins Ian Jacob James Kapranoff Karaban Kennedy Kilgore Koenig Kyle Lipcon Ludlam MARKSTOS Mann Mark Mike Olaf Ondrej Peter Peters Philip Rabbitson Raspass Rezic Robert Rolf Schilli Sean Sjogren Skyttä Slaven Spiros Steve SteveHay Stone Stosberg TZ Thompson Todd Tom Tony Toru Tourbin Ville Wheeler Wright YYYY Yamaguchi Yuri Zefram aas adamk amir amire80 andreas asjo at brong david davidrw denaxas dot gisle github gpeters hfroehlich iank jefflee john9art jraspass ka kyle lib ludlam mark mschilli murphy olaf ondrej phrstbrn pnull rg ribasushi ruff sasao sburke shaohua slaven sprout srezic talby tech todd tom uid39246 ville waif wfmann zefram zigorou release/distmeta.t 0000644 00000000172 15125143236 0010165 0 ustar 00 #!perl # This file was automatically generated by Dist::Zilla::Plugin::MetaTests. use Test::CPAN::Meta; meta_yaml_ok(); release/minimum-version.t 0000644 00000000266 15125143236 0011515 0 ustar 00 #!perl use Test::More; eval "use Test::MinimumVersion"; plan skip_all => "Test::MinimumVersion required for testing minimum versions" if $@; all_minimum_version_ok( qq{5.010} ); changes.t 0000644 00000000203 15125143364 0006340 0 ustar 00 use Test::More; eval 'use Test::CPAN::Changes'; plan skip_all => 'Test::CPAN::Changes required for this test' if $@; changes_ok(); citations.t 0000644 00000000631 15125143364 0006732 0 ustar 00 use strict; use Test::More; my $file = 'CITATION.cff'; SKIP: { my $rc = eval { require YAML; YAML->VERSION('1.26'); 1 }; skip "Need YAML to test $file", 1 unless $rc; subtest citations => sub { ok( -e $file, "$file exists" ); my $data = eval { YAML::LoadFile( $file ) }; my $error = $@; ok( defined $data, "Loaded data from $file" ) or diag( "Error loading $file: $@" ); }; } done_testing; release/changes_has_content.t 0000644 00000002530 15125143422 0012345 0 ustar 00 use Test::More tests => 2; if (($ENV{TRAVIS_PULL_REQUEST} || '') eq 'false') { chomp(my $branch_name = ($ENV{TRAVIS_BRANCH} || `git rev-parse --abbrev-ref HEAD`)); $TODO = 'Changes need not have content for this release yet if this is only the master branch' if ($branch_name || '') eq 'master'; } note 'Checking Changes'; my $changes_file = 'Changes'; my $newver = '6.06'; my $trial_token = '-TRIAL'; my $encoding = 'UTF-8'; SKIP: { ok(-e $changes_file, "$changes_file file exists") or skip 'Changes is missing', 1; ok(_get_changes($newver), "$changes_file has content for $newver"); } done_testing; sub _get_changes { my $newver = shift; # parse changelog to find commit message open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!"; my $changelog = join('', <$fh>); if ($encoding) { require Encode; $changelog = Encode::decode($encoding, $changelog, Encode::FB_CROAK()); } close $fh; my @content = grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented split /\n/, $changelog; shift @content; # drop the version line # drop unindented last line and trailing blank lines pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ ); # return number of non-blank lines return scalar @content; } author/mojibake.t 0000644 00000000151 15125143561 0010014 0 ustar 00 #!perl use strict; use warnings qw(all); use Test::More; use Test::Mojibake; all_files_encoding_ok(); author/eol.t 0000644 00000000532 15125143561 0007015 0 ustar 00 use strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::EOL 0.19 use Test::More 0.88; use Test::EOL; my @files = ( 'lib/HTTP/Date.pm', 't/00-compile.t', 't/00-report-prereqs.dd', 't/00-report-prereqs.t', 't/date.t' ); eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files; done_testing; release/cpan-changes.t 0000644 00000000344 15125143561 0010704 0 ustar 00 use strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::CPAN::Changes 0.012 use Test::More 0.96 tests => 1; use Test::CPAN::Changes; subtest 'changes_ok' => sub { changes_file_ok('Changes'); };
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????