File Coverage

File:Dpkg/Vars.pm
Coverage:95.1%

linestmtbrancondsubpodtimecode
1# Copyright © 2007-2009,2012-2013 Guillem Jover <guillem@debian.org>
2# Copyright © 2007 Raphaël Hertzog <hertzog@debian.org>
3#
4# This program is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 2 of the License, or
7# (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12# GNU General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program.  If not, see <https://www.gnu.org/licenses/>.
16
17package Dpkg::Vars;
18
19
1
1
1
1
2
2
11
use strict;
20
1
1
1
1
1
1
30
use warnings;
21
22our $VERSION = '0.03';
23our @EXPORT = qw(
24    get_source_package
25    set_source_package
26);
27
28
1
1
1
1
2
0
14
use Exporter qw(import);
29
30
1
1
1
1
111
1
30
use Dpkg::ErrorHandling;
31
1
1
1
1
2
1
21
use Dpkg::Gettext;
32
1
1
1
1
117
1
66
use Dpkg::Package;
33
34my $sourcepackage;
35
36sub get_source_package {
37
3
3
0
4
    return $sourcepackage;
38}
39
40sub set_source_package {
41
4
4
0
3
    my $v = shift;
42
4
5
    my $err = pkg_name_is_illegal($v);
43
4
100
4
    error(g_("source package name '%s' is illegal: %s"), $v, $err) if $err;
44
45
3
100
100
3
    if (not defined($sourcepackage)) {
46
1
1
        $sourcepackage = $v;
47    } elsif ($v ne $sourcepackage) {
48
1
2
        error(g_('source package has two conflicting values - %s and %s'),
49              $sourcepackage, $v);
50    }
51}
52
531;