Commit | Line | Data |
---|---|---|
1479465f GJ |
1 | # Copyright © 2016 Guillem Jover <guillem@debian.org> |
2 | # | |
3 | # This program is free software; you can redistribute it and/or modify | |
4 | # it under the terms of the GNU General Public License as published by | |
5 | # the Free Software Foundation; either version 2 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program. If not, see <https://www.gnu.org/licenses/>. | |
15 | ||
16 | package Dpkg::Control::Tests; | |
17 | ||
18 | use strict; | |
19 | use warnings; | |
20 | ||
21 | our $VERSION = '1.00'; | |
22 | ||
23 | use Dpkg::Control; | |
24 | use Dpkg::Control::Tests::Entry; | |
25 | use Dpkg::Index; | |
26 | ||
27 | use parent qw(Dpkg::Index); | |
28 | ||
29 | =encoding utf8 | |
30 | ||
31 | =head1 NAME | |
32 | ||
33 | Dpkg::Control::Tests - parse files like debian/tests/control | |
34 | ||
35 | =head1 DESCRIPTION | |
36 | ||
37 | It provides an object to access data of files that follow the same | |
38 | syntax as F<debian/tests/control>. | |
39 | ||
40 | =head1 METHODS | |
41 | ||
42 | All the methods of Dpkg::Index are available. Those listed below are either | |
43 | new or overridden with a different behavior. | |
44 | ||
45 | =over 4 | |
46 | ||
47 | =item $c = Dpkg::Control::Tests->new(%opts) | |
48 | ||
49 | Create a new Dpkg::Control::Tests object, which inherits from Dpkg::Index. | |
50 | ||
51 | =cut | |
52 | ||
53 | sub new { | |
54 | my ($this, %opts) = @_; | |
55 | my $class = ref($this) || $this; | |
56 | my $self = Dpkg::Index->new(type => CTRL_TESTS, %opts); | |
57 | ||
58 | return bless $self, $class; | |
59 | } | |
60 | ||
61 | =item $item = $tests->new_item() | |
62 | ||
63 | Creates a new item. | |
64 | ||
65 | =cut | |
66 | ||
67 | sub new_item { | |
68 | my $self = shift; | |
69 | ||
70 | return Dpkg::Control::Tests::Entry->new(); | |
71 | } | |
72 | ||
73 | =back | |
74 | ||
75 | =head1 CHANGES | |
76 | ||
77 | =head2 Version 1.00 (dpkg 1.18.8) | |
78 | ||
79 | Mark the module as public. | |
80 | ||
81 | =cut | |
82 | ||
83 | 1; |