#!/usr/bin/perl

package SDH::Driver;
use strict;
use warnings;

sub new {
	# This is a base class
	my $class = shift;
	$class = ref($class) if ref($class);
	return bless({ }, $class);
}

sub note {
	my $self = shift;
	print STDERR 'note: ' . @_;
};

sub warn {
	my $self = shift;
	::warn(@_);
};

sub err {
	my $self = shift;
	::die(@_);
};

sub init_ok {
	return 1;
}

sub path { }
sub query { }
sub cookies { }
sub include { }
sub post { }
sub send { }

1;
