File Coverage

blib/lib/Protocol/XMPP/Element/Stream.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 22 63.6


line stmt bran cond sub pod time code
1             package Protocol::XMPP::Element::Stream;
2              
3 1     1   197687 use strict;
  1         2  
  1         39  
4 1     1   9 use warnings;
  1         6  
  1         113  
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::Element::Stream - handle the stream start/end tags
12              
13             =head1 SYNOPSIS
14              
15             =head1 DESCRIPTION
16              
17             =head1 METHODS
18              
19             =cut
20              
21             sub new {
22 0     0 1   my $class = shift;
23 0           my $self = $class->SUPER::new(@_);
24 0           $self->stream->remote_opened->done;
25 0           $self
26             }
27              
28             =head2 C
29              
30             =cut
31              
32             sub end_element {
33 0     0 1   my $self = shift;
34 0           $self->stream->remote_closed->done;
35             }
36              
37             1;
38              
39             __END__