package myHive::Model::DB::Landowner;
use Moose;
use namespace::autoclean;
use Data::Dumper;

extends 'myHive::Model::DB';

=head1 NAME

myHive::Model::DB::Landowner - Catalyst Model

=head1 DESCRIPTION

Catalyst Model.

=head1 AUTHOR

root

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut


sub addLandowner {
        my ( $self, %params ) = @_;
        my $table = $params{table};
        my %data  = $params{data};
	print STDERR "self " . Dumper($self);

        my ($stmt, @bind)     = $self->sql->insert( 'landowner', \%data ); 
        #check to see if we should log
        if ( exists $params{log} && $params{log} == 1 ) {
                print STDERR Dumper($stmt);
                print STDERR Dumper(@bind);
        }
        my $sth = $self->{dbh}->prepare($stmt);
        $sth->execute(@bind);
        my $row = $sth->fetchrow_hashref;
        $sth->finish;
        return;
}






__PACKAGE__->meta->make_immutable;

1;
