1. Toby Inkster
  2. p5-rdf-crypt

Source

p5-rdf-crypt / lib / RDF / Crypt / Role / DoesDecrypt.pm

package RDF::Crypt::Role::DoesDecrypt;

use 5.010;
use Any::Moose 'Role';

use Encode qw(decode);
use RDF::TrineX::Functions -shortcuts;

use namespace::clean;

BEGIN {
	$RDF::Crypt::Role::DoesDecrypt::AUTHORITY = 'cpan:TOBYINK';
	$RDF::Crypt::Role::DoesDecrypt::VERSION   = '0.002';
}

requires 'decrypt_bytes';

sub decrypt_text
{
	my ($self, $text) = @_;
	decode(
		'utf-8',
		$self->decrypt_bytes($text),
	);
}

sub decrypt_model
{
	my ($self, $text, %opts) = @_;
	rdf_parse(
		$self->decrypt_text($text),
		%opts,
	);
}

1;