# -*- mode: perl -*-
# CVS Status      : $Id: $
# Last Modified by: $Author: griff $

# Store Link Data into a AnyDBM 
#

################ Copyright ################

# This program is Copyright 2004 by Adam J. Griff, Ph.D. (GriffMonster, LLC)
# This program is free software; you can redistribute it and/or
# modify it under the terms of the Perl Artistic License or the
# GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any
# later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# If you do not have a copy of the GNU General Public License write to
# the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
# MA 02139, USA.

################ Module Preamble ################


# 2004/07/09 V1.0.0
# initial release


=head1 NAME
    
    LinkDBAnyDBM - Database of link information in AnyDBM format
    
=head1 SYNOPSIS

    use LINKDB;

=head2 GET SOME HELP

    none for now

=cut


package LinkDBAnyDBM;
use 5.006_001;
use warnings;
use strict;
use Carp();
use LinkDB 1.0.0;
use vars qw($VERSION @ISA);
    
BEGIN {
  $VERSION        =  1.0.0;
  @ISA = 'LinkDB';
}

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self = $class->SUPER::new();
  $self->{"AnyDBM_File"} = "AnyDBM_File";
  bless ($self, $class);
  return $self;
}

sub db_type {
  my $self = shift;
  $self->SUPER::db_type();
  print "I'm an AnyDB object and store in " . $self->{"AnyDBM_File"} . "\n";
}

1;