File Coverage

blib/lib/Gantry/Control/Model/GEN/auth_group_members.pm

Criterion	Covered	Total	%
statement	12	80	15.0
branch	0	34	0.0
condition			n/a
subroutine	4	25	16.0
pod	21	21	100.0
total	37	160	23.1

# 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_group_members;
use strict; use warnings;

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

use Carp;

sub get_table_name    { return 'auth_group_members'; }

sub get_primary_col   { return 'id'; }

sub get_essential_cols {
    return 'id, user_id, group_id';
}

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 group_id {
    my $self  = shift;
    my $value = shift;

    if ( defined $value ) { return $self->set_group_id( $value ); }
    else                  { return $self->get_group_id();         }
}

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

    if ( ref $value ) {
        $self->{group_id_REF} = $value;
        $self->{group_id}     = $value->id;
    }
    elsif ( defined $value ) {
        delete $self->{group_id_REF};
        $self->{group_id}     = $value;
    }
    else {
        croak 'set_group_id requires a value';
    }

    $self->{__DIRTY__}{group_id}++;

    return $value;
}

sub get_group_id {
    my $self = shift;

    if ( not defined $self->{group_id_REF} ) {
        $self->{group_id_REF}
            = Gantry::Control::Model::auth_groups->retrieve_by_pk(
                    $self->{group_id}
              );

        $self->{group_id}     = $self->{group_id_REF}->get_primary_key()
                if ( defined $self->{group_id_REF} );
    }

    return $self->{group_id_REF};
}

sub get_group_id_raw {
    my $self = shift;

    if ( @_ ) {
        croak 'get_group_id_raw is only a get accessor, pass it nothing';
    }

    return $self->{group_id};
}

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

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

    if ( defined $value ) { return $self->set_user_id( $value ); }
    else                  { return $self->get_user_id();         }
}

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

    if ( ref $value ) {
        $self->{user_id_REF} = $value;
        $self->{user_id}     = $value->id;
    }
    elsif ( defined $value ) {
        delete $self->{user_id_REF};
        $self->{user_id}     = $value;
    }
    else {
        croak 'set_user_id requires a value';
    }

    $self->{__DIRTY__}{user_id}++;

    return $value;
}

sub get_user_id {
    my $self = shift;

    if ( not defined $self->{user_id_REF} ) {
        $self->{user_id_REF}
            = Gantry::Control::Model::auth_users->retrieve_by_pk(
                    $self->{user_id}
              );

        $self->{user_id}     = $self->{user_id_REF}->get_primary_key()
                if ( defined $self->{user_id_REF} );
    }

    return $self->{user_id_REF};
}

sub get_user_id_raw {
    my $self = shift;

    if ( @_ ) {
        croak 'get_user_id_raw is only a get accessor, pass it nothing';
    }

    return $self->{user_id};
}

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

sub get_foreign_display_fields {
    return [ qw(  ) ];
}

sub get_foreign_tables {
    return qw(
        Gantry::Control::Model::auth_users
        Gantry::Control::Model::auth_groups
    );
}

sub foreign_display {
    my $self = shift;

}

1;

=head1 NAME

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

=head1 METHODS

=over 4

=item foreign_display

=item get_essential_cols

=item get_foreign_display_fields

=item get_foreign_tables

=item get_group_id

=item get_group_id_raw

=item get_id

=item get_primary_col

=item get_primary_key

=item get_sequence_name

=item get_table_name

=item get_user_id

=item get_user_id_raw

=item group_id

=item id

=item quote_group_id

=item quote_id

=item quote_user_id

=item set_group_id

=item set_id

=item set_user_id

=item user_id

=back

=head1 AUTHOR

Generated by Bigtop, please don't edit.

=cut