File: fingerpoint-test.pl

package info (click to toggle)
libweb-id-perl 1.927-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 308 kB
  • sloc: perl: 1,381; makefile: 2; sh: 1
file content (14 lines) | stat: -rw-r--r-- 295 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use 5.010;
use Web::ID::SAN::Email;
use RDF::Trine;

my $san = Web::ID::SAN::Email->new(
	type     => 'rfc822Address',
	value    => 'somebody@fingerpoint.tobyinkster.co.uk',
	);

say $san->uri_object;

print RDF::Trine::Serializer
	-> new('Turtle')
	-> serialize_model_to_string( $san->model );