+=item write
+
+writes a record
+
+=cut
+
+sub write {
+ my $self = shift;
+
+ my @records = @_;
+ if (not defined ref($_[0])) {
+ @records = [@records];
+ }
+ for my $record (@records) {
+ if (not isa($record,'Debbugs::Log::Record')) {
+ if (ref($record) ne 'ARRAY') {
+ croak("Debbugs::Log->write must be passed either a Debbugs::Log::Record or an ARRAYREF");
+ }
+ $record = Debbugs::Log::Record->new(@{$record});
+ }
+
+ }
+}
+