File Coverage

blib/lib/Net/OBEX/Packet/Request/Abort.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             package Net::OBEX::Packet::Request::Abort;
2              
3 2     2   978 use strict;
  2         4  
  2         51  
4 2     2   9 use warnings;
  2         3  
  2         69  
5             our $VERSION = '1.001001'; # VERSION
6 2     2   14 use Carp;
  2         3  
  2         111  
7              
8 2     2   9 use base 'Net::OBEX::Packet::Request::Base';
  2         4  
  2         361  
9              
10             sub make {
11 2     2 1 1833 my $self = shift;
12 2         5 my $headers = join '', @{ $self->headers };
  2         13  
13              
14 2         12 my $packet = "\xFF" . pack( 'n', 3 + length $headers) . $headers;
15              
16 2         26 return $self->raw($packet);
17             }
18              
19             1;
20              
21             __END__