Can't use an undefined value as a HASH reference at

[Jerry DuVal]

When trying to use the class below I keep getting this error message.  Any
idea's, I have tried everything.

 

Can't use an undefined value as a HASH reference at
/usr/share/perl5/Pace/Sockets/Client.pm line 37.

ERROR - Aborting abnormally... error code = 2 message = Can't use an
undefined value as a HASH reference at
/usr/share/perl5/Pace/Sockets/Client.pm line 37.

 

ERROR - Aborting abnormally... error code = 2 message = Can't use an
undefined value as a HASH reference at
/usr/share/perl5/Pace/Sockets/Client.pm line 37.

 

use strict;

use warnings;

use Pace::Logging::Logger;

 

package Pace::Sockets::Client;

 

    sub new {

        my $class = shift;

        my $self  = {};       

        my $logger = Pace::Logging::Logger->new("Sockets::Client");       

        my $log = $logger->getLog();

                        my %data = (user=>'sdfgdfg', pass=>'sdfgsdfgsdfg');

                        $self->{LOGGER} = $log;

                        $self->{DATA} = \%data;

        bless ($self, $class);

        return $self;

    }                   

                        

            sub sendFile

            {

       my $self = shift;

               my $command = $_[0];

               my $fromFile = $_[1];

               my $toFile = $_[2];

               my $client = $self->{CLIENT};

               my %hash = %{$self->{DATA}}; 

               my $hash = %hash;

               my $reply = '';

               start1();                     

            }

            

            sub start1

            {               

                my $self = shift;

                my %hash = %{$self->{DATA}};

                        my $hash = %hash;

                $self->getLogger()->info($hash);

                        $self->getLogger()->info("Attempting to connection
to socket.");            

            }

 

            1;  # so the require or use succeeds