/usr/share/lintian/lib/Lintian/DepMap/Properties.pm is in lintian 2.5.6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | # Copyright (C) 2009 Raphael Geissert <atomo64@gmail.com>
#
# 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::DepMap::Properties;
use strict;
use warnings;
use base 'Lintian::DepMap';
=head1 NAME
Lintian::DepMap::Properties - Dependencies with properties map/tree creator
=head1 SYNOPSIS
use Lintian::DepMap::Properties;
my $map = Lintian::DepMap::Properties->new();
=head1 DESCRIPTION
Lintian::DepMap::Properties is a simple layer between Lintian::DepMap and the
application allowing nodes to have application-defined properties.
=over 4
=item new()
Creates a new Lintian::DepMap::Properties object and returns a reference to it.
=cut
sub new {
my ($class, $pkg) = @_;
my $self = {};
bless($self, $class);
return $self;
}
=item add(node, [dependencies], [ref to property])
Adds a node with possibly one or more dependencies and sets the C<node>'s
property to the ref, if defined. The property must be a reference (it
can be to a hash, an array, a function, an object, etc) and must be the
last argument given to the method.
E.g.
$map->add('foo', {name => 'John Doe', age => 20});
=cut
#'
sub add {
my $self = shift;
my $ref = pop;
if (not defined $ref) {
# do nothing if not defined
} elsif (not ref($ref)) {
push @_, $ref;
} else {
$self->{'properties'}->{$_[0]} = $ref;
}
return $self->SUPER::add(@_);
}
=item addp(node[, prefix, dependency[, dependency...]], [ref to property])
Adds the given C<node> to the map marking any third or more parameters,
after prefixing them with C<prefix>, as its dependencies and sets the
C<node>'s property to the ref, if defined. See add()'s description for
more information about about properties. E.g.
# pA and pB have no dependency:
$map->addp('pA', {name => 'John Doe'});
$map->addp('pB', {name => 'Jane Doe'});
# Df depends on pA and pB:
$map->addp('Df', 'p', 'A', 'B', {name => 'Doe Family'});
=cut
sub addp {
my $self = shift;
my $ref = pop;
if (not defined $ref) {
# do nothing if not defined
} elsif (not ref($ref)) {
push @_, $ref;
} else {
$self->{'properties'}->{$_[0]} = $ref;
}
return $self->SUPER::addp(@_);
}
=item getProp(node)
Returns the reference to the given C<node>'s properties.
E.g.
# prints John Doe
print $map->getProp('foo')->{'name'};
# changes the value of 'name'
$map->getProp('foo')->{'name'} = 'Jane Doe';
# prints Jane Doe
print $map->getProp('foo')->{'name'};
=cut
#'
sub getProp {
my $self = shift;
my $node = shift;
return $self->{'properties'}->{$node};
}
1;
__END__
=back
=head1 AUTHOR
Originally written by Raphael Geissert <atomo64@gmail.com> for Lintian.
=cut
# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et
|