File Coverage

blib/lib/JLogger/Handler/Message.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	28	42.8

package JLogger::Handler::Message;

use strict;
use warnings;

use base 'JLogger::Handler';

sub handle {
    my ($self, $node) = @_;

    if (my $body_node =
        ($node->find_all(['component' => 'body']))[0]
        || ($node->find_all(['client' => 'body']))[0]
    ) {
        my $message = {
            from => $node->attr('from'),
            to   => $node->attr('to'),
            type => 'message',

            id           => $node->attr('id'),
            message_type => $node->attr('type'),
            body         => $body_node->text,
        };

        if (my $thread_node = ($node->find_all(['component' => 'thread']))[0])
        {
            $message->{thread} = $thread_node->text;
        }

        return $message;
    }

    # Ignore empty messages
    return;
}

1;