$part_export_option ? $part_export_option->optionvalue : '';
}
-=item rebless
+=item _rebless
Reblesses the object into the FS::part_export::EXPORTTYPE class, where
EXPORTTYPE is the object's I<exporttype> field. There should be better docs
-on how to create new exports (and they should live in their own files and be
-autoloaded-on-demand), but until then, see L</NEW EXPORT CLASSES>.
+on how to create new exports, but until then, see L</NEW EXPORT CLASSES>.
=cut
-sub rebless {
+sub _rebless {
my $self = shift;
my $exporttype = $self->exporttype;
my $class = ref($self). "::$exporttype";
eval "use $class;";
- die $@ if $@;
- bless($self, $class);
+ #die $@ if $@;
+ bless($self, $class) unless $@;
+ $self;
}
+#these should probably all go away, just let the subclasses define em
+
=item export_insert SVC_OBJECT
=cut
sub export_insert {
my $self = shift;
- $self->rebless;
+ #$self->rebless;
$self->_export_insert(@_);
}
sub export_replace {
my $self = shift;
- $self->rebless;
+ #$self->rebless;
$self->_export_replace(@_);
}
sub export_delete {
my $self = shift;
- $self->rebless;
+ #$self->rebless;
$self->_export_delete(@_);
}
sub export_suspend {
my $self = shift;
- $self->rebless;
+ #$self->rebless;
$self->_export_suspend(@_);
}
sub export_unsuspend {
my $self = shift;
- $self->rebless;
+ #$self->rebless;
$self->_export_unsuspend(@_);
}