File Coverage

blib/lib/Protocol/XMPP/Element/Body.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package Protocol::XMPP::Element::Body;
2              
3 1     1   268126 use strict;
  1         3  
  1         46  
4 1     1   6 use warnings;
  1         2  
  1         83  
5 1     1   7 use parent qw(Protocol::XMPP::ElementBase);
  1         2  
  1         9  
6              
7             our $VERSION = '0.007'; ## VERSION
8              
9             =head1 NAME
10              
11             Protocol::XMPP::Feature - register ability to deal with a specific feature
12              
13             =head1 SYNOPSIS
14              
15             =head1 DESCRIPTION
16              
17             =head1 METHODS
18              
19             =cut
20              
21             =head2 end_element
22              
23             =cut
24              
25             sub end_element {
26 0     0 1   my $self = shift;
27 0 0         return unless $self->parent->isa('Protocol::XMPP::Element::Message');
28              
29 0           $self->parent->{body} = $self->{data};
30 0           $self->debug("Body was " . $self->{data});
31             }
32              
33             1;
34              
35             __END__