Net::OBEX::Packet::Request::Base - base class for OBEX request packet modules.
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__
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.
Zoffix Znet, <zoffix at cpan.org> (http://zoffix.com, http://haslayout.net)
Please report any bugs or feature requests to bug-net-obex-packet-request at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-OBEX-Packet-Request. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Net::OBEX::Packet::Request
You can also look for information at:
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-OBEX-Packet-Request
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.
