File Coverage

blib/lib/Net/OBEX/Response/Generic.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	42	46	91.3

package Net::OBEX::Response::Generic;


use strict;
use warnings;

our $VERSION = '1.001001'; # VERSION

use Carp;
use base 'Class::Data::Accessor';
__PACKAGE__->mk_classaccessors( qw( headers_length  packet  info ) );


my %Response_meaning_of_code = _make_response_codes();

sub new {
    my $class = shift;
    my $packet = shift;

    my $self = bless {}, $class;

    if ( defined $packet ) {
        $self->packet( $packet );
        $self->info( $self->parse_info( $packet ) );
    }

    return $self;
}

sub parse_info {
    my ( $self, $packet ) = @_;
    $packet = $self->packet
        unless defined $packet;

    my %info;
    @info{ qw( response_code  packet_length) }
    = unpack 'a n', $packet;

    @info{qw( response_code response_code_meaning ) } =
    $self->code_meaning( $info{response_code} );

    $info{headers_length} = $info{packet_length} - 3;
    $self->headers_length( $info{headers_length} );

    return $self->info( \%info );
}

sub code_meaning {
    my ( $class, $code ) = @_;
    return @{ $Response_meaning_of_code{ $code } };
}

sub _make_response_codes {
    return (
        "\x90" => [ 100, 'Continue' ],
        "\xA0" => [ 200, 'OK, Success' ],
        "\xA1" => [ 201, 'Created' ],
        "\xA2" => [ 202, 'Accepted' ],
        "\xA3" => [ 203, 'Non-Authoritative Information' ],
        "\xA4" => [ 204, 'No Content' ],
        "\xA5" => [ 205, 'Reset Content' ],
        "\xA6" => [ 206, 'Partial Content' ],
        "\xB0" => [ 300, 'Multiple Choices' ],
        "\xB1" => [ 301, 'Moved Permanently' ],
        "\xB2" => [ 302, 'Moved temporarily' ],
        "\xB3" => [ 303, 'See Other' ],
        "\xB4" => [ 304, 'Not modified' ],
        "\xB5" => [ 305, 'Use Proxy' ],
        "\xC0" => [ 400, q|Bad Request - server couldn't understand request| ],
        "\xC1" => [ 401, 'Unauthorized' ],
        "\xC2" => [ 402, 'Payment required' ],
        "\xC3" => [ 403, 'Forbidden - operation is understood but refused' ],
        "\xC4" => [ 404, 'Not Found' ],
        "\xC5" => [ 405, 'Method not allowed' ],
        "\xC6" => [ 406, 'Not Acceptable' ],
        "\xC7" => [ 407, 'Proxy Authentication required' ],
        "\xC8" => [ 408, 'Request Time Out' ],
        "\xC9" => [ 409, 'Conflict' ],
        "\xCA" => [ 410, 'Gone' ],
        "\xCB" => [ 411, 'Length Required' ],
        "\xCC" => [ 412, 'Precondition failed' ],
        "\xCD" => [ 413, 'Requested entity too large' ],
        "\xCE" => [ 414, 'Request URL too large' ],
        "\xCF" => [ 415, 'Unsupported media type' ],
        "\xD0" => [ 500, 'Internal Server Error' ],
        "\xD1" => [ 501, 'Not Implemented' ],
        "\xD2" => [ 502, 'Bad Gateway' ],
        "\xD3" => [ 503, 'Service Unavailable' ],
        "\xD4" => [ 504, 'Gateway Timeout' ],
        "\xD5" => [ 505, 'HTTP version not supported' ],
        "\xE0" => [ undef, 'Database Full' ],
        "\xE1" => [ undef, 'Database Locked' ],
    );
}

1;

__END__