#!/usr/bin/perl

$self->{texts} = {
  'Database update error:'      => 'Database update error:',
  'Number of entries changed: #1' => 'Number of entries changed: #1',
};

$self->{subs} = {
  'do_query'                    => 'do_query',
  'do_update'                   => 'do_update',
  'mydberror'                   => 'mydberror',
};

1;