[libatteanx-compatilibity-trine-perl] 08/22: Mostly working layer
Jonas Smedegaard
dr at jones.dk
Sat Dec 23 13:31:12 UTC 2017
This is an automated email from the git hooks/post-receive script.
js pushed a commit to annotated tag debian/0.001-1
in repository libatteanx-compatilibity-trine-perl.
commit 8c05fce8642ea2523e6affb6e0900a65fb233667
Author: Kjetil Kjernsmo <kjetil at kjernsmo.net>
Date: Mon Aug 14 15:34:39 2017 +0200
Mostly working layer
---
lib/AtteanX/Compatibility/Trine.pm | 13 +++++++++++--
t/blank.t | 2 +-
t/iri.t | 2 +-
t/literal.t | 3 ++-
4 files changed, 15 insertions(+), 5 deletions(-)
diff --git a/lib/AtteanX/Compatibility/Trine.pm b/lib/AtteanX/Compatibility/Trine.pm
index 9c20a78..29229a6 100644
--- a/lib/AtteanX/Compatibility/Trine.pm
+++ b/lib/AtteanX/Compatibility/Trine.pm
@@ -2,9 +2,13 @@ use 5.010001;
use strict;
use warnings;
+package AtteanX::Compatibility::Trine;
+
+use Attean;
+
package Attean::IRI {
sub uri {
- my $self = shift;
+ my $self = shift;
return $self->abs;
}
}
@@ -14,7 +18,12 @@ package Attean::Blank {
my $self = shift;
return $self->value;
}
-}
+};
+
+package Attean::Literal {
+ sub has_datatype { return 1 }
+
+};
1;
diff --git a/t/blank.t b/t/blank.t
index 0d04b12..7ca793f 100644
--- a/t/blank.t
+++ b/t/blank.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-use_ok('Attean');
+use_ok('AtteanX::Compatibility::Trine');
use_ok('Attean::Blank');
can_ok('Attean::Blank', 'blank_identifier');
diff --git a/t/iri.t b/t/iri.t
index d682907..59400d6 100644
--- a/t/iri.t
+++ b/t/iri.t
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-use_ok('Attean');
+use_ok('AtteanX::Compatibility::Trine');
use_ok('Attean::IRI');
can_ok('Attean::IRI', 'uri');
diff --git a/t/literal.t b/t/literal.t
index 5a7cf3a..6162512 100644
--- a/t/literal.t
+++ b/t/literal.t
@@ -3,7 +3,8 @@
use strict;
use Test::More;
-use_ok('Attean');
+use_ok('AtteanX::Compatibility::Trine');
+
use_ok('Attean::Literal');
can_ok('Attean::Literal', 'literal_value');
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libatteanx-compatilibity-trine-perl.git
More information about the Pkg-perl-cvs-commits
mailing list