+sub new_with_default {
+ my ($class, $type) = @_;
+
+ return $class->new(type => $type)->set_defaults;
+}
+
+sub set_defaults {
+ my ($self) = @_;
+
+ $self->_set_defaults(sep_char => ',',
+ quote_char => '"',
+ escape_char => '"',
+ charset => 'CP850',
+ numberformat => $::myconfig{numberformat},
+ dateformat => $::myconfig{dateformat},
+ duplicates => 'no_check',
+ );
+
+ return $self;
+}
+