type $self to the client class so that field names are checked at com…

…pile time.

git-svn-id: http://code.sixapart.com/svn/gearman/trunk@475 011c6a6d-750f-0410-a5f6-93fdcd050bc4

lib/Gearman/Client.pm

@@ -16,7 +16,7 @@ use Gearman::JobStatus;
 
 sub new {
     my ($class, %opts) = @_;
-    my $self = $class;
+    my Gearman::Client $self = $class;
     $self = fields::new($class) unless ref $self;
 
     $self->{job_servers} = [];