in reply to Re: Undefined subroutine &main::func1
in thread Undefined subroutine &main::func1 [SOLVED]

Hello soonix,

Thank you for your time and effort reading and reviewing my code.

Well if I am not mistaken (I am not really sure since I have no experience with reusable modules) that the '&' is not affecting the code on %EXPORT_TAGS because I am not using them, not yet at least.

Based on the example Simple Module Tutorial the author is using these sigils and they work fine, I just tested it. I assume the error comes from the Directories that I using Net::SNTP:Client.pm can not be used without been installed.

Or maybe I am doing many wrong assumptions.

Any way I am still working on it to learn more about it, thank you for your time and effort again.

Seeking for Perl wisdom...on the process of learning...not there...yet!

Replies are listed 'Best First'.
Re^3: Undefined subroutine &main::func1
by soonix (Chancellor) on Jun 28, 2015 at 15:26 UTC

      Hello soonix,

      OMG I just figure it out. Not knowing something can lead to so many mistakes and disappointment!

      You are absolutely right, The way that I define my folders on my module was completely wrong! I had named a module literally Net::SNTP::Client.pm although that I read that when the module will be installed this will mean that will be in the directory Net/SNTP/Client I completely forgot about it and proceed with naming the module like this.

      Of course when loading the module it was not able to see the directory since they do not match. So I simply used the use lib '/home/username/Desktop/Test/'; before loading my module and modified also the directories accordingly. I had to rename my module to Client.pm instead of Net::SNTP::Client.pm and voilą!

      Sample of modified code for simplicity:

      #!/usr/bin/perl use strict; use warnings; my @list = qw (J u s t ~ A n o t h e r ~ P e r l ~ H a c k e r !); use lib '/home/username/Desktop/Test/'; # note here use Net::SNTP::Client qw(&func1); print func1(@list),"\n";

      Expected output:

      !rekcaH~lreP~rehtonA~tsuJ

      Apologies for not able to understand and explain my problem properly. I have confused too many people that tried to help me.

      Seeking for Perl wisdom...on the process of learning...not there...yet!