autoload methods returning foreign records, RT#13971

1 files changed, 0 insertions, 8 deletions

diff --git a/FS/FS/sales_pkg_class.pm b/FS/FS/sales_pkg_class.pm
index 90867a8..b140035 100644
--- a/FS/FS/sales_pkg_class.pm
+++ b/FS/FS/sales_pkg_class.pm
@@ -2,9 +2,6 @@ package FS::sales_pkg_class;
 use base qw( FS::Record );
 
 use strict;
-use FS::Record qw( qsearchs ); # qsearch qsearchs );
-use FS::sales;
-use FS::pkg_class;
 
 =head1 NAME
 
@@ -110,11 +107,6 @@ sub check {
   $self->SUPER::check;
 }
 
-sub pkg_class {
-  my $self = shift;
-  qsearchs('pkg_class', { 'classnum' => $self->classnum });
-}
-
 sub classname {
   my $self = shift;
   my $pkg_class = $self->pkg_class;