Ok. I may be opening Pandora's box on this one, but if you wish to force a calling module to use strict and use warnings, then this will do the trick for perl 5.8.0...WARNING...I cannot guarntee this code will work for all versions of perl since the handling of strict and warnings has changed over the years and may continue to change...DO NOT USE IN PRODUCTION CODE:

package strictandwarnings;

sub import {
  shift;
  $^H = 1538; # turn on strict
  $^W = 1;    # turn on warnings
}

1;

[download]

This is a dirty dirty hack. Check out perldoc perlvar for information on the variables used. Instead of making them use this module to get them to use strict and warnings, try a cattle prod. It worked at my office.

Update: But this does the trick and isn't as bad...unless strict->import() and warnings->import() stop returning the value of $^H and ${^WARNING_BITS}, respectively:

package strictandwarnings;

sub import {
  require strict;
  $^H = strict->import();
  require warnings;
  ${^WARNING_BITS} = warnings->import();
}

[download]

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1

In reply to Re: How do I make one package use a module from another package? by antirice
in thread How do I make one package use a module from another package? by Anonymous Monk

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.