/usr/share/perl5/Web/ID/RSAKey.pm is in libweb-id-perl 1.922-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | package Web::ID::RSAKey;
use 5.010;
use utf8;
BEGIN {
$Web::ID::RSAKey::AUTHORITY = 'cpan:TOBYINK';
$Web::ID::RSAKey::VERSION = '1.922';
}
use MooseX::Types::Moose -all;
use Web::ID::Types -all;
use Web::ID::Util;
use Moose;
use namespace::sweep;
for (qw( exponent modulus ))
{
has $_ => (
is => read_only,
isa => Bigint,
required => true,
coerce => true,
);
}
sub rsa_equal
{
my ($self, $other) = @_;
foreach (qw(exponent modulus))
{
my $m1 = $self->can($_) or return;
my $m2 = $other->can($_) or return;
return unless $self->$m1 == $other->$m2;
}
return true;
}
__PACKAGE__
__END__
=head1 NAME
Web::ID::RSAKey - an RSA key
=head1 DESCRIPTION
=head2 Constructor
=over
=item C<< new >>
Standard Moose-style constructor.
=back
=head2 Attributes
=over
=item C<< exponent >>
The exponent as a Math::BigInt object.
=item C<< modulus >>
The modulus as a Math::BigInt object.
=back
=head2 Methods
=over
=item C<< rsa_equal($that) >>
Returns true iff this key is the same as that key.
=back
=head1 BUGS
Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=Web-ID>.
=head1 SEE ALSO
L<Web::ID>, L<Web::ID::Certificate>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2012 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|