view release on metacpan or search on metacpan
examples/oo_interface.pl view on Meta::CPAN
salt_hex => $salt_hex,
hash_hex => $hash_hex
);
if ( $auth->match($clear_passphrase) ) {
print "That's a match. Hmf! A lucky guess!\n";
}
else {
print "Not even close!\n";
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Authen/PluggableCaptcha/Tutorial.pm view on Meta::CPAN
Yes. it renders directly on this example 'Generate a Captcha' above.
I think there is some confusion in this tutorial because i do 2 things that are a little odd:
a- i run through the captcha generator to pull a new valid key, this way i can use a new example and have a key validate
b- i run through the captcha validator while i can 'guess' an obviously wrong answer. The way the system is structured, a solution is only provided when you try to validate the captcha. That is because you might want to 'Render' an existing sound/...
To display a CAPTCHA, you just create a new object and call the render method , passing in a challenge class and render class. You can call the render method as often as you'd like. Currently, the module will transparently validate the key in order...
=head3 You actually need to validate the key before check for a correct answer. But couldn't that data be stored on the backend?
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
SimplePam.pm view on Meta::CPAN
}
else
{
# $state not defined
# This means that we got an unknow message.
# guessing blindly
warn "Don't know what to do about '$pam_message' .\n";
print "DEBUG: 'done' guess flag is $done\n";
if ($done == 0)
{
$answer = $old_password;
warn "Trying to give the OLD password.\n";
view release on metacpan or search on metacpan
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_check_lock(); # check for $UnderCPAN
if (@Missing and not ($CheckOnly or $UnderCPAN)) {
require Config;
print "*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n" if eval '$>';
}
print "*** $class configuration finished.\n";
chdir $cwd;
inc/ExtUtils/AutoInstall.pm view on Meta::CPAN
_load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath(Cwd::cwd());
view release on metacpan or search on metacpan
lib/AutoCode/MarshalRoot.pm view on Meta::CPAN
return $self;
}else{
my %params = @args;
@params{map{lc $_}keys $params}=values %params;
my $private = $params{$selector}||$params{"-$selector"};
$private ||= $class->_guess_private(@args);
$class->throw("Unknown $selector given") unless $private;
my $private_module="$marshal\::$private";
return undef unless($class->_load_module($private_module);
return $private_module->new(@args);
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
share/INSTALL.tt view on Meta::CPAN
familar to people who are familiar with using the GNU autotools
('./configure' and friends...). See the section titled "Customizing
the Installation" for information regarding special options for this
package.
The `configure' shell script attempts to guess correct values for
various system-dependent variables used during compilation. It uses
those values to create a `Makefile' in each directory of the package.
It may also create one or more `.h' files containing system-dependent
definitions. Finally, it creates a shell script `config.status' that
you can run in the future to recreate the current configuration, and a
share/INSTALL.tt view on Meta::CPAN
There may be some features `configure' cannot figure out automatically,
but needs to determine by the type of machine the package will run on.
Usually, assuming the package is built to be run on the _same_
architectures, `configure' can figure that out, but if it prints a
message saying it cannot guess the machine type, give it the
`--build=TYPE' option. TYPE can either be a short name for the system
type, such as `sun4', or a canonical name which has the form:
CPU-COMPANY-SYSTEM
view release on metacpan or search on metacpan
lib/Autodia/Diagram.pm view on Meta::CPAN
print STDERR "Diagram.pm : add_class : ignoring duplicate class",
$class->Name, "\n";
# warn Dumper (original_class=>$self->{"packages"}{"class"}{$class->Name});
return $self->{"packages"}{"class"}{$class->Name};
}
# note : when running benchmark.pl this seems to appear which I guess is a
# scoping issue when calling autodial multiple times - odd, beware if using
# mod_perl or something similar, not that it breaks anything but you never know
$class->Set_Id($self->_object_count);
$self->_package_add($class);
view release on metacpan or search on metacpan
lib/AxKit/App/TABOO/Provider/Classification.pm view on Meta::CPAN
etc. In contrast with the News provider, this provider mainly
interacts with Plural objects to make lists of stories. Also, it
doesn't deal with comments.
The rest of the documentation has yet to be written, but as one can
guess, it may share some things with the NewsList Provider.
=cut
lib/AxKit/App/TABOO/Provider/Classification.pm view on Meta::CPAN
category in the path.
=head1 BUGS/TODO
I guess this documentation could be more verbose.
=head1 SEE ALSO
L<AxKit::App::TABOO::Data::Provider::NewsList>,
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
ByteLoader/ByteLoader.pm view on Meta::CPAN
# Need to check if ByteLoader is not already linked statically.
# Before 5.6 byterun was in CORE, so we have no name clash.
require Config; Config->import();
if ($Config{static_ext} =~ /\bByteLoader\b/) {
# We overrode the static module with our site_perl version. Which version?
# We can only check the perl version and guess from that. From Module::CoreList
$VERSION = '0.03' if $] >= 5.006;
$VERSION = '0.04' if $] >= 5.006001;
$VERSION = '0.05' if $] >= 5.008001;
$VERSION = '0.06' if $] >= 5.009003;
$VERSION = '0.06' if $] >= 5.008008 and $] < 5.009;
view release on metacpan or search on metacpan
Malcolm Beattie <mbeattie@sable.ox.ac.uk> 1998-02-20 16:42:13
* Merge perlext/Compiler/... into mainline. Some files move to
ext/B/..., some to lib/B/..., O.pm and B.pm go in lib and some
move to the base perl directory (e.g. headers). Will need some
cleaning up before it builds properly, I would guess.
Malcolm Beattie <mbeattie@sable.ox.ac.uk> 1998-02-20 16:39:38
* [compiler] Win32 changes from Sarathy, tweaked slightly by me.
Malcolm Beattie <mbeattie@sable.ox.ac.uk> 1998-02-17 17:50:50
view release on metacpan or search on metacpan
=back
=head1 CAVEATS
Because of the nature of the compiler, C<Fathom> has to do some
guessing about the syntax of your program. See the comments in the
module for specifics.
C<Fathom> doesn't work very well on modules yet.
=head1 AUTHOR
return $output;
}
# Keep track of the sub associated with each symbol. If we find multiple
# symbol table entries pointing to one sub, then we'll guess (in
# do_compile()) that the sub is imported, and we'll ignore it. Thanks
# to Mark-Jason Dominus for suggesting this strategy.
sub B::OBJECT::tally_symrefs
{
my ($symbol) = @_;
view release on metacpan or search on metacpan
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/B/Lint/StrictOO.pm view on Meta::CPAN
my B::SVOP $method_op = $children[-1];
# Not a method call at all!
return if $invocant_op == $method_op;
my $category = guess_invocant_category( $invocant_op );
if ( _invocant_is_literal_class() == $category ) {
lint_class_method_call(
$invocant_op,
$method_op
lib/B/Lint/StrictOO.pm view on Meta::CPAN
return 0;
}
sub guess_invocant_category {
my ( $op ) = @_;
# We've been handed a B::NULL object which is a representation for
# a null pointer.
if ( ! $$op ) {
lib/B/Lint/StrictOO.pm view on Meta::CPAN
=head2 lint_class_method_call
=head2 nearby_classes_perform
=head2 guess_invocant_category
=head2 nearby_classes_in_current_file
=head2 nearby_classes_in_file
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/B/ppport.h view on Meta::CPAN
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
lib/B/ppport.h view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif