File Coverage

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

Criterion	Covered	Total	%
statement	24	31	77.4
branch	4	12	33.3
condition			n/a
subroutine	7	8	87.5
pod	0	5	0.0
total	35	56	62.5

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

use strict;
use warnings;
use Carp;

our $VERSION = '1.001001'; # VERSION

sub new {
    my ( $class, $hi, $value ) = @_;

    croak "Missing header name or HI identifier"
        unless defined $hi;

    $value = ''
        unless defined $value;

    return bless {
        value  => $value,
        hi     => $hi,
    }, $class;
}

sub make {
    my $self = shift;

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

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

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

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

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

1;

__END__