| line |
true |
false |
branch |
|
44
|
0 |
0 |
if (my $hashing = $args{'hashing'}) |
|
46
|
0 |
0 |
unless $rsa->can($use_hash) |
|
52
|
0 |
0 |
if (my $padding = $args{'padding'}) |
|
54
|
0 |
0 |
unless $rsa->can($use_pad) |
|
64
|
0 |
0 |
unless defined $priv |
|
76
|
0 |
0 |
if &blessed($priv) and $priv->isa('Crypt::OpenSSL::RSA') |
|
79
|
0 |
0 |
if ref $priv =~ /Crypt/ |
|
82
|
0 |
0 |
if index($priv, "\n") >= 0 |
|
87
|
0 |
0 |
if ($@) |
|
101
|
0 |
0 |
@_ % 2 == 1 ? : |
|
104
|
0 |
0 |
if not defined $pub and $self->{'XCWSR_pubkey'} |
|
106
|
0 |
0 |
unless my $token = $pub || $self->privateKeyRSA |
|
118
|
0 |
0 |
unless defined $token |
|
120
|
0 |
0 |
unless &blessed($token) |
|
123
|
0 |
0 |
if $token->isa('Crypt::OpenSSL::RSA') |
|
126
|
0 |
0 |
if $token->isa('XML::Compile::WSS::SecToken::X509v3') |
|
130
|
0 |
0 |
if $token->isa('Crypt::OpenSSL::X509') |
|
142
|
0 |
0 |
$how eq 'X509' ? : |
|
|
0 |
0 |
$how eq 'PKCS1' ? : |
|
157
|
0 |
0 |
unless my $priv = $self->privateKeyRSA |
|
165
|
0 |
0 |
unless my $pub = $self->publicKeyRSA |
|
172
|
0 |
0 |
unless my $priv = $self->privateKeyRSA |
|
180
|
0 |
0 |
unless my $rsa = $self->publicKeyRSA |
|
190
|
0 |
0 |
unless my $priv = $self->privateKeyRSA |
|
198
|
0 |
0 |
unless my $pub = $self->publicKeyRSA |