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