blob: bd6f24664d7c2d533a228a3576f83c161abc086b (
plain)
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
|
# -*- perl -*-
# Lintian::Processable::IsNonFree -- interface to source package data collection
# Copyright (C) 2008 Russ Allbery
# Copyright (C) 2009 Raphael Geissert
# Copyright (C) 2020 Felix Lechner
#
# 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 2 of the License, 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 <http://www.gnu.org/licenses/>.
package Lintian::Processable::IsNonFree;
use v5.20;
use warnings;
use utf8;
use Moo::Role;
use namespace::clean;
=head1 NAME
Lintian::Processable::IsNonFree - Lintian interface to source package data collection
=head1 SYNOPSIS
my ($name, $type, $dir) = ('foobar', 'source', '/path/to/lab-entry');
my $collect = Lintian::Processable::IsNonFree->new($name);
if ($collect->native) {
print encode_utf8("Package is native\n");
}
=head1 DESCRIPTION
Lintian::Processable::IsNonFree provides an interface to package data for source
packages. It implements data collection methods specific to source
packages.
This module is in its infancy. Most of Lintian still reads all data from
files in the laboratory whenever that data is needed and generates that
data via collect scripts. The goal is to eventually access all data about
source packages via this module so that the module can cache data where
appropriate and possibly retire collect scripts in favor of caching that
data in memory.
=head1 INSTANCE METHODS
=over 4
=item is_non_free
Returns a truth value if the package appears to be non-free (based on
the section field; "non-free/*" and "restricted/*")
=cut
has is_non_free => (
is => 'rw',
lazy => 1,
default => sub {
my ($self) = @_;
my $section;
if ($self->type eq 'source') {
$section = $self->debian_control->source_fields->value('Section');
} else {
$section = $self->fields->value('Section');
}
$section ||= 'main';
return 1
if $section
=~ m{^(?:non-free|non-free-firmware|restricted|multiverse)/};
return 0;
}
);
=back
=head1 AUTHOR
Originally written by Russ Allbery <rra@debian.org> for Lintian.
Amended by Felix Lechner <felix.lechner@lease-up.com> for Lintian.
=head1 SEE ALSO
lintian(1)
=cut
1;
# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et
|
