File Coverage

blib/lib/Protocol/XMPP/Element/Feature.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition 0 2 0.0
subroutine 3 5 60.0
pod 2 2 100.0
total 14 23 60.8


line stmt bran cond sub pod time code
1             package Protocol::XMPP::Element::Feature;
2              
3 1     1   274741 use strict;
  1         2  
  1         32  
4 1     1   3 use warnings;
  1         1  
  1         57  
5 1     1   8 use parent qw(Protocol::XMPP::ElementBase);
  1         2  
  1         7  
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             =head1 new
22              
23             =cut
24              
25             sub new {
26 0     0 1   my $class = shift;
27 0           my $self = $class->SUPER::new(@_);
28 0           my $feature = $self->attributes->{var};
29              
30 0   0       $self->debug("Had feature [" . ($feature || 'undef') . "]");
31             }
32              
33             =head2 end_element
34              
35             =cut
36              
37             sub end_element {
38 0     0 1   my $self = shift;
39             }
40              
41             1;
42              
43             __END__