File: Files.pm

package info (click to toggle)
libdebian-copyright-perl 0.2-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 264 kB
  • sloc: perl: 282; makefile: 2
file content (96 lines) | stat: -rw-r--r-- 2,096 bytes parent folder | download | duplicates (3)
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
=head1 NAME

Debian::Copyright::Stanza::Files - Files stanza of Debian copyright file

=head1 VERSION

This document describes Debian::Copyright::Stanza::Files version 0.2 .

=head1 SYNOPSIS

    my $copy = Debian::Copyright::Stanza::Files->new(\%data);
    print $copy;                         # auto-stringification

=head1 DESCRIPTION

Debian::Copyright::Stanza::Files can be used for representation and
manipulation of a C<Files:> stanza of Debian copyright files in an
object-oriented way. Converts itself to a textual representation in string
context.

=head1 FIELDS

The supported fields for Files stanzas are listed below.

Note that real copyright fields may contain dashes in their names. These are
replaced with underscores.

=over

=item Files

=item License

=item Copyright

=item Comment

=back

=cut

package Debian::Copyright::Stanza::Files;
require v5.10.1;
use strict;
use warnings;
use base qw(Debian::Copyright::Stanza);
use constant fields => qw (
    Files Copyright License Comment
);

our $VERSION = '0.2';

=head1 CONSTRUCTOR

=head2 new( { field => value, ... } )

Creates a new L<Debian::Copyright::Stanza::Files> object and optionally
initialises it with the supplied data.

=head1 METHODS

=head2 is_or_separated($field)

Returns true for the C<License> field.

=cut

sub is_or_separated {
    my( $self, $field ) = @_;
    return $field eq 'License';
}


=head1 SEE ALSO

Debian::Copyright::Stanza::Files inherits most of its functionality from
L<Debian::Copyright::Stanza>

=head1 COPYRIGHT & LICENSE

Copyright (C) 2011-12 Nicholas Bamber L<nicholas@periapt.co.uk>

This module is substantially based upon L<Debian::Control::Stanza::Source>.
Copyright (C) 2009 Damyan Ivanov L<dmn@debian.org>

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License version 2 as published by the Free
Software Foundation.

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.

=cut

1;