view release on metacpan or  search on metacpan

t/02-rsa.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use Test::More tests => 2;

use Net::OAuth::ProtectedResourceRequest;

sub slurp {
    my $file = shift;
    my $text = do { local( @ARGV, $/ ) = $file ; <> } ;
    return $text;
}

SKIP: {

    skip "Crypt::OpenSSL::RSA not installed", 2 unless eval 'require Crypt::OpenSSL::RSA';

    my $publickey;
    my $privkey;