You are posting far too much code. Please reduce it to something that still reproduces the problem but is much shorter.

My guess is that one of your modules exports a subroutine new. As there is no way that I see that one of the modules you show is exporting a subroutine named new, it must be the LoadProperties module that exports a subroutine new. This triggers (rightfully) the warning about redefining that subroutine later on in Search2.

Also, what coding style is this and what problem is it supposed to solve:

BEGIN {
    ...
    @DB::EXPORT_OK   = qw(new say_hello);
    ...
}

[download]

The DB package is magic and reserved for the Perl debugger. Exporting symbols is usually done through global variables in the package doing the exporting. Methods of an object should not be exportable at all in any case. In my opinion, only your SharedVariables module should export its shared variable names, and none of the other modules should export anything.

In reply to Re: Subroutine new redefined by Corion
in thread Subroutine new redefined by *alexandre*

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.