pridano nacitani adresare lib a modulu WardenClient.pm pomoci promenne __FILE__

src/warden-client/bin/sender-random.pl

@@ -9,9 +9,11 @@ use warnings;
 
 use Switch;
 use DateTime;
+use File::Basename;
 
-my $warden_path = '/opt/warden-client';
-require $warden_path . '/lib/WardenClient.pm';
+my $bin = File::Basename::dirname(__FILE__);
+use lib "$bin/../lib";
+use WardenClient;
 
 my $service = "test";
 # service is needed in authorization process of the client,