Gantry::Control::Model::GEN::auth_groups - model for auth_groups table


Gantry documentation Contained in the Gantry distribution.

Index


Code Index:

NAME

Top

Gantry::Control::Model::GEN::auth_groups - model for auth_groups table

METHODS

Top

description
foreign_display
get_description
get_essential_cols
get_foreign_display_fields
get_foreign_tables
get_id
get_ident
get_name
get_primary_col
get_primary_key
get_sequence_name
get_table_name
id
ident
name
quote_description
quote_id
quote_ident
quote_name
set_description
set_id
set_ident
set_name

AUTHOR

Top

Generated by Bigtop, please don't edit.


Gantry documentation Contained in the Gantry distribution.

# NEVER EDIT this file.  It was generated and will be overwritten without
# notice upon regeneration of this application.  You have been warned.
package Gantry::Control::Model::GEN::auth_groups;
use strict; use warnings;

use base 'Gantry::Utils::Model::Auth';

use Carp;

sub get_table_name    { return 'auth_groups'; }

sub get_primary_col   { return 'id'; }

sub get_essential_cols {
    return 'id, name, description, ident';
}

sub get_primary_key {
    goto &id;
}

sub id {
    my $self  = shift;
    my $value = shift;

    if ( defined $value ) {
        return $self->set_id( $value );
    }

    return $self->get_id();
}

sub set_id {
    croak 'Can\'t change primary key of row';
}

sub get_id {
    my $self = shift;
    return $self->{id};
}

sub quote_id {
    return $_[1];
}

sub description {
    my $self  = shift;
    my $value = shift;

    if ( defined $value ) { return $self->set_description( $value ); }
    else                  { return $self->get_description();         }
}

sub set_description {
    my $self  = shift;
    my $value = shift;

    $self->{description} = $value;
    $self->{__DIRTY__}{description}++;

    return $value;
}

sub get_description {
    my $self = shift;

    return $self->{description};
}

sub quote_description {
    return ( defined $_[1] ) ? "'$_[1]'" : 'NULL';
}

sub ident {
    my $self  = shift;
    my $value = shift;

    if ( defined $value ) { return $self->set_ident( $value ); }
    else                  { return $self->get_ident();         }
}

sub set_ident {
    my $self  = shift;
    my $value = shift;

    $self->{ident} = $value;
    $self->{__DIRTY__}{ident}++;

    return $value;
}

sub get_ident {
    my $self = shift;

    return $self->{ident};
}

sub quote_ident {
    return ( defined $_[1] ) ? "'$_[1]'" : 'NULL';
}

sub name {
    my $self  = shift;
    my $value = shift;

    if ( defined $value ) { return $self->set_name( $value ); }
    else                  { return $self->get_name();         }
}

sub set_name {
    my $self  = shift;
    my $value = shift;

    $self->{name} = $value;
    $self->{__DIRTY__}{name}++;

    return $value;
}

sub get_name {
    my $self = shift;

    return $self->{name};
}

sub quote_name {
    return ( defined $_[1] ) ? "'$_[1]'" : 'NULL';
}

sub get_foreign_display_fields {
    return [ qw(  ) ];
}

sub get_foreign_tables {
    return qw(
    );
}

sub foreign_display {
    my $self = shift;

}

1;