[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[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: