Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 0.982 )
Audio-SndFile
view release on metacpan or search on metacpan
lib/Audio/SndFile.pm view on Meta::CPAN
=head1 SEE ALSO
Erik de Castro Lopo's libsndfile page: L<http://www.mega-nerd.com/libsndfile/>
L<Audio::SoundFile> - an old(er) interface to libsndfile. Doesn't build on
my perl and looks incomplete.
L<Audio::Play> - play audio and read/write .au files.
L<Audio::LADSPA> - process audio streams using LADSPA plugins.
Audio-TagLib
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
Audio-Wav
view release on metacpan or search on metacpan
Wav/Read.pm view on Meta::CPAN
//verified formats (output is identical output to pureperl):
// 1 channel signed 16 little endian
// 2 channel signed 16 little endian
// 1 channel unsigned 8 little endian
// 2 channel unsigned 8 little endian
//verified "looks right" on these formats:
// 1 channel signed 32 little endian
// 2 channel signed 32 little endian
// 1 channel signed 24 little endian
// 2 channel signed 24 little endian
Audio-XMMSClient
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module||5.006000|v
localize|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p
Audit-DBI-TT2
view release on metacpan or search on metacpan
examples/js/jquery-1.9.1.js view on Meta::CPAN
//convert "normal" to computed value
if ( val === "normal" && name in cssNormalTransform ) {
val = cssNormalTransform[ name ];
}
// Return, converting to number if forced or a qualifier was provided and val looks numeric
if ( extra === "" || extra ) {
num = parseFloat( val );
return extra === true || jQuery.isNumeric( num ) ? num || 0 : val;
}
return val;
Audit-DBI
view release on metacpan or search on metacpan
lib/Audit/DBI/Utils.pm view on Meta::CPAN
{
my ( $variable_1, $variable_2 ) = @_;
# For numbers, return numerical comparison.
return $variable_1 == $variable_2
if Scalar::Util::looks_like_number( $variable_1 ) && Scalar::Util::looks_like_number( $variable_2 );
# Otherwise, use exact string match.
return $variable_1 eq $variable_2;
}
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.
( run in 0.982 second using v1.01-cache-2.11-cpan-64827b87656 )