Mini Shell
Mini Shell
| Direktori : /home/rs/perl/5.8/lib/perl5/site_perl/5.8/Crypt/Random/Provider/ |
| Current File : //home/rs/perl/5.8/lib/perl5/site_perl/5.8/Crypt/Random/Provider/devrandom.pm |
#!/usr/bin/perl -sw
##
## Copyright (c) 1998-2018, Vipul Ved Prakash. All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
package Crypt::Random::Provider::devrandom;
use strict;
use lib qw(lib);
use Crypt::Random::Provider::File;
use vars qw(@ISA);
@ISA = qw(Crypt::Random::Provider::File);
sub _defaultsource { return "/dev/random" }
1;