SL/X.pm

   1 package SL::X;
   2
   3 use strict;
   4 use warnings;
   5
   6 use SL::X::Base;
   7
   8 use Exception::Class (
   9   'SL::X::FormError'    => {
  10     isa                 => 'SL::X::Base',
  11   },
  12   'SL::X::DBError'      => {
  13     isa                 => 'SL::X::Base',
  14     fields              => [ qw(msg db_error) ],
  15     defaults            => { error_template => [ '%s: %s', qw(msg db_error) ] },
  16   },
  17   'SL::X::DBHookError'  => {
  18     isa                 => 'SL::X::DBError',
  19     fields              => [ qw(when hook object object_type) ],
  20     defaults            => { error_template => [ '%s hook \'%s\' for object type \'%s\' failed', qw(when hook object_type object) ] },
  21   },
  22   'SL::X::DBRoseError'  => {
  23     isa                 => 'SL::X::DBError',
  24     fields              => [ qw(class metaobject object) ],
  25     defaults            => { error_template => [ '\'%s\' in object of type \'%s\' occured', qw(db_error class) ] },
  26   },
  27   'SL::X::DBUtilsError' => {
  28     isa                 => 'SL::X::DBError',
  29   },
  30 );
  31
  32 1;