File Coverage

blib/lib/Software/License/Perl_5.pm
Criterion Covered Total %
statement 17 18 94.4
branch n/a
condition 4 6 66.6
subroutine 9 10 90.0
pod 5 5 100.0
total 35 39 89.7


line stmt bran cond sub pod time code
1 11     11   8458 use strict;
  11         32  
  11         349  
2 11     11   62 use warnings;
  11         25  
  11         558  
3             package Software::License::Perl_5;
4             $Software::License::Perl_5::VERSION = '0.104001';
5 11     11   991 use parent 'Software::License';
  11         656  
  11         59  
6             # ABSTRACT: The Perl 5 License (Artistic 1 & GPL 1)
7              
8             require Software::License::GPL_1;
9             require Software::License::Artistic_1_0;
10              
11 22     22 1 57 sub name { 'the same terms as the perl 5 programming language system itself' }
12 0     0 1 0 sub url { 'http://dev.perl.org/licenses/' }
13 43     43 1 150 sub meta_name { 'perl' }
14 42     42 1 102 sub meta2_name { 'perl_5' }
15 42     42 1 122 sub spdx_expression { 'Artistic-1.0-Perl OR GPL-1.0-or-later' }
16              
17             sub _gpl {
18 4     4   1801 my ($self) = @_;
19 4   66     37 return $self->{_gpl} ||= Software::License::GPL_1->new({
20             year => $self->year,
21             holder => $self->holder,
22             });
23             }
24              
25             sub _tal {
26 4     4   10757 my ($self) = @_;
27 4   66     38 return $self->{_tal} ||= Software::License::Artistic_1_0->new({
28             year => $self->year,
29             holder => $self->holder,
30             });
31             }
32              
33             1;
34              
35             =pod
36              
37             =encoding UTF-8
38              
39             =head1 NAME
40              
41             Software::License::Perl_5 - The Perl 5 License (Artistic 1 & GPL 1)
42              
43             =head1 VERSION
44              
45             version 0.104001
46              
47             =head1 AUTHOR
48              
49             Ricardo Signes
50              
51             =head1 COPYRIGHT AND LICENSE
52              
53             This software is copyright (c) 2021 by Ricardo Signes.
54              
55             This is free software; you can redistribute it and/or modify it under
56             the same terms as the Perl 5 programming language system itself.
57              
58             =cut
59              
60             __DATA__