SL/DB/ContactTitle.pm

   1 # This file has been auto-generated only because it didn't exist.
   2 # Feel free to modify it at will; it will not be overwritten automatically.
   3
   4 package SL::DB::ContactTitle;
   5
   6 use strict;
   7
   8 use SL::Util qw(trim);
   9
  10 use SL::DB::MetaSetup::ContactTitle;
  11 use SL::DB::Manager::ContactTitle;
  12
  13 __PACKAGE__->meta->initialize;
  14
  15 __PACKAGE__->before_save('_before_save_trim_content');
  16
  17 sub _before_save_trim_content {
  18   $_[0]->description(trim($_[0]->description));
  19   return 1;
  20 }
  21
  22 1;