NAME

Net::OBEX::Packet::Request::Put - create OBEX protocol Put request packets.

SYNOPSIS

    use Net::OBEX::Packet::Request::Put;

    my $put = Net::OBEX::Packet::Request::Put->new(
        headers => [ $bunch, $of, $raw, $headers ],
    );

    my $put_packet = $put->make;

    $put->headers([]); # reset headers.
    $put->is_final( 1 ); # set final bit

    my $put_packet2 = $put->make;

DESCRIPTION

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

The module provides means to create OBEX protocol Put (0x02 and 0x82) packets. It is used internally by Net::OBEX::Packet::Request module and you probably want to use that instead.

CONSTRUCTOR

new

    $pack = Net::OBEX::Packet::Request::Put->new;

    $pack2 = Net::OBEX::Packet::Request::Put->new(
        is_final    => 1,
        headers     => [ $some, $raw, $headers ],
    );

Returns a Net::OBEX::Packet::Request::Put object, takes two arguments, all of which are optional. The possible arguments are as follows:

headers

    Net::OBEX::Packet::Request::Put->new(
        headers => [ $some, $raw, $headers ],
    );

Optional. Takes an arrayref as a value, elements of which are raw OBEX packet headers. See Net::OBEX::Packet::Headers if you want to create those.

is_final

    Net::OBEX::Packet::Request::Put->new( is_final => 1 );

Optional. When set to a true value will set packet's "Final Bit". Defaults to: 0

METHODS

make

    my $raw_packet = $pack->make;

Takes no arguments, returns a raw OBEX packet ready to go down the wire.

raw

    my $raw_packet = $pack->raw;

Takes no arguments, must be called after make() call, returns the raw OBEX packet which was made with last make() (i.e. the last return value of make()).

is_final

    my $old_is_final = $pack->is_final;

    $pack->is_final( 1 );

Returns either true or false value indicating whether or not the "final bit" of the packet is set. Takes one argument, which is either a true or false value, indicating if the next packet made by make() should have its final bit set.

headers

    my $headers_ref = $pack->headers;

    $pack->headers( [ $bunch, $of, $raw, $headers ] );

Returns an arrayref of currently set OBEX packet headers. Takes one optional argument which is an arrayref, elements of which are raw OBEX packet headers. See Net::OBEX::Packet::Headers if you want to create those. If you want a packet with no headers use an empty arrayref as an argument.

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.