package Sam::Constants;
use strict;
use warnings;

use base 'Exporter';

use constant PRE    => 1;
use constant REGULAR      => 2;
use constant POST       => 3;

our @EXPORT_OK = qw( PRE REGULAR POST );

1;

##</code><code>##

---- list_txt.tt2

Here's a list for [% date %]:
[% IF type == PRE %]
PRE LIST
[% list %]
[% ELSIF type == REG %]
REG LIST
[% list_alt %]
[% END %]
[% INCLUDE email_footer_txt.tt2 %]

##</code><code>##

use Sam::Constants qw(REG PRE POST);
    ...

    $content_ref->{PRE}     = PRE;
    $content_ref->{REG} = REG;
    $content_ref->{list}     = $list;
    $content_ref->{list_alt} = $list_alt;


    # for mailer and pass content variable to template
    my %email_args = (
        from        => $pool_ref->email,
        bcc         => $pool_ref->admin->email1,
        text_template => 'list_txt.tt2',
        content_ref => $content_ref,
    );
    require Template;

    my $tt = Template->new(
        {
            INCLUDE_PATH => $BASE_DIR . '/root/src/',
            INTERPOLATE  => 1,
        }
    ) || die "$Template::ERROR\n";
    $tt->process( $email_args{text_template},
        $email_args{content_ref} )
      || die $tt->error(), "\n";


##</code><code>##

    $content_ref->{PRE}     = PRE;
    $content_ref->{REG} = REG;