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
|
NAME
String::Copyright - Representation of text-based copyright statements
VERSION
Version 0.003005
SYNOPSIS
use String::Copyright;
my $copyright = copyright(<<'END');
copr. © 1999,2000 Foo Barbaz <fb@acme.corp> and Acme Corp.
Copyright (c) 2001,2004 Foo (work address) <foo@zorg.corp>
Copyright 2003, Foo B. and friends
© 2000, 2002 Foo Barbaz <foo@bar.baz>
END
print $copyright;
# Copyright 1999-2000 Foo Barbaz <fb@acme.com> and Acme Corp.
# Copyright 2000, 2002 Foo Barbaz and Acme Corp.
# Copyright 2001, 2004 Foo (work address) <foo@zorg.org>
# Copyright 2003 Foo B. and friends
DESCRIPTION
String::Copyright Parses common styles of copyright statements and
serializes in normalized format.
OPTIONS
Options can be set as an argument to the 'use' statement.
threshold, threshold_before, threshold_after
use String::Copyright { threshold_after => 5 };
Stop parsing after this many lines whithout copyright information, before
or after having found any copyright information at all. `threshold` sets
both `threshold_before` and `threshold_after`.
By default unset: All lines are parsed.
format( \&sub )
use String::Copyright { format => \&NGU_style } };
sub GNU_style {
my ( $years, $owners ) = @_;
return 'Copyright (C) ' . join ' ', $years || '', $owners || '';
}
FUNCTIONS
Exports one function: `copyright`. This module uses Exporter::Tiny to
export functions, which allows for flexible import options; see the
Exporter::Tiny documentation for details.
SEE ALSO
* Encode
* Exporter::Tiny
BUGS/CAVEATS/etc
String::Copyright operates on strings, not bytes. Data encoded as UTF-8,
Latin1 or other formats need to be decoded to strings before use.
Only ASCII characters and © (copyright sign) are directly processed.
If copyright sign is mis-detected or accents or multi-byte characters
display wrong, then most likely the data was not decoded into a string.
If ranges or lists of years are not tidied, then maybe it contained
non-ASCII whitespace or digits.
AUTHOR
Jonas Smedegaard `<dr@jones.dk>`
COPYRIGHT AND LICENSE
Derived from App::Licensecheck originally part of the KDE SDK, originally
introduced by Stefan Westerfeld `<stefan@space.twc.de>`; and on the script
licensecheck2dep5 part of Debian CDBS tool, written by Jonas Smedegaard.
Copyright © 2007, 2008 Adam D. Barratt
Copyright © 2005-2012, 2016 Jonas Smedegaard
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License along
with this program. If not, see <https://www.gnu.org/licenses/>.
|
