view release on metacpan or  search on metacpan

lib/Data/Mapper/Adapter.pm  view on Meta::CPAN

package Data::Mapper::Adapter;
use strict;
use warnings;
use parent qw(Data::Mapper::Class);

sub driver {
    my ($self, $driver) = @_;

    if (defined $driver) {
        $self->{driver} = $driver
    }
    else {
        if (ref $self->{driver} eq 'CODE') {
            $driver = $self->{driver}->();
        }
        else {
            $driver = $self->{driver};
        }

        die 'You must set a driver first' if !defined $driver;
    }

    $driver;
}

sub create   { die 'create() method must be implemented by subclass'   }
sub find     { die 'find() method must be implemented by subclass'     }
sub search   { die 'search() method must be implemented by subclass'   }
sub update   { die 'update() method must be implemented by subclass'   }
sub delete   { die 'delete() method must be implemented by subclass'   }
sub schemata { die 'schemata() method must be implemented by subclass' }

!!1;