File Coverage

blib/lib/SWISH/API/Remote/Result.pm

Criterion	Covered	Total	%
statement	33	36	91.6
branch	4	6	66.6
condition	2	5	40.0
subroutine	8	9	88.8
pod	2	4	50.0
total	49	60	81.6

package SWISH::API::Remote::Result;
use SWISH::API::Remote::FunctionGenerator;
use URI::Escape;
use fields qw( properties );
use strict;
use warnings;

############################################
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = {};
    bless( $self, $class );
    $self->{properties} = {};    # empty hash
    return $self;
}

############################################
sub New_From_Query_String {
    my ( $qs, $resultsprops ) = @_;
    my $newobj = new SWISH::API::Remote::Result;
    my @parts = split ( /&/, $qs );
    for my $p (@parts) {
        my ( $n, $v ) = map { uri_unescape($_) } split ( /=/, $p, 2 );	# split, THEN unescape
        $resultsprops->[$n] = "Unknown$n" unless defined( $resultsprops->[$n] );
        #warn "Property number $n ( $resultsprops->[$n] ) : value $v\n";
		if (defined($n)) {
			$newobj->{properties}{ $resultsprops->[$n] } = $v || "";
		}
    }

    #print Data::Dumper::Dumper($newobj);
    return $newobj;
}

############################################
sub Property {
    my ( $self, $prop ) = @_;
    #print "Looking up property $prop\n";
    return exists( $self->{properties} ) ? $self->{properties}{$prop} : "";
}

############################################
sub Properties {
	my $self = shift;
	return sort(keys( %{ $self->{properties} } ));	# we sort so the order is consistent
}

1;

__END__