/usr/share/perl5/Authen/Passphrase/AcceptAll.pm is in libauthen-passphrase-perl 0.008-1.
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 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | =head1 NAME
Authen::Passphrase::AcceptAll - accept any passphrase
=head1 SYNOPSIS
use Authen::Passphrase::AcceptAll;
$ppr = Authen::Passphrase::AcceptAll->new;
$ppr = Authen::Passphrase::AcceptAll
->from_crypt("");
$ppr = Authen::Passphrase::AcceptAll
->from_rfc2307("{CRYPT}");
if($ppr->match($passphrase)) { ...
$passphrase = $ppr->passphrase;
$passwd = $ppr->as_crypt;
$userPassword = $ppr->as_rfc2307;
=head1 DESCRIPTION
An object of this class is a passphrase recogniser that accepts any
passphrase whatsoever. This is a subclass of L<Authen::Passphrase>, and
this document assumes that the reader is familiar with the documentation
for that class.
This type of passphrase recogniser is obviously of no use at all in
controlling access to any resource. Its use is to permit a resource to
be public in a system that expects some type of passphrase access control.
=cut
package Authen::Passphrase::AcceptAll;
{ use 5.006; }
use warnings;
use strict;
use Authen::Passphrase 0.003;
use Carp qw(croak);
our $VERSION = "0.008";
use parent "Authen::Passphrase";
# There is only one object of this class, and its content is
# insignificant.
=head1 CONSTRUCTORS
=over
=item Authen::Passphrase::AcceptAll->new
Returns an accept-all passphrase recogniser object. The same object is
returned from each call.
=cut
{
my $singleton = bless({});
sub new { $singleton }
}
=item Authen::Passphrase::AcceptAll->from_crypt("")
Returns an accept-all passphrase recogniser object. The same object is
returned from each call. The argument must be the empty string.
=cut
sub from_crypt {
my($class, $passwd) = @_;
return $class->new if $passwd eq "";
return $class->SUPER::from_crypt($passwd);
}
=item Authen::Passphrase::AcceptAll->from_rfc2307(USERPASSWORD)
Generates a new accept-all passphrase recogniser object from an RFC
2307 string. The string must consist of "B<{CRYPT}>" (case insensitive)
followed by an acceptable crypt string.
=back
=head1 METHODS
=over
=item $ppr->match(PASSPHRASE)
=item $ppr->passphrase
=item $ppr->as_crypt
=item $ppr->as_rfc2307
These methods are part of the standard L<Authen::Passphrase> interface.
The L</match> method always returns true, and the L</passphrase> method
returns the empty string (the shortest of the infinite number of correct
passphrases).
=cut
sub match { 1 }
sub passphrase { "" }
sub as_crypt { "" }
=back
=head1 SEE ALSO
L<Authen::Passphrase>
=head1 AUTHOR
Andrew Main (Zefram) <zefram@fysh.org>
=head1 COPYRIGHT
Copyright (C) 2006, 2007, 2009, 2010, 2012
Andrew Main (Zefram) <zefram@fysh.org>
=head1 LICENSE
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1;
|