Palm::Progect::VersionDelegator - Delegate to specific Progect db driver based on version
package Palm::Progect::Record; use vars qw(@ISA); @ISA = qw(Palm::Progect::Record); 1;
Delegate to specific database driver based on database version. If version is not specified, then it will delegate to the database driver with the highest number.
For instance to create a version 0.18 Record, the user can do the following:
my $record = Palm::Progect::Record->new( raw_record => $some_raw_data, version => 18, );
Behind the scenes, this call will be translated into the equivalent of:
require 'Palm/Progect/DB_18/Record.pm'; my $record = Palm::Progect::DB_18::Record->new( raw_record => $some_raw_data, );
Michael Graham <firstname.lastname@example.org>
Copyright (C) 2002-2005 Michael Graham. All rights reserved. This program is free software. You can use, modify, and distribute it under the same terms as Perl itself.
The latest version of this module can be found on http://www.occamstoothbrush.com/perl/