File Coverage

blib/lib/Protocol/XMPP/Element/JID.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package Protocol::XMPP::Element::JID;
2              
3 1     1   230575 use strict;
  1         2  
  1         40  
4 1     1   3 use warnings;
  1         2  
  1         76  
5 1     1   3 use parent qw(Protocol::XMPP::TextElement);
  1         1  
  1         9  
6              
7             our $VERSION = '0.007'; ## VERSION
8              
9             =head1 NAME
10              
11             =head1 SYNOPSIS
12              
13             =head1 DESCRIPTION
14              
15             =head1 METHODS
16              
17             =cut
18              
19             sub on_text_complete {
20 0     0 0   my $self = shift;
21 0           my $data = shift;
22 0           $self->{jid} = $data;
23 0           $self->stream->jid($data);
24 0           $self->debug("Full JID was [$data]");
25             }
26              
27             1;
28              
29             __END__