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";
view all matches for this distribution
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";
view all matches for this distribution
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";
view all matches for this distribution
view release on metacpan or search on metacpan
(define add (lambda (a) (lambda (b) (+ a b))))
(define add2 (add 2))
(map add2 (list 1 2 3))
;; => (list 3 4 5)
Using C<Attribute::Curried>, the Perl equivalent looks like this:
sub add :Curry(2) { $_[0] + $_[1] }
*add2 = add(2);
map { add2($_) } 1..3;
# => (3, 4, 5)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Attribute/GlobalEnable.pm view on Meta::CPAN
{ Attribute_name => [ list of flags ], Attribute_name_2 ... }
The ENABLE_FLAG is optional, and describes flags that can be set for the
exported 'Attribute_name' subroutines. These are exported as global
constants, so it looks nice and neat in your code. This essentially links
that sub call to that flag. The flag is still set like it would normally be
set in the ENABLE_CHK hash, however, you still must use the 'SPECIAL_KEY'
(see above) in the assignment, so your assignment will look like:
'SPECIAL_KEY'_'FLAG'
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Attribute/Handlers/Clean.pm view on Meta::CPAN
non-array-reference arguments in an array constructor:
$data = [ $data ] unless ref $data eq 'ARRAY';
Typically, however, things are the other way around: the tieable class expects
its arguments as a flattened list, so the attribute looks like:
sub Cycle : ATTR(SCALAR) {
my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
my @data = ref $data eq 'ARRAY' ? @$data : $data;
tie $$referent, 'Tie::Whatever', @data;
lib/Attribute/Handlers/Clean.pm view on Meta::CPAN
=item findsym
my $symbol = Attribute::Handlers::Clean::findsym($package, $referent);
The function looks in the symbol table of C<$package> for the typeglob for
C<$referent>, which is a reference to a variable or subroutine (SCALAR, ARRAY,
HASH, or CODE). If it finds the typeglob, it returns it. Otherwise, it returns
undef. Note that C<findsym> memoizes the typeglobs it has previously
successfully found, so subsequent calls with the same arguments should be
much faster.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Attribute/Handlers.pm view on Meta::CPAN
non-array-reference arguments in an array constructor:
$data = [ $data ] unless ref $data eq 'ARRAY';
Typically, however, things are the other way around: the tieable class expects
its arguments as a flattened list, so the attribute looks like:
sub UNIVERSAL::Cycle : ATTR(SCALAR) {
my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
my @data = ref $data eq 'ARRAY' ? @$data : $data;
tie $$referent, 'Tie::Whatever', @data;
lib/Attribute/Handlers.pm view on Meta::CPAN
=item findsym
my $symbol = Attribute::Handlers::findsym($package, $referent);
The function looks in the symbol table of C<$package> for the typeglob for
C<$referent>, which is a reference to a variable or subroutine (SCALAR, ARRAY,
HASH, or CODE). If it finds the typeglob, it returns it. Otherwise, it returns
undef. Note that C<findsym> memoizes the typeglobs it has previously
successfully found, so subsequent calls with the same arguments should be
much faster.
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/Test/Builder.pm view on Meta::CPAN
my ($self, $regex) = @_;
my $usable_regex = undef;
if( ref $regex eq 'Regexp' ) {
$usable_regex = $regex;
}
# Check if it looks like '/foo/'
elsif( my($re, $opts) = $regex =~ m{^ /(.*)/ (\w*) $ }sx ) {
$usable_regex = length $opts ? "(?$opts)$re" : $re;
};
return($usable_regex)
};
t/lib/Test/Builder.pm view on Meta::CPAN
=item B<todo>
my $todo_reason = $Test->todo;
my $todo_reason = $Test->todo($pack);
todo() looks for a $TODO variable in your tests. If set, all tests
will be considered 'todo' (see Test::More and Test::Harness for
details). Returns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.
todo() is pretty part about finding the right package to look for
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Attribute/Tie.pm view on Meta::CPAN
=over 2
=item semantics
L<Attribute::Handlers> offers an alternate approach via autotie. That
looks like this.
use Attribute::Handlers autotie => { File => 'Tie::File' };
my @array : File('array.txt');
Which is handy but it hides the fact that the variable is actually
view all matches for this distribution
view release on metacpan or search on metacpan
is( $td->get_next_tone, undef, ' ... returning 0 discards tone' );
my $orig = $td->valid_tones();
is( ref($orig), 'ARRAY', 'valid_tones() returns an array ref' );
cmp_ok( scalar(@$orig), '>=', 200, ' ... that looks right' );
$td->valid_tones( [ 1, 3, 2 ] );
my $cur = $td->valid_tones();
cmp_ok( scalar(@$cur), '==', 3, ' ... passing new array ref replaces' );
view all matches for this distribution
view release on metacpan or search on metacpan
beep-1.2.2/README view on Meta::CPAN
problems with beep bailing on ioctl calls will magically vanish, which is
pleasant, and the only reason not to is that any suid program is a potential
security hole. Conveniently, beep is very short, so auditing it is pretty
straightforward.
Decide for yourself, of course, but it looks safe to me - there's only one
buffer and fgets doesn't let it overflow, there's only one file opening, and
while there is a potential race condition there, it's with /dev/console. If
someone can exploit this race by replacing /dev/console, you've got bigger
problems. :)
view all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
DB/Reports.pm view on Meta::CPAN
by default. If you also need access to the song list for each
individual album, pass a true value with the -include_songs option.
=cut
# The internal data strcuture for album reports looks like this
#
# $self = [ {
# album => album name,
# album_id => album id,
# artists => [ all contributing artists ],
view all matches for this distribution
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";
view all matches for this distribution
view release on metacpan or search on metacpan
New functions for sanity check of sizeof().
Decrease the size of subchunk to 7KB.
Add low-level debugging code.
Correct off-by-one error in le_short_sample_stats().
1.01 Protect against broken Data::Flow v1.00.
1.02 Enable remote machine-code debugging of crashes (looks like it crashes
on big-endian 64-bit machines...).
1.03 Upgrade remote machine-code debugging to v0.01.
1.04 Upgrade remote machine-code debugging to v0.02.
2.00 For pointer-conversion, append ! on pack specifier for long if supported.
Should fix the crash on 64-bit machines.
view all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
int i = 0, len = AvFILL(av) + 1;
SV **sv;
$var = alloca(len * sizeof(int));
while (i < len) {
sv = av_fetch(av, i, 0);
if (sv && looks_like_number(*sv)) {
${var}[i] = SvIV(*sv);
}
else {
${var}[i] = 0;
} ++i;
view all matches for this distribution
view release on metacpan or search on metacpan
Buffer/Buffer.pod view on Meta::CPAN
=head2 get_raw
my $packed_string = $buffer->get_raw();
Get the buffer data unconverted. Whatever your machine thinks a C<float> array
looks like, dumped into a perl string. This is the LADSPA internal data format: fast,
reasonably high resolution and I<very> non-portable.
=head2 set_words
$buffer->set_words($packed_string, $amp);
view all matches for this distribution
view release on metacpan or search on metacpan
libsamplerate/M4/libtool.m4 view on Meta::CPAN
# Convert to MSYS style.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'`
;;
cygwin*)
# Convert to unix form, then to dos form, then back to unix form
# but this time dos style (no spaces!) so that the unix form looks
# like /cygdrive/c/PROGRA~1:/cygdr...
sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
;;
libsamplerate/M4/libtool.m4 view on Meta::CPAN
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group compilers (*not* the Pentium gcc compiler,
# which looks to be a dead project)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
ccc*)
view all matches for this distribution
view release on metacpan or search on metacpan
XSRETURN_UNDEF;
}
old_length = SvLEN(right) / sizeof(mad_fixed_t);
bufsize = old_length * ((int)((double)1 / fscale) + 1);
/* ugh.. that always looks ugly.. but it works */
data = (mad_fixed_t *)SvPV_nolen(right);
Renew((void *)resampled, bufsize, mad_fixed_t);
length = mad_resample_block(THIS, &THIS->state[1], old_length, data, resampled);
view all matches for this distribution
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";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Nama.pm view on Meta::CPAN
# How is $ui->init_gui interpreted? If $ui belongs to class
# Audio::Nama::Text, Nama finds a no-op init_gui() stub in package Audio::Nama::Text
# and does nothing.
# If $ui belongs to class Audio::Nama::Graphical, Nama looks for
# init_gui() in package Audio::Nama::Graphical, finds nothing, so goes to
# look in the base class. All graphical methods (found in
# Graphical_subs.pl) are defined in the root namespace so they can
# call Nama core methods without a package prefix.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Ofa/Util.pm view on Meta::CPAN
}
=head2 musicdns_lookup
This looks up a track at the MusicDNS web service.
To do a fingerprint lookup, the keys C<fingerprint> and C<duration> must be
present, where duration is the length of the song in milli seconds.
Additionally, the following fields (defaults in parentheses) will be sent to
the MusicDNS service:
lib/Audio/Ofa/Util.pm view on Meta::CPAN
}
=head2 musicbrainz_lookup
This looks up a PUID at MusicBrainz. The PUID can come from a call to
L</musicdns_lookup>. In fact this is implicitly done if there is no PUID
stored in the object (cf. L</SYNOPSIS>).
This returns a list of L<WebService::MusicBrainz::Response::Track> objects on
success, or the first of them in scalar context.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Opusfile.pm view on Meta::CPAN
Dies if the given buffer does not contain valid data.
=item Audio::Opusfile::test(I<$buffer>)
Returns true if the given buffer looks like the beginning of a valid
Ogg Opus file, false otherwise.
Dies if the given buffer does not have sufficient data to tell if it
is an Opus stream or if it looks like a Opus stream but parsing it
failed.
=item $of->B<head>
Returns an L<Audio::Opusfile::Head> object corresponding to the file.
view all matches for this distribution
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
view all matches for this distribution
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";
view all matches for this distribution
view release on metacpan or search on metacpan
use Audio::Radio::V4L
blah blah blah
DESCRIPTION
Stub documentation for this module was created by ExtUtils::ModuleMaker.
It looks like the author of the extension was negligent enough to leave
the stub unedited.
Blah blah blah.
USAGE
view all matches for this distribution
view release on metacpan or search on metacpan
SID_file_format.txt view on Meta::CPAN
The SID file header v1
======================
The detailed structure of the SID header looks like the following. Header
offsets are in hexadecimal notation. Other integer values are decimal unless
explicitly marked otherwise. Any stored integer values are in big-endian
format:
+00 magicID: 'PSID' or 'RSID'
view all matches for this distribution
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
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
view all matches for this distribution
view release on metacpan or search on metacpan
Data/mkVFunc view on Meta::CPAN
Thus what Tk does is build a table of functions that should be callable.
This table is auto-generated from the .h file by looking for
'extern' (and EXTERN which is #defined to 'extern').
Thus any function marked as 'extern' is 'referenced' by the table.
The address of the table is then stored in a perl variable when Tk is loaded.
When HList is loaded it looks in the perl variable (via functions
in perl - the 'base executable') to get the address of the table.
The same utility that builds the table also builds a set of #define's.
HList.c (and any other .c files which comprise HList) #include these
#define's. So that
view all matches for this distribution