[SCM] Debian package checker branch, master, updated. 2.5.14-37-g59adad7
The following commit has been merged in the master branch:
commit 59adad78e77476ffd7d919619b6e188aea0d6412
Author: Niels Thykier <niels@thykier.net>
Date: Thu Jul 4 20:14:33 2013 +0200
Remove some redundant methods/code
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/lib/Lintian/Lab/Entry.pm b/lib/Lintian/Lab/Entry.pm
index ab2b364..00f6763 100644
--- a/lib/Lintian/Lab/Entry.pm
+++ b/lib/Lintian/Lab/Entry.pm
@@ -168,19 +168,6 @@ sub from_lab {
return refaddr $lab eq refaddr $self->{'lab'} ? 1 : 0;
}
-=item lab_pkg
-
-Returns the instance itself. This method is here to simplify using a
-L<Lintian::Lab::Entry> as a replacement for
-L<Lintian::Processable::Package>.
-
-=cut
-
-sub lab_pkg {
- my ($self) = @_;
- return $self;
-}
-
=item info
Returns the L<info|Lintian::Collect> object associated with this entry.
diff --git a/lib/Lintian/Processable/Package.pm b/lib/Lintian/Processable/Package.pm
index 953ecf2..cccb380 100644
--- a/lib/Lintian/Processable/Package.pm
+++ b/lib/Lintian/Processable/Package.pm
@@ -180,21 +180,6 @@ sub new {
return $self;
}
-
-=back
-
-=head1 INSTANCE METHODS
-
-=over 4
-
-=item $proc->lab_pkg([$lpkg])
-
-Returns or sets the L<$lpkg|Lintian::Lab::Entry> element for this processable.
-
-=cut
-
-Lintian::Processable::Package->mk_accessors (qw(group lab_pkg));
-
# _derive_name ($file, $ext)
#
# Derive the name from the file name
@@ -218,39 +203,6 @@ sub _ctrl_fields {
return;
}
-=item $proc->info
-
-Overrides info from L<Lintian::Processable>.
-
-=cut
-
-sub info {
- my ($self) = @_;
- my $info = $self->{info};
- if (! defined $info) {
- my $lpkg = $self->lab_pkg();
- croak "Need a Lab package before creating a Lintian::Collect\n"
- unless defined $lpkg;
- $info = $lpkg->info;
- $self->{info} = $info;
- }
- return $info;
-}
-
-=item $proc->clear_cache
-
-Overrides clear_cache from L<Lintian::Processable>.
-
-=cut
-
-sub clear_cache {
- my ($self) = @_;
- my $lpkg = $self->lab_pkg;
- $lpkg->clear_cache if defined $lpkg;
- delete $self->{info};
- return;
-}
-
=back
=head1 AUTHOR
--
Debian package checker
Reply to: