File Coverage

blib/lib/RDF/AllegroGraph/Utils.pm

Criterion	Covered	Total	%
statement	3	21	14.2
branch	0	14	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	1	0.0
total	4	40	10.0

package RDF::AllegroGraph::Utils;

use Data::Dumper;

require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(coord2literal);

sub coord2literal {
    my $typeURI = shift;
    my $A = shift;
    my $B = shift;

    $typeURI = "<" . $typeURI . ">" unless $typeURI =~ /^<.+>$/;
    return $typeURI =~ /spherical/
	     ? '"' . (sprintf "%+011.7f", $B) . (sprintf "%+012.7f", $A) . '"^^' . $typeURI
             : '"' . (sprintf "%+.7f",    $A) . (sprintf "%+.7f",    $B) . '"^^' . $typeURI
}

sub _hash_to_perl {
    my $h = shift;
#    warn "hash to perl ".Dumper $h;
    my $h2;
    foreach my $k (keys %$h) {
#	warn $k;
	$h2->{$k} = _data_to_perl ($h->{$k});
    }
    return $h2;
}

sub _data_to_perl {
    my $d = shift;
    if ($d =~ q|"true"\^\^|) {
	return 1;
    } elsif ($d =~ q|"false"\^\^|) {
	return undef;
    } elsif ($d =~ q|^<(.*)>$|) {
	return $1;
    } elsif ($d =~ q|^"(.*)"$|) {
	return $1;
    } elsif (JSON::XS::is_bool $d) {
	return $d;
#	return JSON::XS::true == $d;
    } else {
	return $d;
    }
}

1;