File Coverage

blib/lib/Web/Solid/Auth/Util.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	35	34.2

package Web::Solid::Auth::Util;

use Moo;
use Attean;
use Attean::RDF qw(iri);

our $GNAME = 'http://graph-name/';

sub parse_turtle {
    my ($self, $turtle) = @_;

    my $store  = Attean->get_store('Memory')->new();
    my $parser = Attean->get_parser('Turtle')->new();

    my $iter = $parser->parse_iter_from_bytes($turtle);

    return undef unless $iter;

    my $graph = iri($GNAME);
    my $quads = $iter->as_quads($graph);

    $store->add_iter($quads);

    my $model = Attean::QuadModel->new( store => $store );

    return $model;
}

sub sparql {
    my ($self, $model, $sparql, $cb) = @_;

    my $s = Attean->get_parser('SPARQL')->new();
    my ($algebra) = $s->parse($sparql);
    my $graph = iri($GNAME);
    my $results = $model->evaluate($algebra, $graph);

    while (my $r = $results->next) {
        $cb->($r);
    }
}

1;