our @EXPORT_OK = ();
our @EXPORT = qw();
-our $VERSION = '0.01';
+our $VERSION = '0.02';
sub set_defaults {
my $self = shift;
$self->content(%content);
}
+sub test_transaction {
+ my( $self, $enabled ) = @_;
+ die if $enabled;
+}
+
sub submit {
my $self = shift;
$self->map_fields;