package FS::part_svc;
+use base qw(FS::Record);
use strict;
-use vars qw( @ISA $DEBUG );
+use vars qw( $DEBUG );
use Tie::IxHash;
use FS::Record qw( qsearch qsearchs fields dbh );
use FS::Schema qw( dbdef );
use FS::cust_svc;
use FS::part_svc_class;
-@ISA = qw(FS::Record);
-
$DEBUG = 0;
=head1 NAME
sub part_export_did {
my $self = shift;
- grep $_->can('get_dids'), $self->part_export;
+ grep $_->can_get_dids, $self->part_export;
}
=item part_export_dsl_pull