diff options
author | 2017-02-05 00:31:51 +0000 | |
---|---|---|
committer | 2017-02-05 00:31:51 +0000 | |
commit | b8851fcc53cbe24fd20b090f26dd149e353f6174 (patch) | |
tree | 4b7c1695865f00ab7a0da30b5632d514848ea3a2 /gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software | |
parent | Add option PCIVERBOSE. (diff) | |
download | wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.tar.xz wireguard-openbsd-b8851fcc53cbe24fd20b090f26dd149e353f6174.zip |
Fix merge issues, remove excess files - match perl-5.24.1 dist
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software')
-rw-r--r-- | gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software/License.pm | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software/License.pm b/gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software/License.pm deleted file mode 100644 index 6457ab60264..00000000000 --- a/gnu/usr.bin/perl/cpan/Module-Build/t/bundled/Software/License.pm +++ /dev/null @@ -1,56 +0,0 @@ -# Modified from the original as a "mock" version for testing -use strict; -use warnings; -use 5.006; # warnings -package Software::License; -our $VERSION = 9999; - -sub new { - my ($class, $arg) = @_; - - # XXX changed from Carp::croak to die - die "no copyright holder specified" unless $arg->{holder}; - - bless $arg => $class; -} - - -sub year { defined $_[0]->{year} ? $_[0]->{year} : (localtime)[5]+1900 } -sub holder { $_[0]->{holder} } - -sub version { - my ($self) = @_; - my $pkg = ref $self ? ref $self : $self; - $pkg =~ s/.+:://; - my (undef, @vparts) = split /_/, $pkg; - - return unless @vparts; - return join '.', @vparts; -} - - -# sub meta1_name { return undef; } # sort this out later, should be easy -sub meta_name { return undef; } -sub meta_yml_name { $_[0]->meta_name } - -sub meta2_name { - my ($self) = @_; - my $meta1 = $self->meta_name; - - return undef unless defined $meta1; - - return $meta1 - if $meta1 =~ /\A(?:open_source|restricted|unrestricted|unknown)\z/; - - return undef; -} - -# XXX these are trivial mocks of the real thing -sub notice { 'NOTICE' } -sub license { 'LICENSE' } -sub fulltext { 'FULLTEXT' } - -1; - - - |