NAME

Net::OBEX::Packet::Request::Base - base class for OBEX request packet modules.

SYNOPSIS

package Net::OBEX::Packet::Request::Some;

use strict;
use warnings;
our $VERSION = '0.001';
use Carp;

use base 'Net::OBEX::Packet::Request::Base';

sub make {
    my $self = shift;
    my $headers = join '', @{ $self->headers };

    # "\x00" is the opcode
    my $packet = "\x00" . pack( 'n', 3 + length $headers) . $headers;

    return $self->raw($packet);
}

1;

__END__

DESCRIPTION

WARNING!!! This module is in an early alpha stage. It is recommended that you use it only for testing.

The module is a base class for OBEX request packet modules.

It defines a constructor (new()), as well as headers() and raw() accessors/mutators.

REPOSITORY

Fork this module on GitHub: https://github.com/zoffixznet/Net-OBEX

BUGS

To report bugs or request features, please use https://github.com/zoffixznet/Net-OBEX/issues

If you can't access GitHub, you can email your request to bug-Net-OBEX at rt.cpan.org

AUTHOR

Zoffix Znet <zoffix at cpan.org> (http://zoffix.com/, http://haslayout.net/)

LICENSE

You can use and distribute this module under the same terms as Perl itself. See the LICENSE file included in this distribution for complete details.