File Coverage

blib/lib/Net/Lyskom/Object.pm

Criterion	Covered	Total	%
statement	48	53	90.5
branch	5	8	62.5
condition	2	3	66.6
subroutine	6	7	85.7
pod	3	4	75.0
total	64	75	85.3

package Net::Lyskom::Object;
use Data::Dumper;
use strict;
use warnings;

=head1 NAME

  Object - Net::Lyskom::Object

=head1 SYNOPSIS

use base qw{Net::Lyskom::Object};

=head1 DESCRIPTION

Ur-object from which all other Net::Lyskom object inherits. Is not
particularly useful on its own.

=head2 Methods

=over

=item ->as_string

Returns the current object as a string, serialized via Data::Dumper.
Mostly useful for debugging purposes.

=item ->gen_call_boolean($call,@args)

Sends call number $call with arguments @args to the server. Returns
undef if the server indicates a failure and the object itself if it
indicates success.

=item ->gen_call_scalar($call,@args)

As the previous, except that it returns a simple scalar from the
server call.

=back

=cut

sub as_string {
    my $s = shift;

    return Dumper $s;
}


# Generic server call with succeed/fail return semantics
sub gen_call_boolean {
    my $self = shift;
    my $call = shift;
    my $this = $self->{refno}++;
    my @res;

    $self->send(
		join " ", $this,$call,@_,"\x0a"
	       );
    @res = $self->getres;
    if ($self->is_error(@res)) {
	return 0;
    } else {
	return $self;
    }
}

sub gen_call_scalar {
    my $self = shift;
    my $call = shift;
    my $this = $self->{refno}++;
    my @res;

    $self->send(
		join " ", $this,$call,@_,"\x0a"
	       );
    @res = $self->getres;
    if ($self->is_error(@res)) {
	return 0;
    } else {
	return $res[1];
    }
}

sub server_call {
    my $self = shift;

    if (ref($_[0]) && ref($_[0]) eq "ARRAY") {
	my ($str, @res);

	foreach (@{$_[0]}) {
	    $str .= join " ",$self->{refno}++,@{$_},"\x0a";
	}
	$self->send($str);
	foreach (@{$_[0]}) {
	    my @tmp = $self->getres;
	    splice @tmp, 0, 1, ($1,$2) if $tmp[0] =~ /^(=|%)(\d+)/;
	    push @res,[@tmp];
	}
	@res = sort {$a->[1] <=> $b->[1]} @res;
	foreach (@res) {
	    my ($a,$b) = splice @{$_},0,2;
	    unshift @{$_},$a.$b;
	}
	return @res;
    } else {
	my $this = $self->{refno}++;

	$self->send(
		    join " ", $this, @_, "\x0a"
		   );
	return $self->getres;
    }
}

1;