package MakerDB;

  use strict;
  use warnings;
   use Carp;
   use DBI;  
   use Data::Dumper;
 
  my $dbh;
  my $dbobj;
  use Class::MethodMaker
   get_set => [ { -read_cb => sub  {
                my $self = shift;
            my $dsn = 'DBI:mysql:mydb';
            my $dbuser ='root';
            my $dbpass = '';    
            eval {
                        $dbh=DBI->connect($dsn,
                         $dbuser,
                         $dbpass,
                         { RaiseError => 1,
                          AutoCommit => 0 }
                                       ); 
                             };
                      croak "\n\ncould not connect : $@" if $@;
                           return $dbh;
                            } 
         },'connect'
        ],                                    
    new  => 'new';


1;