File Coverage

blib/lib/ExtUtils/ModuleMaker/Licenses/Local.pm
Criterion Covered Total %
statement 24 24 100.0
branch 3 4 75.0
condition 1 3 33.3
subroutine 8 8 100.0
pod 3 4 75.0
total 39 43 90.7


line stmt bran cond sub pod time code
1             package ExtUtils::ModuleMaker::Licenses::Local;
2 18     18   131 use strict;
  18         38  
  18         548  
3 18     18   98 use warnings;
  18         43  
  18         660  
4              
5             BEGIN {
6 18     18   106 use base qw(Exporter);
  18         51  
  18         2434  
7 18     18   70 our $VERSION = "0.62";
8 18         4769 our @EXPORT_OK = qw(Get_Local_License Verify_Local_License);
9             }
10              
11             my %licenses = (
12             looselips => {
13             function => \&License_LooseLips,
14             fullname => 'Loose Lips License (1.0)',
15             },
16             );
17              
18             sub Get_Local_License {
19 90     90 1 195 my $choice = shift;
20              
21 90         184 $choice = lc ($choice);
22 90 100       281 return ($licenses{$choice}{function}) if (exists $licenses{$choice});
23 88         452 return;
24             }
25              
26             sub Verify_Local_License {
27 99     99 1 237 my $choice = shift;
28 99         847 return (exists $licenses{lc ($choice)});
29             }
30              
31             sub interact {
32 1     1 0 728 my $class = shift;
33             return (bless (
34 1   33     6 { map { ($licenses{$_}{fullname})
35             ? ($_ => $licenses{$_}{fullname})
36 1 50       16 : ()
37             } keys (%licenses)
38             }, ref ($class) || $class)
39             );
40             }
41              
42             sub License_LooseLips {
43 2     2 1 3 my %license;
44              
45 2         7 $license{COPYRIGHT} = <
46             This program is licensed under the...
47              
48             Loose Lips License
49              
50             The full text of the license can be found in the
51             LICENSE file included with this module.
52             EOFCOPYRIGHT
53              
54 2         5 $license{LICENSETEXT} = <
55             Loose Lips License
56             Version 1.0
57              
58             Copyright (c) ###year### ###organization###. All rights reserved.
59              
60             This software is the intellectual property of ###organization###. Its
61             contents are a trade secret and are not to be shared with anyone outside
62             the organization.
63              
64             Remember, "Loose lips sink ships."
65             EOFLICENSETEXT
66              
67 2         7 return (\%license);
68             }
69              
70             1;
71              
72             #################### DOCUMENTATION ####################
73              
74             =head1 NAME
75              
76             ExtUtils::ModuleMaker::Licenses::Local - Templates for the module's License/Copyright
77              
78             =head1 SYNOPSIS
79              
80             use ExtUtils::ModuleMaker::Licenses::Local;
81             blah blah blah
82              
83             =head1 DESCRIPTION
84              
85             This package holds subroutines imported and used by
86             ExtUtils::ModuleMaker to include license and copyright information in a
87             standard Perl module distribution.
88              
89             =head1 USAGE
90              
91             This package always exports two functions:
92              
93             =over 4
94              
95             =item * C
96              
97             =item * C
98              
99             =back
100              
101             =head2 License_LooseLips
102              
103             Purpose : Get the copyright pod text and LICENSE file text for this license
104              
105             =head1 BUGS
106              
107             None known at this time.
108              
109             =head1 AUTHOR/MAINTAINER
110              
111             ExtUtils::ModuleMaker was originally written in 2001-02 by R. Geoffrey Avery
112             (modulemaker [at] PlatypiVentures [dot] com). Since version 0.33 (July
113             2005) it has been maintained by James E. Keenan (jkeenan [at] cpan [dot]
114             org).
115              
116             =head1 SUPPORT
117              
118             Send email to jkeenan [at] cpan [dot] org. Please include 'modulemaker'
119             in the subject line.
120              
121             =head1 COPYRIGHT
122              
123             Copyright (c) 2001-2002 R. Geoffrey Avery.
124             Revisions from v0.33 forward (c) 2005, 2018 James E. Keenan. All rights reserved.
125             This program is free software; you can redistribute
126             it and/or modify it under the same terms as Perl itself.
127              
128             The full text of the license can be found in the
129             LICENSE file included with this module.
130              
131             =head1 SEE ALSO
132              
133             F, F, perl(1).
134              
135             =cut
136