use strict;
use warnings;
package Software::License::Perl_5;
$Software::License::Perl_5::VERSION = '0.103013';
use parent 'Software::License';
# ABSTRACT: The Perl 5 License (Artistic 1 & GPL 1)
require Software::License::GPL_1;
require Software::License::Artistic_1_0;
sub name { 'the same terms as the perl 5 programming language system itself' }
sub url { 'http://dev.perl.org/licenses/' }
sub meta_name { 'perl' }
sub meta2_name { 'perl_5' }
sub _gpl {
my ($self) = @_;
return $self->{_gpl} ||= Software::License::GPL_1->new({
year => $self->year,
holder => $self->holder,
});
}
sub _tal {
my ($self) = @_;
return $self->{_tal} ||= Software::License::Artistic_1_0->new({
year => $self->year,
holder => $self->holder,
});
}
1;
=pod
=encoding UTF-8
=head1 NAME
Software::License::Perl_5 - The Perl 5 License (Artistic 1 & GPL 1)
=head1 VERSION
version 0.103013
=head1 AUTHOR
Ricardo Signes <[email protected]>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Ricardo Signes.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
__NOTICE__
This software is copyright (c) {{$self->year}} by {{$self->_dotless_holder}}.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
__LICENSE__
Terms of the Perl programming language system itself
a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or
b) the "Artistic License"
--- {{ $self->_gpl->name }} ---
{{$self->_gpl->fulltext}}
--- {{ $self->_tal->name }} ---
{{$self->_tal->fulltext}}
