/ 
Net-OBEX-Packet-Headers-0.002
/ Net::OBEX::Packet::Headers::Base

NAME

Net::OBEX::Packet::Headers::Byte4 - construct "4-byte sequence" OBEX headers.

SYNOPSIS

package Net::OBEX::Packet::Headers;

use strict;
use warnings;

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

our $VERSION = '0.001';

sub make {
    my $self = shift;

    my $value = $self->value;
    unless ( length $value ) {
        return $self->hi . "\x00\x03";
    }

    $value = pack 'n*', unpack 'U*', encode_utf8($value);

    my $header = $self->hi; # header code
    $header .= pack 'n', 4 + length $value;
    $header .= $value . "\x00";
    return $self->header($header);
}

1;

__END__

DESCRIPTION

WARNING!!! This module is still in alpha stage. Use it for test purposes only as interface might change in the future.

The module is a base class for OBEX packet headers.

It defines new(), make(), header(), value() and hi() methods. The default make() method is:

sub make {
    my $self = shift;

    my $value = $self->value;
    unless ( length $value ) {
        return $self->hi;
    }

    my $header = $self->hi . $value;
    return $self->header($header);
}

Refer to the documentation of either: Net::OBEX::Packet::Headers::Byte1, Net::OBEX::Packet::Headers::Byte4, Net::OBEX::Packet::Headers::ByteSeq or Net::OBEX::Packet::Headers::Unicode for the documentation of the methods.

AUTHOR

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

BUGS

Please report any bugs or feature requests to bug-net-obex-packet-headers at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-OBEX-Packet-Headers. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Net::OBEX::Packet::Headers::Base

You can also look for information at:

COPYRIGHT & LICENSE

Copyright 2008 Zoffix Znet, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.