File Coverage

blib/lib/Protocol/XMPP/Element/Register.pm
Criterion Covered Total %
statement 12 19 63.1
branch n/a
condition n/a
subroutine 4 6 66.6
pod 2 2 100.0
total 18 27 66.6


line stmt bran cond sub pod time code
1             package Protocol::XMPP::Element::Register;
2              
3 1     1   295856 use strict;
  1         3  
  1         51  
4 1     1   6 use warnings;
  1         2  
  1         108  
5 1     1   11 use parent qw(Protocol::XMPP::ElementBase);
  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 1     1   861 use Data::Dumper;
  1         11054  
  1         238  
20              
21             sub new {
22 0     0 1   my $class = shift;
23 0           my $self = $class->SUPER::new(@_);
24 0           $self->debug($self->{element}->{NamespaceURI});
25 0           $self;
26             }
27              
28             sub end_element {
29 0     0 1   my $self = shift;
30 0           $self->debug("Register request received, data was: " . $self->{data});
31 0           $self;
32             }
33              
34             1;
35              
36             __END__