This is for wide distribution within the organization, and I want to have as little barriers as possible to it getting used.

The installer for yours module can install the other module at the same time. That's a simple matter of putting one line in Makefile.PL.

Are you saying the easiest way to do this is to create an 'output' package and import it into both main and State::Object?

Seems simple to me: 

use Logger qw( output :err_levels );

[download]
use strict;
use warnings;

package Logger;

use Exporter qw( import );

our @EXPORT_OK = qw(
   LOG_ERROR
   LOG_VERBOSE_ERROR
   LOG_WARNING
   LOG_VERBOSE_WARNING
   output
);

our %EXPORT_TAGS = (
   err_levels => [qw(
      LOG_ERROR
      LOG_VERBOSE_ERROR
      LOG_WARNING
      LOG_VERBOSE_WARNING
   )],
);

use constant {
   LOG_ERROR   => 1,
   LOG_WARNING => 2,
};

use constant {
   LOG_VERBOSE_ERROR   => -LOG_ERROR,
   LOG_VERBOSE_WARNING => -LOG_WARNING,
};

sub output {
   ...
}

1;

[download]

I find it odd that control over whether the warning or error is verbose or not is in the caller's control and not a configuration item.

Update: Added code.

In reply to Re^3: Mixing procedural and OO code, one file. by ikegami
in thread Mixing procedural and OO code, one file. by DStaal

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.