package MakerDB;

  use strict;
  use warnings;
  use Carp;
  use DBI;  
  use Data::Dumper;
 
  my $dbh;
  my $sth;
  


  my $name,
  my $pass;
  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',
		
	         {  -read_cb => sub {
			
			print "Enter Name : ";
			chomp($name = <STDIN>);
			print "Enter Password : ";
			chomp($pass = <STDIN>);

			my $self = shift;
			my $query = qq{INSERT INTO userlog VALUES(?,?)};
			eval {
			        $sth = $dbh->prepare($query);
				$sth->execute($name,$pass);
			     };
				croak "\n\nCheck the Query..Data cannot be inserted : $@" if $@;
				return $sth;
                                    }
                 },'save',
	
		 {  -read_cb => sub {
			my $self = shift;
		        print "Enter the Name of the Record to be Deleted :\t";
		 	chomp($name = <STDIN>);
 			my $query = qq[DELETE FROM userlog WHERE NAME = '$name'];
			eval {
			        $sth = $dbh->do($query);
			     };
				croak "\n\nDelete Query Failed : $@" if $@;
				return $sth;				
				    }
		},'delete'     
		], 			               	    
    new  => 'new';
  1;