File Coverage

blib/lib/Ubigraph.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Ubigraph;

use 5.006;
use strict;
use warnings;
use Frontier::Client;

use Ubigraph::Edge;
use Ubigraph::Vertex;

our $VERSION = '0.05';


sub new {
    my $pkg = shift;
    my $url = shift || 'http://127.0.0.1:20738/RPC2';
    my $this = {};
    bless $this;

    $this->{'client'} = Frontier::Client->new(url=>$url);
    $this->clear();

    return $this;
}


sub clear {
    my $this = shift;
    $this->{'client'}->call('ubigraph.clear', 0);
}


sub Vertex{
    return new Ubigraph::Vertex(@_);
}

sub newVertex{
    return new Ubigraph::Vertex(@_);
}

sub Edge{
    return new Ubigraph::Edge(@_);
}

sub newEdge{
    return new Ubigraph::Edge(@_);
}



1;
__END__