File Coverage

blib/lib/LCC/Backend.pm

Criterion	Covered	Total	%
statement	3	15	20.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	1	7	14.2
pod	2	2	100.0
total	6	30	20.0

package LCC::Backend;

# Make sure we do everything by the book
# Set modules to inherit from
# Set version information

use strict;
@LCC::Backend::ISA = qw(LCC);
$LCC::Backend::VERSION = '0.02';

# Return true value for use

1;

#------------------------------------------------------------------------

# The following methods are class methods

#------------------------------------------------------------------------

#  IN: 1 class of object
#      2 instantiated LCC object
#      3 source specification
#      4 method => value pairs to be executed
# OUT: 1 instantiated LCC::Backend::xxx object

sub _new {

# Obtain the class
# Obtain the LCC object
# Obtain the source (a ref to a database handle, table name list)
# Create the object in the right way

  my $class = shift;
  my $lcc = shift;
  my $source = shift;
  my $self = $class->SUPER::_new( $lcc,@_ );

# Save the source specification
# Return the object

  $self->{'source'} = $source;
  return $self;
} #_new

#------------------------------------------------------------------------

# The following methods change the object

#------------------------------------------------------------------------

#  IN: 1 instantiated object
#      2 (optional) new value of auto_update flag
# OUT: 1 current/old value of auto_update flag

sub auto_update { shift->_variable( 'auto_update',@_ ) } #auto_update

#------------------------------------------------------------------------

#  IN: 1 instantiated object

sub complete { shift->{'old'} = {} } #complete

#------------------------------------------------------------------------

# The following subroutines deal with standard Perl features

#------------------------------------------------------------------------

#  IN: 1 instantiated object

sub DESTROY { shift->update if $_[0]->auto_update } #DESTROY

#------------------------------------------------------------------------

# The following subroutines are for internal use only

#------------------------------------------------------------------------

# OUT: 1..N names of additional fields that should be saved

sub _additional_fields { qw(fullset) } #_additional_fields

#------------------------------------------------------------------------

#  IN: 1 instantiated object

sub _check_uns_complete {

# Obtain the object
# Make it a complete fetch if so required last time by the UNS

  my $self = shift;
  $self->complete if $self->{'fullset'} || '';
} #_check_uns_complete

#------------------------------------------------------------------------

__END__