autoload methods returning foreign records, RT#13971

[freeside.git] / FS / FS / vend_main.pm

diff --git a/FS/FS/vend_main.pm b/FS/FS/vend_main.pm
index ef79c00..2e5e150 100644 (file)
--- a/FS/FS/vend_main.pm
+++ b/FS/FS/vend_main.pm
@@ -1,9 +1,7 @@
 package FS::vend_main;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearchs ); # qsearch qsearchs );
-use FS::vend_class;
 
 =head1 NAME
 
@@ -103,13 +101,6 @@ sub check {
 
 =item vend_class
 
-=cut
-
-sub vend_class {
-  my $self = shift;
-  qsearchs('vend_class', { 'classnum' => $self->classnum } );
-}
-
 =back
 
 =head1 BUGS