package name

[Brent Clark]

Hi all

For some reason I keep geting this message.

Global symbol "$arguments" requires explicit package name at sql_handler.pm 
line 37.
Global symbol "$arguments" requires explicit package name at sql_handler.pm 
line 40.
Global symbol "$table" requires explicit package name at sql_handler.pm line 48.


Ig someone would so kind as to point out to me, where im going wrong and to 
maybe share some tips,
I would be most grateful.

Kind Regards
Brent Clark


#--------------------------------- Code below --------------------

package sql_handler;

BEGIN {
   use Exporter;
   use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
   $VERSION       = 0.1;
   @ISA           = qw(Exporter);
   @EXPORT        = qw(
                     &sql_insert
                  );

   %EXPORT_TAGS   = ();
   @EXPORT_OK     = qw();
}

use Carp 'croak';
use strict;
use warnings;
use DBI;

   # Lets connect to the database
   my $database = "world";
   my $data_source = "DBI:mysql:database=$database;host=localhost";
   my $username = "nicetry";
   my $auth = "nicetryagain";
   my $dbh = DBI->connect($data_source, $username, $auth, {'RaiseError' => 1} );


   sub sql_insert {

      my %arguments = @_;

#     use Data::Dumper;
#     print Dumper(\%arguments);

      my @columns = keys %{ $arguments->{'fields'}};
      my @vals = ();
      foreach (@columns) {
         my $val = $arguments->{$_};
         $val =~ s/\'/\'\'/g;
         $val =~ s/\n/\\n/g;
         push @vals, "'".$val."'";
      }

      my @values = @_;
      my $insert_query = "INSERT INTO $table (".join(',',@columns).") 
VALUES(".join(',',@vals).")";
      my $sth = $dbh->prepare($insert_query);
      $sth->execute();
      $sth->finish();

   }

   # Disconnect from the database.
   $dbh->disconnect();
1;

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>