File Coverage

examples/lib/DSCS/Memory/Users.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	11	45.4
pod	6	6	100.0
total	26	38	68.4

package DSCS::Memory::Users; #A table/row class
use 5.010001;
use strict;
use warnings;
use utf8;
use parent qw(DSCS::Memory);

sub is_base_class{return 0}
my $TABLE_NAME = 'users';

sub TABLE {return $TABLE_NAME}
sub PRIMARY_KEY{return 'id'}
my $COLUMNS = [
             'id',
             'group_id',
             'login_name',
             'login_password',
             'name',
             'email',
             'disabled',
             'balance',
             'dummy_dec',
             'nullable_column'
           ];

sub COLUMNS {return $COLUMNS}
my $ALIASES = {};

sub ALIASES {return $ALIASES}
my $CHECKS = {
            'id' => {
                      'allow' => qr/^-?\d{1,}$/x
                    },
            'email' => {
                         'defined' => 1,
                         'required' => 1,
                         'default' => '[e-mail]',
                         'allow' => sub { "DUMMY" }
                       },
            'group_id' => {
                            'allow' => qr/^-?\d{1,11}$/x,
                            'required' => 1,
                            'defined' => 1
                          },
            'disabled' => {
                            'allow' => qr/^-?\d{1,1}$/x,
                            'defined' => 1,
                            'required' => 1,
                            'default' => '0'
                          },
            'name' => {
                        'allow' => sub { "DUMMY" },
                        'default' => '',
                        'defined' => 1,
                        'required' => 1
                      },
            'dummy_dec' => {
                             'required' => 1,
                             'defined' => 1,
                             'default' => '0',
                             'allow' => qr/^-?\d{1,8}(?:\.\d{0,0})?$/x
                           },
            'nullable_column' => {
                                   'allow' => sub { "DUMMY" }
                                 },
            'login_name' => {
                              'defined' => 1,
                              'required' => 1,
                              'allow' => sub { "DUMMY" }
                            },
            'balance' => {
                           'required' => 1,
                           'defined' => 1,
                           'default' => '0.00',
                           'allow' => qr/^-?\d{1,6}(?:\.\d{0,2})?$/x
                         },
            'login_password' => {
                                  'defined' => 1,
                                  'required' => 1,
                                  'allow' => sub { "DUMMY" }
                                }
          };

sub CHECKS {return $CHECKS}

__PACKAGE__->QUOTE_IDENTIFIERS(0);
#__PACKAGE__->BUILD;#build accessors during load

1;

=pod

=encoding utf8

=head1 NAME

A class for TABLE users in schema main

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 COLUMNS

Each column from table C has an accessor method in this class.

=head2 id

=head2 group_id

=head2 login_name

=head2 login_password

=head2 name

=head2 email

=head2 disabled

=head2 balance

=head2 dummy_dec

=head2 nullable_column

=head1 ALIASES

=head1 GENERATOR

L

=head1 SEE ALSO
L, L, L

=head1 AUTHOR



=cut