In one of the first modules I ever created, I needed something similar due to my use of a configuration file, which by default I placed in the directory with the module. My solution was similar to the following code:

# Module file: ATC::static # Default configuration file: ATC/static.conf my $module_group = 'ATC'; my $module_piece = 'static'; my $module_ext = 'pm'; my $module_conf_ext = 'conf'; $conf_file = $INC{$module_group . '/' . $module_piece . '.' . $module_extension}; $conf_file =~ s/($module_piece\.)$module_ext$/$1.$module_conf_ext/;

Perhaps not the best of methods or the cleanest of code (I still have much to learn of writing my own modules), but it worked for me at the time, and perhaps it can at least offer you an idea of one possible way.

Update: If memory serves, the code above was derived from a sample or example in Perl Cookbook, although now I cannot remember the specific location of the code in question in that publication. My appologies for failing to note the reference earlier.


In reply to Re: How to make a module aware of where it is installed? by atcroft
in thread How to make a module aware of where it is installed? by jaldhar

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.