<commit_before>#!perl -T

BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }

#use Data::Dumper;
use Log::Fine;
use Log::Fine::Formatter::Template;
use Log::Fine::Levels::Syslog qw( :macros :masks );
use Test::More;

{

        plan skip_all => "Email handle only supported in perl 5.8.3 or above"
            if $^V lt v5.8.3;

        # See if we have Email::Sender installed
        eval "require Email::Sender";

        if ($@) {
                plan skip_all =>
"Email::Sender is not installed.  Unable to test Log::Fine::Handle::Email";
        } else {

                eval "require Mail::RFC822::Address";

                if ($@) {
                        plan skip_all =>
"Mail::RFC822::Address is not installed.  Unable to test Log::Fine::Handle::Email";
                } else {
                        plan tests => 9;
                }
        }

        use_ok("Log::Fine::Handle::Email");

        my $email_sender_version = $Email::Sender::VERSION;

        # Load appropriate modules
        require Email::Sender::Simple;
        require Email::Sender::Transport::Test;

        my $user =
            sprintf('%s@localhost', getlogin() || getpwuid($<) || "nobody");

        my $log = Log::Fine->logger("email0");

        isa_ok($log, "Log::Fine");

        # Create a formatter for subject line
        my $subjfmt =<commit_msg>Remove Mail::RFC822::Address checks<commit_after>#!perl -T

BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }

#use Data::Dumper;
use Log::Fine;
use Log::Fine::Formatter::Template;
use Log::Fine::Levels::Syslog qw( :macros :masks );
use Test::More;

{

        plan skip_all => "Email handle only supported in perl 5.8.3 or above"
            if $^V lt v5.8.3;

        # See if we have Email::Sender installed
        eval "require Email::Sender";

        if ($@) {
                plan skip_all =>
"Email::Sender is not installed.  Unable to test Log::Fine::Handle::Email";
        } else {
                plan tests => 9;
        }

        use_ok("Log::Fine::Handle::Email");

        my $email_sender_version = $Email::Sender::VERSION;

        # Load appropriate modules
        require Email::Sender::Simple;
        require Email::Sender::Transport::Test;

        my $user =
            sprintf('%s@localhost', getlogin() || getpwuid($<) || "nobody");

        my $log = Log::Fine->logger("email0");

        isa_ok($log, "Log::Fine");

        # Create a formatter for subject line
        my $subjfmt =
{'fraction_non_alphanumeric': 0.14744110479285133, 'fraction_numerical': 0.010154346060113728, 'mean_word_length': 2.284, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 12, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6137060', 'n_tokens_mistral': 800, 'n_tokens_neox': 733, 'n_words': 191}