SL/DB/CustomVariable.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::CustomVariable;
   5
   6 use strict;
   7
   8 use SL::DB::MetaSetup::CustomVariable;
   9
  10 __PACKAGE__->meta->initialize;
  11
  12 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
  13 __PACKAGE__->meta->make_manager_class;
  14
  15 sub value {
  16   my $self = $_[0];
  17   my $type = $self->config->type;
  18
  19   goto &bool_value      if $type eq 'boolean';
  20   goto &timestamp_value if $type eq 'timestamp';
  21   goto &number_value    if $type eq 'number';
  22   goto &text_value; # text and select
  23 }
  24
  25 1;