File Coverage

File:blib/lib/OpenSRF/Transport/SlimJabber/MessageWrapper.pm
Coverage:18.2%

linestmtbrancondsubpodtimecode
1package OpenSRF::Transport::SlimJabber::MessageWrapper;
2
9
9
9
9
9
9
9
9
48
41
60
61
34
62
use strict; use warnings;
3
9
9
9
9
62
39
80
use OpenSRF::Transport::SlimJabber::XMPPMessage;
4
5# ----------------------------------------------------------
6# Legacy wrapper for XMPPMessage
7# ----------------------------------------------------------
8
9sub new {
10
0
0
0
        my $class = shift;
11
0
    my $msg = shift;
12
0
0
    return bless({msg => $msg}, ref($class) || $class);
13}
14
15sub msg {
16
0
0
0
    my($self, $msg) = @_;
17
0
0
    $self->{msg} = $msg if $msg;
18
0
    return $self->{msg};
19}
20
21sub toString {
22
0
0
0
    return $_[0]->msg->to_xml;
23}
24
25sub get_body {
26
0
0
0
    return $_[0]->msg->body;
27}
28
29sub get_sess_id {
30
0
0
0
    return $_[0]->msg->thread;
31}
32
33sub get_msg_type {
34
0
0
0
    return $_[0]->msg->type;
35}
36
37sub get_remote_id {
38
0
0
0
    return $_[0]->msg->from;
39}
40
41sub setType {
42
0
0
0
    $_[0]->msg->type(shift());
43}
44
45sub setTo {
46
0
0
0
    $_[0]->msg->to(shift());
47}
48
49sub setThread {
50
0
0
0
    $_[0]->msg->thread(shift());
51}
52
53sub setBody {
54
0
0
0
    $_[0]->msg->body(shift());
55}
56
57sub set_router_command {
58
0
0
0
    $_[0]->msg->router_command(shift());
59}
60sub set_router_class {
61
0
0
0
    $_[0]->msg->router_class(shift());
62}
63
64sub set_osrf_xid {
65
0
0
0
    $_[0]->msg->osrf_xid(shift());
66}
67
68sub get_osrf_xid {
69
0
0
0
   return $_[0]->msg->osrf_xid;
70}
71
721;