metadb.pm #1

package VCP::Utils::metadb ;

=head1 NAME

VCP::Utils::metadb - utilities for dealing with metadbs 

=head1 SYNOPSIS

   use VCP::Utils::metadb;

=head1 DESCRIPTION

A mix-in class providing methods shared by VCP::Source::metadb and
VCP::Dest::metadb.

=cut

use strict ;

use VCP::DB_File::big_records;

=head1 METHODS

=over

=item meta_db

Returns a reference to the 
Creates an empty one if need be.

=cut

sub meta_db {
   my $self = shift ;
   
   return $self->{META_DB} ||= do {
      $self->{META_DB} = VCP::DB_File::big_records->new( 
         StoreLoc => $self->_db_store_location,
         TableName => "revs",
      );
   };
}


=back


=head1 COPYRIGHT

Copyright 2000, Perforce Software, Inc.  All Rights Reserved.

This module and the VCP package are licensed according to the terms given in
the file LICENSE accompanying this distribution, a copy of which is included in
L<vcp>.

=cut

1;