File Coverage

blib/lib/Net/OBEX/Packet/Request/Disconnect.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1              
2             package Net::OBEX::Packet::Request::Disconnect;
3              
4 2     2   1134 use strict;
  2         4  
  2         59  
5 2     2   10 use warnings;
  2         2  
  2         70  
6             our $VERSION = '1.001001'; # VERSION
7              
8 2     2   10 use Carp;
  2         3  
  2         119  
9 2     2   10 use base 'Net::OBEX::Packet::Request::Base';
  2         3  
  2         309  
10              
11             sub make {
12 2     2 1 1459 my $self = shift;
13 2         6 my $headers = join '', @{ $self->headers };
  2         15  
14              
15 2         16 my $packet = "\x81" . pack( 'n', 3 + length $headers) . $headers;
16              
17 2         12 return $self->raw($packet);
18             }
19              
20             1;
21              
22             __END__