File Coverage

blib/lib/Net/FreeIPA/Request.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	9	11	81.8
subroutine	9	9	100.0
pod	4	4	100.0
total	52	54	96.3

package Net::FreeIPA::Request;
$Net::FreeIPA::Request::VERSION = '3.0.1';
use strict;
use warnings;

use base qw(Exporter);

our @EXPORT = qw(mkrequest);

use overload bool => '_boolean';

=head1 NAME

Net::FreeIPA::Request is an request class for Net::FreeIPA.

Boolean logic is overloaded using C<_boolean> method (as inverse of C).

=head2 Public methods

=over

=item mkrequest

A C factory

=cut

sub mkrequest
{
    return Net::FreeIPA::Request->new(@_);
}


=item new

Create new request instance from options for command C.

Options

=over

=item args: positional arguments

=item opts: optional arguments

=item error: an error (no default)

=item id: id (no default)

=back

=cut

sub new
{
    my ($this, $command, %opts) = @_;
    my $class = ref($this) || $this;
    my $self = {
        command => $command,

        args => $opts{args} || [],
        opts => $opts{opts} || {},

        rpc => $opts{rpc} || {}, # options for rpc
        post => $opts{post} || {}, # options for post

        error => $opts{error}, # no default
        id => $opts{id}, # no default
    };

    bless $self, $class;

    return $self;
};

=item post_data

Return the RPC::POST hashref (no JSON encoding).

Returns undef if the id is not defined.

=cut

sub post_data
{
    my $self = shift;

    return if (! defined($self->{id}));

    my $data = {
        method => $self->{command},
        params => [$self->{args}, $self->{opts}],
        id => $self->{id},
    };

    return $data;
}

=item is_error

Test if this is an error or not (based on error attribute).

=cut

sub is_error
{
    my $self = shift;
    return $self->{error} ? 1 : 0;
}

# Overloaded boolean, inverse of is_error
sub _boolean
{
    my $self = shift;
    return ! $self->is_error();
}

=pod

=back

=cut

1;