New Upstream Snapshot - libdist-zilla-plugin-repository-perl
Ready changes
Summary
Merged new upstream version: 0.24+git20181220.1.cd8229a (was: 0.24).
Resulting package
Built on 2023-01-19T03:04 (took 6m19s)
The resulting binary packages can be installed (if you have the apt repository enabled) by running one of:
apt install -t fresh-snapshots libdist-zilla-plugin-repository-perl
Lintian Result
- libdist-zilla-plugin-repository-perl_0.24+git20181220.1.cd8229a-1~jan+nus3.dsc
- libdist-zilla-plugin-repository-perl_0.24+git20181220.1.cd8229a-1~jan+nus3_all.deb
- libdist-zilla-plugin-repository-perl_0.24+git20181220.1.cd8229a-1~jan+nus3_amd64.buildinfo
- libdist-zilla-plugin-repository-perl_0.24+git20181220.1.cd8229a-1~jan+nus3_amd64.changes
Diff
diff --git a/LICENSE b/LICENSE
index 0afc05e..a0b3250 100644
--- a/LICENSE
+++ b/LICENSE
@@ -1,4 +1,4 @@
-This software is copyright (c) 2018 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
+This software is copyright (c) 2023 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2018 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
+This software is Copyright (c) 2023 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
This is free software, licensed under:
@@ -272,7 +272,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2018 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
+This software is Copyright (c) 2023 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
This is free software, licensed under:
@@ -292,21 +292,21 @@ Definitions:
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through
- textual modification.
+ textual modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
- Holder.
+ Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
+ the package.
- "You" is you, if you're thinking about copying or distributing this Package.
- "Reasonable copying fee" is whatever you can justify on the basis of media
cost, duplication charges, time of people involved, and so on. (You will
not be required to justify it to the Copyright Holder, but only to the
- computing community at large as a market that must bear the fee.)
+ computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
- received it.
+ received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you
@@ -373,7 +373,7 @@ products derived from this software without specific prior written permission.
9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
-MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
The End
diff --git a/MANIFEST b/MANIFEST
index b1871d6..d6f967a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.010.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.029.
Changes
LICENSE
MANIFEST
diff --git a/META.json b/META.json
index 65be6d5..985f57a 100644
--- a/META.json
+++ b/META.json
@@ -7,7 +7,7 @@
"Christopher J. Madsen <perl@cjmweb.net>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010",
+ "generated_by" : "Dist::Zilla version 6.029, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
@@ -49,14 +49,9 @@
}
},
"release_status" : "stable",
- "resources" : {
- "repository" : {
- "type" : "git",
- "url" : "git://github.com/fayland/dist-zilla-plugin-repository.git",
- "web" : "https://github.com/fayland/dist-zilla-plugin-repository"
- }
- },
"version" : "0.24",
- "x_serialization_backend" : "Cpanel::JSON::XS version 3.023"
+ "x_generated_by_perl" : "v5.36.0",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.32",
+ "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
diff --git a/META.yml b/META.yml
index cfca2d9..642a7b6 100644
--- a/META.yml
+++ b/META.yml
@@ -11,7 +11,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010'
+generated_by: 'Dist::Zilla version 6.029, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,7 +24,7 @@ requires:
Dist::Zilla: '4.102340'
Moose: '0'
perl: '5.008'
-resources:
- repository: git://github.com/fayland/dist-zilla-plugin-repository.git
version: '0.24'
-x_serialization_backend: 'YAML::Tiny version 1.70'
+x_generated_by_perl: v5.36.0
+x_serialization_backend: 'YAML::Tiny version 1.73'
+x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff --git a/Makefile.PL b/Makefile.PL
index 77f1635..22ac9e6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.010.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.029.
use strict;
use warnings;
diff --git a/debian/changelog b/debian/changelog
index 35b74ba..ae91439 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+libdist-zilla-plugin-repository-perl (0.24+git20181220.1.cd8229a-1) UNRELEASED; urgency=low
+
+ * New upstream snapshot.
+
+ -- Debian Janitor <janitor@jelmer.uk> Thu, 19 Jan 2023 03:01:16 -0000
+
libdist-zilla-plugin-repository-perl (0.24-2) unstable; urgency=medium
[ gregor herrmann ]
diff --git a/lib/Dist/Zilla/Plugin/Repository.pm b/lib/Dist/Zilla/Plugin/Repository.pm
index 02d1aa6..29600df 100644
--- a/lib/Dist/Zilla/Plugin/Repository.pm
+++ b/lib/Dist/Zilla/Plugin/Repository.pm
@@ -1,5 +1,6 @@
package Dist::Zilla::Plugin::Repository;
$Dist::Zilla::Plugin::Repository::VERSION = '0.24';
+
# ABSTRACT: Automatically sets repository URL from svn/svk/Git checkout for Dist::Zilla
use Moose;
@@ -26,7 +27,7 @@ has _found_repo => (
sub _build__found_repo {
my $self = shift;
- my @info = $self->_find_repo(\&_execute);
+ my @info = $self->_find_repo( \&_execute );
unshift @info, 'url' if @info == 1;
@@ -65,7 +66,7 @@ has web => (
);
sub metadata {
- my ($self, $arg) = @_;
+ my ( $self, $arg ) = @_;
my %repo;
$repo{url} = $self->uri if $self->uri;
@@ -74,7 +75,7 @@ sub metadata {
return unless $repo{url} or $repo{web};
- return {resources => {repository => \%repo}};
+ return { resources => { repository => \%repo } };
}
sub _execute {
@@ -84,26 +85,29 @@ sub _execute {
}
sub _git_to_repo {
- my ($self, $uri) = @_;
+ my ( $self, $uri ) = @_;
$uri =~ s![\w\-]+\@([^:]+):!git://$1/!;
- my %repo = (type => 'git');
+ my %repo = ( type => 'git' );
$repo{url} = $uri unless $uri eq 'origin'; # RT 55136
- if ($uri =~ /^(?:git|https?):\/\/((?:git(?:lab|hub)\.com|bitbucket.org).*?)(?:\.git)?$/) {
+ if ( $uri =~
+/^(?:git|https?):\/\/((?:git(?:lab|hub)\.com|bitbucket.org).*?)(?:\.git)?$/
+ )
+ {
$repo{web} = "https://$1";
- if ($self->github_http) {
+ if ( $self->github_http ) {
# I prefer https://github.com/user/repository
# to git://github.com/user/repository.git
delete $repo{url};
- $self->log("github_http is deprecated. "
- . "Consider using META.json instead,\n"
- . "which can store URLs for both git clone "
- . "and the web front-end.");
+ $self->log( "github_http is deprecated. "
+ . "Consider using META.json instead,\n"
+ . "which can store URLs for both git clone "
+ . "and the web front-end." );
}
}
return %repo;
@@ -111,38 +115,45 @@ sub _git_to_repo {
# Copy-Paste of Module-Install-Repository, thank MIYAGAWA
sub _find_repo {
- my ($self, $execute) = @_;
+ my ( $self, $execute ) = @_;
my %repo;
- if (-e ".git") {
- if ($self->has_repository) {
- %repo = $self->_git_to_repo($self->repository);
- } elsif ($execute->('git remote show -n ' . $self->git_remote) =~ /URL: (.*)$/m) {
+ if ( -e ".git" ) {
+ if ( $self->has_repository ) {
+ %repo = $self->_git_to_repo( $self->repository );
+ }
+ elsif ( $execute->( 'git remote show -n ' . $self->git_remote ) =~
+ /URL: (.*)$/m )
+ {
%repo = $self->_git_to_repo($1);
- } elsif ($execute->('git svn info') =~ /URL: (.*)$/m) {
- %repo = (qw(type svn url), $1);
+ }
+ elsif ( $execute->('git svn info') =~ /URL: (.*)$/m ) {
+ %repo = ( qw(type svn url), $1 );
}
# invalid github remote might come back with just the remote name
- if ($repo{url} && $repo{url} =~ /\A\w+\z/) {
+ if ( $repo{url} && $repo{url} =~ /\A\w+\z/ ) {
delete $repo{$_} for qw/url type web/;
- $self->log("Skipping invalid git remote " . $self->git_remote);
+ $self->log( "Skipping invalid git remote " . $self->git_remote );
}
- } elsif (-e ".svn") {
+ }
+ elsif ( -e ".svn" ) {
$repo{type} = 'svn';
- if ($execute->('svn info') =~ /URL: (.*)$/m) {
+ if ( $execute->('svn info') =~ /URL: (.*)$/m ) {
my $svn_url = $1;
- if ($svn_url =~ /^https(\:\/\/.*?\.googlecode\.com\/svn\/.*)$/) {
+ if ( $svn_url =~ /^https(\:\/\/.*?\.googlecode\.com\/svn\/.*)$/ ) {
$svn_url = 'http' . $1;
}
$repo{url} = $svn_url;
}
- } elsif (-e "_darcs") {
+ }
+ elsif ( -e "_darcs" ) {
+
# defaultrepo is better, but that is more likely to be ssh, not http
$repo{type} = 'darcs';
- if (my $query_repo = $execute->('darcs query repo')) {
- if ($query_repo =~ m!Default Remote: (http://.+)!) {
+ if ( my $query_repo = $execute->('darcs query repo') ) {
+ if ( $query_repo =~ m!Default Remote: (http://.+)! ) {
return %repo, url => $1;
}
}
@@ -152,29 +163,32 @@ sub _find_repo {
chomp;
return %repo, url => $_ if m!^http://!;
}
- } elsif (-e ".hg") {
+ }
+ elsif ( -e ".hg" ) {
$repo{type} = 'hg';
- if ($execute->('hg paths') =~ /default = (.*)$/m) {
+ if ( $execute->('hg paths') =~ /default = (.*)$/m ) {
my $mercurial_url = $1;
$mercurial_url =~ s!^ssh://hg\@(bitbucket\.org/)!https://$1!;
$repo{url} = $mercurial_url;
}
- } elsif (-e "$ENV{HOME}/.svk") {
+ }
+ elsif ( -e "$ENV{HOME}/.svk" ) {
+
# Is there an explicit way to check if it's an svk checkout?
my $svk_info = $execute->('svk info') or return;
- SVK_INFO: {
- if ($svk_info =~ /Mirrored From: (.*), Rev\./) {
+ SVK_INFO: {
+ if ( $svk_info =~ /Mirrored From: (.*), Rev\./ ) {
return qw(type svn url) => $1;
}
- if ($svk_info =~ m!Merged From: (/mirror/.*), Rev\.!) {
+ if ( $svk_info =~ m!Merged From: (/mirror/.*), Rev\.! ) {
$svk_info = $execute->("svk info /$1") or return;
redo SVK_INFO;
}
}
}
- if (!exists $repo{url} && $self->has_repository) {
+ if ( !exists $repo{url} && $self->has_repository ) {
$repo{url} = $self->repository;
}
@@ -283,7 +297,7 @@ Christopher J. Madsen <perl@cjmweb.net>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2018 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
+This software is copyright (c) 2023 by Fayland Lam, Ricardo SIGNES, Moritz Onken, Christopher J. Madsen.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff --git a/t/00-load.t b/t/00-load.t
index e425294..1c38970 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -6,4 +6,6 @@ BEGIN {
use_ok('Dist::Zilla::Plugin::Repository');
}
-diag("Testing Dist::Zilla::Plugin::Repository $Dist::Zilla::Plugin::Repository::VERSION, Perl $], $^X");
+diag(
+"Testing Dist::Zilla::Plugin::Repository $Dist::Zilla::Plugin::Repository::VERSION, Perl $], $^X"
+);
diff --git a/t/10-repo.t b/t/10-repo.t
index e0c6f10..1544290 100644
--- a/t/10-repo.t
+++ b/t/10-repo.t
@@ -12,7 +12,7 @@ use Dist::Zilla::Tester;
use Dist::Zilla::Plugin::Repository; # make sure it's already loaded
use File::Temp qw/tempdir/;
-local $ENV{HOME} = tempdir(CLEANUP => 1);
+local $ENV{HOME} = tempdir( CLEANUP => 1 );
my %result;
@@ -121,7 +121,7 @@ version = 0.01
[Repository]
END START
- $ini . join('', map { "$_\n" } @_);
+ $ini . join( '', map { "$_\n" } @_ );
} # end make_ini
#---------------------------------------------------------------------
@@ -135,7 +135,7 @@ sub build_tzil {
}
my $tzil = Builder->from_config(
- {dist_root => 't/corpus/DZT'},
+ { dist_root => 't/corpus/DZT' },
{
add_files => {
'source/dist.ini' => make_ini(@$repo),
@@ -151,46 +151,48 @@ sub build_tzil {
#---------------------------------------------------------------------
sub github_deprecated {
- scalar grep { /github_http is deprecated/ } @{shift->log_messages};
+ scalar grep { /github_http is deprecated/ } @{ shift->log_messages };
} # end github_deprecated
+
#---------------------------------------------------------------------
sub remote_not_found {
- scalar grep { /Skipping invalid git remote/ } @{shift->log_messages};
+ scalar grep { /Skipping invalid git remote/ } @{ shift->log_messages };
} # end remote_not_found
#=====================================================================
{
my $tzil = build_tzil();
- is($tzil->distmeta->{resources}{repository}, undef, "No repository");
- ok(!github_deprecated($tzil), "No repository log message");
+ is( $tzil->distmeta->{resources}{repository}, undef, "No repository" );
+ ok( !github_deprecated($tzil), "No repository log message" );
}
#---------------------------------------------------------------------
{
my $url = 'http://example.com';
- my $tzil = build_tzil(["repository = $url"]);
+ my $tzil = build_tzil( ["repository = $url"] );
- is_deeply($tzil->distmeta->{resources}{repository}, {url => $url}, "Just a URL");
- ok(!github_deprecated($tzil), "Just a URL log message");
+ is_deeply(
+ $tzil->distmeta->{resources}{repository},
+ { url => $url },
+ "Just a URL"
+ );
+ ok( !github_deprecated($tzil), "Just a URL log message" );
}
#---------------------------------------------------------------------
{
my $url = 'http://example.com/svn/repo';
- my $tzil = build_tzil(["repository = $url", 'type = svn']);
+ my $tzil = build_tzil( [ "repository = $url", 'type = svn' ] );
is_deeply(
$tzil->distmeta->{resources}{repository},
- {
- url => $url,
- type => 'svn'
- },
+ { url => $url, type => 'svn' },
"SVN with type"
);
- ok(!github_deprecated($tzil), "SVN with type log message");
+ ok( !github_deprecated($tzil), "SVN with type log message" );
}
#---------------------------------------------------------------------
@@ -198,23 +200,20 @@ sub remote_not_found {
my $url = 'http://example.com/svn/repo';
my $web = 'http://example.com';
- my $tzil = build_tzil(["repository = $url", "web = $web", 'type = svn']);
+ my $tzil =
+ build_tzil( [ "repository = $url", "web = $web", 'type = svn' ] );
is_deeply(
$tzil->distmeta->{resources}{repository},
- {
- web => $web,
- url => $url,
- type => 'svn'
- },
+ { web => $web, url => $url, type => 'svn' },
"SVN with type and web"
);
- ok(!github_deprecated($tzil), "SVN with type and web log message");
+ ok( !github_deprecated($tzil), "SVN with type and web log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil([], '.git');
+ my $tzil = build_tzil( [], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -225,12 +224,12 @@ sub remote_not_found {
},
"Auto github"
);
- ok(!github_deprecated($tzil), "Auto github log message");
+ ok( !github_deprecated($tzil), "Auto github log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['github_http = 1'], '.git');
+ my $tzil = build_tzil( ['github_http = 1'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -240,12 +239,12 @@ sub remote_not_found {
},
"Auto github with http"
);
- ok(github_deprecated($tzil), "Auto github with http log message");
+ ok( github_deprecated($tzil), "Auto github with http log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['github_http = 0'], '.git');
+ my $tzil = build_tzil( ['github_http = 0'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -256,12 +255,12 @@ sub remote_not_found {
},
"Auto github no http"
);
- ok(!github_deprecated($tzil), "Auto github no http log message");
+ ok( !github_deprecated($tzil), "Auto github no http log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['git_remote = dzil', 'github_http = 1'], '.git');
+ my $tzil = build_tzil( [ 'git_remote = dzil', 'github_http = 1' ], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -271,12 +270,13 @@ sub remote_not_found {
},
"Auto github remote dzil with github_http"
);
- ok(github_deprecated($tzil), "Auto github remote dzil with github_http log message");
+ ok( github_deprecated($tzil),
+ "Auto github remote dzil with github_http log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['git_remote = dzil'], '.git');
+ my $tzil = build_tzil( ['git_remote = dzil'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -287,12 +287,13 @@ sub remote_not_found {
},
"Auto github remote dzil no http"
);
- ok(!github_deprecated($tzil), "Auto github remote dzil no http log message");
+ ok( !github_deprecated($tzil),
+ "Auto github remote dzil no http log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['git_remote = gitlab'], '.git');
+ my $tzil = build_tzil( ['git_remote = gitlab'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -303,12 +304,12 @@ sub remote_not_found {
},
"Auto gitlab"
);
- ok(!github_deprecated($tzil), "Auto gitlab log message");
+ ok( !github_deprecated($tzil), "Auto gitlab log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['git_remote = bitbucket'], '.git');
+ my $tzil = build_tzil( ['git_remote = bitbucket'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -319,12 +320,12 @@ sub remote_not_found {
},
"Auto bitbucket"
);
- ok(!github_deprecated($tzil), "Auto bitbucket log message");
+ ok( !github_deprecated($tzil), "Auto bitbucket log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil([], '.svn');
+ my $tzil = build_tzil( [], '.svn' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -334,14 +335,14 @@ sub remote_not_found {
},
"Auto svn"
);
- ok(!github_deprecated($tzil), "Auto svn log message");
+ ok( !github_deprecated($tzil), "Auto svn log message" );
}
#---------------------------------------------------------------------
{
my $web = 'http://example.com';
- my $tzil = build_tzil(["web = $web"], '.svn');
+ my $tzil = build_tzil( ["web = $web"], '.svn' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -352,12 +353,12 @@ sub remote_not_found {
},
"Auto svn with web"
);
- ok(!github_deprecated($tzil), "Auto svn with web log message");
+ ok( !github_deprecated($tzil), "Auto svn with web log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil([], '_darcs');
+ my $tzil = build_tzil( [], '_darcs' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -367,7 +368,8 @@ sub remote_not_found {
},
"Auto darcs from default remote"
);
- ok(!github_deprecated($tzil), "Auto darcs from default remote log message");
+ ok( !github_deprecated($tzil),
+ "Auto darcs from default remote log message" );
}
#---------------------------------------------------------------------
@@ -378,38 +380,32 @@ sub remote_not_found {
local $result{'darcs query repo'} = $result{'darcs query repo'};
$result{'darcs query repo'} =~ s!Remote: http!Remote: ssh!;
- my $tzil = build_tzil([], '_darcs/prefs/repos' => "ssh:foo\n$url\n");
+ my $tzil = build_tzil( [], '_darcs/prefs/repos' => "ssh:foo\n$url\n" );
is_deeply(
$tzil->distmeta->{resources}{repository},
- {
- type => 'darcs',
- url => $url
- },
+ { type => 'darcs', url => $url },
"Auto darcs from prefs/repos"
);
- ok(!github_deprecated($tzil), "Auto darcs from prefs/repos log message");
+ ok( !github_deprecated($tzil), "Auto darcs from prefs/repos log message" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil([], '.hg');
+ my $tzil = build_tzil( [], '.hg' );
is_deeply(
$tzil->distmeta->{resources}{repository},
- {
- type => 'hg',
- url => 'https://foobar.googlecode.com/hg/'
- },
+ { type => 'hg', url => 'https://foobar.googlecode.com/hg/' },
"Auto hg"
);
- ok(!github_deprecated($tzil), "Auto hg log message");
+ ok( !github_deprecated($tzil), "Auto hg log message" );
}
#---------------------------------------------------------------------
{
- my $web = 'http://code.google.com/p/foobar/';
- my $tzil = build_tzil(["web = $web"], '.hg');
+ my $web = 'http://code.google.com/p/foobar/';
+ my $tzil = build_tzil( ["web = $web"], '.hg' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -420,7 +416,7 @@ sub remote_not_found {
},
"Auto hg with web"
);
- ok(!github_deprecated($tzil), "Auto hg with web log message");
+ ok( !github_deprecated($tzil), "Auto hg with web log message" );
}
#---------------------------------------------------------------------
@@ -433,25 +429,25 @@ $result{'git remote show -n nourl'} = <<'END GIT NOURL';
END GIT NOURL
{
- my $tzil = build_tzil(['git_remote = nourl'], '.git');
+ my $tzil = build_tzil( ['git_remote = nourl'], '.git' );
- is($tzil->distmeta->{resources}{repository}, undef, "Auto git remote nourl");
- ok(!github_deprecated($tzil), "Auto git remote nourl log message");
+ is( $tzil->distmeta->{resources}{repository},
+ undef, "Auto git remote nourl" );
+ ok( !github_deprecated($tzil), "Auto git remote nourl log message" );
}
{
my $url = 'git://example.com/example.git';
- my $tzil = build_tzil(['git_remote = nourl', "repository = $url"], '.git');
+ my $tzil =
+ build_tzil( [ 'git_remote = nourl', "repository = $url" ], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
- {
- type => 'git',
- url => $url
- },
+ { type => 'git', url => $url },
"Auto git remote nourl with repository"
);
- ok(!github_deprecated($tzil), "Auto git remote nourl with repository log message");
+ ok( !github_deprecated($tzil),
+ "Auto git remote nourl with repository log message" );
}
#---------------------------------------------------------------------
@@ -464,15 +460,17 @@ $result{'git remote show -n github'} = <<'END GITHUB REMOTE NOT FOUND';
END GITHUB REMOTE NOT FOUND
{
- my $tzil = build_tzil(['git_remote = github'], '.git');
+ my $tzil = build_tzil( ['git_remote = github'], '.git' );
- is($tzil->distmeta->{resources}{repository}, undef, "Auto git remote github not found");
- ok(remote_not_found($tzil), "Auto git remote github not found");
+ is( $tzil->distmeta->{resources}{repository},
+ undef, "Auto git remote github not found" );
+ ok( remote_not_found($tzil), "Auto git remote github not found" );
}
#---------------------------------------------------------------------
{
- my $tzil = build_tzil(['repository = git@gitlab.com:foo/bar.git'], '.git');
+ my $tzil =
+ build_tzil( ['repository = git@gitlab.com:foo/bar.git'], '.git' );
is_deeply(
$tzil->distmeta->{resources}{repository},
@@ -483,7 +481,7 @@ END GITHUB REMOTE NOT FOUND
},
"Auto gitlab"
);
- ok(!github_deprecated($tzil), "Auto gitlab log message");
+ ok( !github_deprecated($tzil), "Auto gitlab log message" );
}
done_testing;
diff --git a/t/author-pod-coverage.t b/t/author-pod-coverage.t
index e88bed7..f387c29 100644
--- a/t/author-pod-coverage.t
+++ b/t/author-pod-coverage.t
@@ -1,15 +1,16 @@
#!perl
BEGIN {
- unless ($ENV{AUTHOR_TESTING}) {
+ unless ( $ENV{AUTHOR_TESTING} ) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit;
}
}
# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
-
+use strict;
+use warnings;
use Test::Pod::Coverage 1.08;
use Pod::Coverage::TrustPod;
-all_pod_coverage_ok({coverage_class => 'Pod::Coverage::TrustPod'});
+all_pod_coverage_ok( { coverage_class => 'Pod::Coverage::TrustPod' } );
diff --git a/t/author-pod-syntax.t b/t/author-pod-syntax.t
index 3fabc89..d7ce8fc 100644
--- a/t/author-pod-syntax.t
+++ b/t/author-pod-syntax.t
@@ -1,7 +1,7 @@
#!perl
BEGIN {
- unless ($ENV{AUTHOR_TESTING}) {
+ unless ( $ENV{AUTHOR_TESTING} ) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit;
}
diff --git a/t/corpus/DZT/lib/DZT/Sample.pm b/t/corpus/DZT/lib/DZT/Sample.pm
index 46094bc..e4d1bbf 100644
--- a/t/corpus/DZT/lib/DZT/Sample.pm
+++ b/t/corpus/DZT/lib/DZT/Sample.pm
@@ -1,4 +1,5 @@
package DZT::Sample;
+
# ABSTRACT: Sample DZ Dist
use strict;
Debdiff
File lists identical (after any substitutions)
No differences were encountered in the control files