File Coverage

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

Criterion	Covered	Total	%
statement	49	49	100.0
branch	2	4	50.0
condition			n/a
subroutine	17	17	100.0
pod	2	2	100.0
total	70	72	97.2

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

use strict;
use warnings;

use Carp;
use Net::OBEX::Packet::Request::Connect;
use Net::OBEX::Packet::Request::Disconnect;
use Net::OBEX::Packet::Request::Get;
use Net::OBEX::Packet::Request::Put;
use Net::OBEX::Packet::Request::SetPath;
use Net::OBEX::Packet::Request::Abort;

our $VERSION = '1.001001'; # VERSION

my %Valid_Packets = map { $_ => 1 }
                        qw(connect disconnect get put setpath abort);

my %Make_Packet = (
    connect     => sub { _make_connect(    shift ); },
    disconnect  => sub { _make_disconnect( shift ); },
    get         => sub { _make_get(        shift ); },
    put         => sub { _make_put(        shift ); },
    setpath     => sub { _make_setpath(    shift ); },
    abort       => sub { _make_abort(      shift ); },
);

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub make {
    my $self = shift;

    croak "Must have even number of arguments to new()"
        if @_ & 1;

    my %args = @_;
    $args{ +lc } = delete $args{ $_ } for keys %args;

    croak "Invalid packet name was specified (the `packet` argument)"
        unless exists $Valid_Packets{ $args{packet} };

    my $make_ref = $Make_Packet{ $args{packet} };
    delete $args{packet};
    return $make_ref->( \%args );
}

sub _make_connect {
    my $args = shift;
    return Net::OBEX::Packet::Request::Connect->new( %$args )->make;
}

sub _make_disconnect {
    my $args = shift;
    return Net::OBEX::Packet::Request::Disconnect->new( %$args )->make;
}

sub _make_get {
    my $args = shift;
    return Net::OBEX::Packet::Request::Get->new( %$args )->make;
}

sub _make_put {
    my $args = shift;
    return Net::OBEX::Packet::Request::Put->new( %$args )->make;
}

sub _make_setpath {
    my $args = shift;
    return Net::OBEX::Packet::Request::SetPath->new( %$args )->make;
}

sub _make_abort {
    my $args = shift;
    return Net::OBEX::Packet::Request::Abort->new( %$args )->make;
}

1;

__END__