package VCP::FilesDB; =head1 NAME VCP::FilesDB - Persistant storage for path -> state =head1 SYNOPSIS use base qw( VCP::FilesDB ); =head1 DESCRIPTION VCP::Dest::cvs needs to record what it's seen for each file as its seen it so that it can decide whether a file is new or not. =for test_script t/01revmapdb.t =cut $VERSION = 1 ; @ISA = qw( VCP::DB ); use strict ; use VCP::DB; #use base "VCP::DB"; sub new { shift->SUPER::new( TableName => "dest_files", @_ ); } =head1 AUTHOR Barrie Slaymaker =head1 COPYRIGHT Copyright (c) 2000, 2001, 2002 Perforce Software, Inc. All rights reserved. See L (C) for the terms of use. =cut 1