File Coverage

blib/lib/Net/OBEX/Packet/Request/Base.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	4	8	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	32	40	80.0

package Net::OBEX::Packet::Request::Base;

use strict;
use warnings;
use Carp;

our $VERSION = '1.001001'; # VERSION

sub new {
    my $class = shift;
    croak "Must have even number of arguments to new()"
        if @_ & 1;
    my %args = @_;
    $args{ +lc } = delete $args{ $_ } for keys %args;

    $args{headers} = []
        unless exists $args{headers};

    return bless \%args, $class;
}

sub headers {
    my $self = shift;
    if ( @_ ) {
        $self->{ headers } = shift;
    }
    return $self->{ headers };
}

sub raw {
    my $self = shift;
    if ( @_ ) {
        $self->{ raw } = shift;
    }
    return $self->{ raw };
}

1;

__END__