Result:
found more than 1002 distributions - search limited to the first 2001 files matching your query
( run in 1.475 )
Authen-CAS-Client
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Authen-CyrusSASL
view release on metacpan or search on metacpan
Authen/CyrusSASL.pm view on Meta::CPAN
unix socket.
There are two types for Type attribute - one for saslauth daemon and one for
old pwcheck daemon (SASL_PWCHECK). The Type attribute is obligatory.
The default value for Dir is '/var/run/pwcheck' (it then looks for
the path '/var/run/pwcheck/pwcheck') for pwcheck method,
and '/var/run/saslauthd' (path '/var/run/saslauthd/mux') for saslauthd method.
You can specify the full path for pwcheck or mux special files
with the Path attribute.
Authen-Krb5-Admin
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.011000||p
Authen-Krb5-Simple
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
It works by trying to compile this:
int main(void) { return 0; }
and linking it to the specified libraries. If something pops out the end
which looks executable, then we know that it worked.
=head1 FUNCTIONS
All of these take the same named parameters and are exported by default.
To avoid exporting them, C<use Devel::CheckLib ()>.
Authen-NZRealMe
view release on metacpan or search on metacpan
t/10-metadata.t view on Meta::CPAN
my $sp = Authen::NZRealMe->service_provider( conf_dir => $conf_dir );
isa_ok($sp, 'Authen::NZRealMe::ServiceProvider');
is($sp->conf_dir, $conf_dir, "SP's conf_dir looks good");
is($sp->entity_id, 'https://www.example.govt.nz/app/sample-login',
"SP EntityID loaded from metadata looks good");
is($sp->organization_name, 'Department of Examples (login)',
"SP OrganizationName loaded from metadata looks good");
is($sp->organization_url, 'https://www.example.govt.nz/',
"SP OrganizationURL loaded from metadata looks good");
is($sp->contact_company, 'Department of Examples Login Services',
"SP contact company name loaded from metadata looks good");
my @acs_list = $sp->acs_list;
is(scalar(@acs_list), 2, 'two Assertion Consumer service are defined');
my($acs0, $acs1) = @acs_list;
ok($acs0, 'ACS 0');
is($acs0->{location}, 'https://www.example.govt.nz/app/sample/login-acs',
" URL from metadata looks good");
is($acs0->{index}, '0', " index");
is($acs0->{is_default}, undef, " not default");
is($acs0->{binding}, 'urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST', " binding");
ok($acs1, 'ACS 1');
is($acs1->{location}, 'https://www.example.govt.nz/app/sample/login-acs',
" URL from metadata looks good");
is($acs1->{index}, '1', " index");
is($acs1->{is_default}, 1, " is default");
is($acs1->{binding}, 'urn:oasis:names:tc:SAML:2.0:bindings:HTTP-Artifact', " binding");
# Load IdP metadata for login service
my $idp = $sp->idp;
isa_ok($idp, 'Authen::NZRealMe::IdentityProvider');
is($idp->entity_id, 'https://test.fakeme.govt.nz/saml2',
"IdP EntityID loaded from metadata looks good");
# Load our SP metadata for talking to the assertion service
$sp = Authen::NZRealMe->service_provider(
t/10-metadata.t view on Meta::CPAN
type => 'assertion',
);
isa_ok($sp, 'Authen::NZRealMe::ServiceProvider');
is($sp->conf_dir, $conf_dir, "SP's conf_dir looks good");
is($sp->entity_id, 'https://www.example.govt.nz/app/sample-identity',
"SP EntityID loaded from metadata looks good");
is($sp->organization_name, 'Department of Examples (identity)',
"SP OrganizationName loaded from metadata looks good");
is($sp->organization_url, 'https://www.example.govt.nz/',
"SP OrganizationURL loaded from metadata looks good");
is($sp->contact_company, 'Department of Examples Identity Services',
"SP contact company name loaded from metadata looks good");
@acs_list = $sp->acs_list;
is(scalar(@acs_list), 2, 'two Assertion Consumer service are defined');
($acs0, $acs1) = @acs_list;
ok($acs0, 'ACS 0');
is($acs0->{location}, 'https://www.example.govt.nz/app/sample/identity-acs',
" URL from metadata looks good");
is($acs0->{index}, '0', " index");
is($acs0->{is_default}, undef, " not default");
is($acs0->{binding}, 'urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST', " binding");
ok($acs1, 'ACS 1');
is($acs1->{location}, 'https://www.example.govt.nz/app/sample/identity-acs',
" URL from metadata looks good");
is($acs1->{index}, '1', " index");
is($acs1->{is_default}, 1, " is default");
is($acs1->{binding}, 'urn:oasis:names:tc:SAML:2.0:bindings:HTTP-Artifact', " binding");
# Load IdP metadata for login service
$idp = $sp->idp;
isa_ok($idp, 'Authen::NZRealMe::IdentityProvider');
is($idp->entity_id, 'https://test.fakeme.govt.nz/fakemetest/fakemeidp',
"IdP EntityID loaded from metadata looks good");
# Extract a bit of iCMS metadata
my $method = eval { $sp->_icms_method_data('Validate'); } || {};
Authen-Passphrase-Scrypt
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.010001||p
Authen-PhoneChallenge
view release on metacpan or search on metacpan
system.
User dials extension that requires authentication for some reason.
User asked for their identification number.
User given a challenge number.
User looks up the proper response to the challenge on previously issued card and enters it.
Call continues as normal.
The idea was inspired by OPIE, but is in no way to be considered as secure.
Additional logic such as maximum failure counts, etc are left as an exercise to
the calling code.
Authen-Radius
view release on metacpan or search on metacpan
$vendor = undef;
}
elsif ($gnuradius_dict) {
# ATTRIBUTE name number type [vendor] [flags]
($cmd, $name, $id, $type, $vendor, undef) = split(/\s+/, $line);
# flags looks like '[LR-R-R]=P'
$vendor = NO_VENDOR if ($vendor && ($vendor eq '-' || $vendor =~ /^\[/));
}
else {
# our default format (Livingston radius)
($cmd, $name, $id, $type, $vendor) = split(/\s+/, $line);
Authen-SASL-XS
view release on metacpan or search on metacpan
0.13-server
Russ Allbery: the 0.12-server distribution of this module has a typemap that
ends up casting the pointer return from server_new and client_new through an
int. This looks like it's causing pointer truncation and various problems on
some 64-bit platforms (particularly Debian alpha and Debian ia64).
There is a simpler fix than the patch below (just replacing int with long will
work on most platforms, probably), but reading through the perlxs man page,
there's apparently a specific way in which one is supposed to handle module
Authen-Simple-LDAP
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Authen-Simple-WebForm
view release on metacpan or search on metacpan
lib/Authen/Simple/WebForm.pm view on Meta::CPAN
lwp_requests_redirectable => {
type => Params::Validate::ARRAYREF,
default => ['GET', 'POST'],
optional => 1,
},
# yes, this looks like a hash, but it's not (allows keys to show up twice)
# [ field => value, field => value ]
extra_fields => {
type => Params::Validate::ARRAYREF,
default => [],
optional => 1,
},
# yes, this looks like a hash, but it's not (allows keys to show up twice)
# [ field => value, field => value ]
extra_headers => {
type => Params::Validate::ARRAYREF,
default => [],
optional => 1,
Authen-Simple
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Authorization-AccessControl
view release on metacpan or search on metacpan
lib/Authorization/AccessControl/Grant.pm view on Meta::CPAN
# ABSTRACT: Encapsulation of the parameters of a privilege grant
use Data::Compare;
use Readonly;
use Scalar::Util qw(looks_like_number);
use experimental qw(signatures);
use overload
'""' => 'to_string';
lib/Authorization/AccessControl/Grant.pm view on Meta::CPAN
my $role = $self->{_role} ? '[' . $self->{_role} . '] ' : '';
my $restrictions = '';
foreach (keys($self->{_restrictions}->%*)) {
my $v;
if ($self->{_restrictions}->{$_}) {$v = $self->{_restrictions}->{$_}}
elsif (looks_like_number($self->{_restrictions}->{$_})) {$v = 0}
else {$v = 'false'}
$restrictions .= "$_=$v,";
}
chop($restrictions);
$role . $self->{_resource} . ' => ' . $self->{_action} . '(' . $restrictions . ')';
Auto-Mata
view release on metacpan or search on metacpan
examples/fib.pl view on Meta::CPAN
# The algorithm used is based on the solution described here:
# http://stackoverflow.com/a/16389221
#-------------------------------------------------------------------------------
use strict;
use warnings;
use Scalar::Util 'looks_like_number';
use Types::Standard -all;
use Type::Utils -all;
use Auto::Mata;
my $Number = declare 'Number', as Str, where { looks_like_number $_ };
my $ZeroPlus = declare 'ZeroPlus', as $Number, where { $_ >= 0 };
my $Invalid = declare 'Invalid', as ~$ZeroPlus;
my $Zero = declare 'Zero', as $Number, where { $_ == 0 };
my $One = declare 'One', as $Number, where { $_ == 1 };
my $Term = declare 'Term', as $Number, where { $_ >= 2 };
AutoCode
view release on metacpan or search on metacpan
docs/RFC.pod view on Meta::CPAN
=item * AutoCode::AccessorMaker::make_scalar_accessor
=back
I have some unspoken sense that the first one is better, though the second one
looks more like a normal method out of the OOP concept.
=head2 RFC 5: RFC numbers
This is a out-of-topic.
AutoXS
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p
Autoconf-Template
view release on metacpan or search on metacpan
bin/autoconf-template-perl view on Meta::CPAN
# Fri Feb 10 14:16:12 2023
$options->{version} = '2.1.0'; ## no critic (RequireInterpolation)
$options->{generator} = basename $PROGRAM_NAME;
# convenience routines for TT
# creates a list that looks like this:
# FOO = \
# ITEM \
# ITEM \
# ITEM
Avro
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
AxKit-App-Gallery
view release on metacpan or search on metacpan
mkdir /usr/local/share/ax-app-gallery
cp stylesheets/* /usr/local/share/ax-app-gallery
* Edit proofsheet2html.xsl and imagesheet2html.xsl. These both contain
a statement that looks like this:
<xsl:include href="file:///home/nik/Local-CVS/CPAN/AxKit::App::Gallery/src/stylesheets/breadcrumb.xsl"/>
Adjust the path to reflect the full path to the file breadcrumb.xsl on
your system. Unfortunately, this is a side effect of interactions
AxKit-XSP-ESQL
view release on metacpan or search on metacpan
}
sub get_column {
my ($column, $ancestor) = @_;
$ancestor ||= 0;
if (DBI::looks_like_number($column)) {
return $RESULTS[$ancestor]{ $NAMES[$ancestor][$column - 1] };
}
else {
return $RESULTS[$ancestor]{$column};
}
}
sub column_number {
my ($col, $ancestor) = @_;
$ancestor ||= 0;
if (DBI::looks_like_number($col)) {
return $col - 1;
}
else {
my $num = 0;
for (@{$NAMES[$ancestor]}) {
AxKit-XSP-PerForm
view release on metacpan or search on metacpan
=over 4
=item Form
This is actually an Apache::Table object, so it looks and works just like an
ordinary hashref, and contains the values submitted from the form, or is
perhaps empty if the form hasn't been submitted yet. It may also contain any
parameters passed in the querystring. For multi-value parameters, they can
be accessed via Apache::Table's get, add and set methods. See
L<Apache::Table>.
AxKit2
view release on metacpan or search on metacpan
lib/AxKit2/Config.pm view on Meta::CPAN
for the value, and down to the global level if it is still not found.
=head1 LOCATION MATCHING
How AxKit2 matches a request to a particular C<< <Location> >> section is at
best described as naive. It simply looks for the last matching location section
in the config file. This has consequences that I should document better.
=cut
Azure-SAS-Timestamp
view release on metacpan or search on metacpan
lib/Azure/SAS/Timestamp.pm view on Meta::CPAN
sub parse_timestamp_str {
my $str = shift;
## NOTE: It looks like Time::Piece strptime will not support timezone by
## name, so we can't support arguments where the zone is expressed this
## way (for example 2020-05-10T10:00:00CST). It (maybe?) can parse an
## offset. Also, DateTime could (of course) handle this. Of course,
## DateTime will not handle parsing the string as well. For now, we won't
## support alternate time zones.
B-C
view release on metacpan or search on metacpan
warn "Cached $package is cached\n" if $debug{pkg};
}
return $include_package{$package};
}
# Now see if current package looks like an OO class. This is probably too strong.
if (!$all_bc_deps{$package}) {
foreach my $m (qw(new DESTROY TIESCALAR TIEARRAY TIEHASH TIEHANDLE)) {
# 5.10 introduced version and Regexp::DESTROY, which we dont want automatically.
# XXX TODO This logic here is wrong and unstable. Fixes lead to more failures.
# The walker deserves a rewrite.
B-CompilerPhase-Hook
view release on metacpan or search on metacpan
lib/B/CompilerPhase/Hook.pm view on Meta::CPAN
enqueue_END { print "14. END blocks run LIFO at quitting time.\n" }
enqueue_BEGIN { print " 2. So this line comes out second.\n" }
enqueue_UNITCHECK { print " 3. UNITCHECK blocks run LIFO after each file is compiled.\n" }
enqueue_INIT { print " 9. You'll see the difference right away.\n" }
}
print "13. It only _looks_ like it should be confusing.\n";
# With apologies to the `BEGIN-UNITCHECK-CHECK-INIT-and-END` section of `perlmod`
=head1 DESCRIPTION
B-DeparseTree
view release on metacpan or search on metacpan
lib/B/DeparseTree/P518.pm view on Meta::CPAN
@ISA = qw(Exporter);
BEGIN {
# List version-specific constants here.
# Easiest way to keep this code portable between version looks to
# be to fake up a dummy constant that will never actually be true.
foreach (qw(OPpSORT_INPLACE OPpSORT_DESCEND OPpITER_REVERSED OPpCONST_NOVER
OPpPAD_STATE PMf_SKIPWHITE RXf_SKIPWHITE
RXf_PMf_CHARSET RXf_PMf_KEEPCOPY
CVf_LOCKED OPpREVERSE_INPLACE OPpSUBSTR_REPL_FIRST
B-Foreach-Iterator
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
B-Hooks-AtRuntime-OnlyCoreDependencies
view release on metacpan or search on metacpan
$opt{'compat-version'} = 5.003_07 unless exists $opt{'compat-version'};
$opt{'compat-version'} = int_parse_version($opt{'compat-version'});
my $int_min_perl = int_parse_version(5.003_07);
# Each element of this hash looks something like:
# 'Poison' => {
# 'base' => '5.008000',
# 'provided' => 1,
# 'todo' => '5.003007'
# },
LOOKBEHIND_END_t8|||Viu
LOOKBEHIND_END_tb_p8|||Viu
LOOKBEHIND_END_tb_pb|||Viu
LOOKBEHIND_END_tb|||Viu
LOOKBEHIND_END|||Viu
looks_like_bool|5.027008||Viu
looks_like_number|5.003007|5.003007|
LOOP_PAT_MODS|5.009005||Viu
lop|5.005000||Viu
lossless_NV_to_IV|5.031001||Vniu
LOWEST_ANYOF_HRx_BYTE|5.031002||Viu
L_R_TZSET|5.009005|5.009005|Vn
* otherwise call the original that doesn't have an upper limit parameter */
# define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \
(((((e) - (s)) <= 0) \
/* We could just do nothing, but modern perls croak */ \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
: D_PPP_TO_ ## name ## _CALLEE(s,r,l))
#endif
# define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \
(((((e) - (s)) <= 0) \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
/* Get the changed code point and store its UTF-8 */ \
B-Hooks-AtRuntime
view release on metacpan or search on metacpan
lib/B/Hooks/AtRuntime.pm view on Meta::CPAN
});
};
}
# In order to avoid needing to stuff text into perl's lexer too often,
# the code stuffed looks like this
#
# B::Hooks::AtRuntime::run(@B::Hooks::Runtime::hooks);
# BEGIN { B::Hooks::Runtime::clear(1) }
#
# The way this works is as follows.
B-Hooks-OP-Annotation
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.011000||p
( run in 1.475 second using v1.01-cache-2.11-cpan-39bf76dae61 )