view release on metacpan or search on metacpan
lib/Archive/Extract/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
lib/Archive/Extract.pm view on Meta::CPAN
} else {
### if we're on solaris we /might/ be using /bin/tar, which has
### a weird output format... we might also be using
### /usr/local/bin/tar, which is gnu tar, which is perfectly
### fine... so we have to do some guessing here =/
my @files = map { chomp; s!\x0D!!g if ON_WIN32;
!ON_SOLARIS ? $_
: (m|^ x \s+ # 'xtract' -- sigh
(.+?), # the actual file name
\s+ [\d,.]+ \s bytes,
view release on metacpan or search on metacpan
xs/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";
}
}
}
}
xs/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
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
#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
src/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
lib/Archive/Tar/Wrapper.pm view on Meta::CPAN
and returns 1 on success or C<undef> on failure.
The temporary directory holding the tar data gets cleaned up when C<$arch>
goes out of scope.
C<read> handles both compressed and uncompressed files. To find out if
a file is compressed or uncompressed, it tries to guess by extension,
then by checking the first couple of bytes in the tar file.
If only a limited number of files is needed from a tarball, they
can be specified after the tarball name:
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
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$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
lib/Archive/Zip.pm view on Meta::CPAN
sub _binmode {
my $fh = shift;
return _CAN($fh, 'binmode') ? $fh->binmode() : binmode($fh);
}
# Attempt to guess whether file handle is seekable.
# Because of problems with Windows, this only returns true when
# the file handle is a real file.
sub _isSeekable {
my $fh = shift;
return 0 unless ref $fh;
lib/Archive/Zip.pm view on Meta::CPAN
names, etc.).
C<Archive::Zip> tries to be consistent with file naming conventions, and will
translate back and forth between native and Zip file names.
However, it can't guess which format names are in. So two rules control what
kind of file name you must pass various routines:
=over 4
=item Names of files are in local format.
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
lib/Arithmetic/PaperAndPencil.pm view on Meta::CPAN
of the first partial remainder and of the second occurrence of the
divider.
Acceptable break from reality: I have not found anywhere an
explanation for this technique. The way it is implemented is just some
guesswork after some reverse engineering attempt on a few examples. A
special point is that it seems to require something similar to the
C<cheating> technique above, because I do not see how we can
"unstrike" the digits that were stricken with the previous digit
candidate.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$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::getcwd() );
view release on metacpan or search on metacpan
=cut
sub lock_indexes (\@) { Internals::SvREADONLY @{$_[0]}, 1; }
sub unlock_indexes (\@) { Internals::SvREADONLY @{$_[0]}, 0; }
# You cannot lock a specific index, because of shift...
# I guess, you could lock that one index, and allow all the other
# indexes _above_ it to be usable... should I do that?
=item lock_value
=item unlock_value
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
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
lib/Array/Unique.pm view on Meta::CPAN
=item 4) Using real SET
There are modules on CPAN that let you create and maintain SETs.
I have not checked any of those but I guess they just as much of
an overkill for this functionality as Unique::Array.
=back
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
guerillas
guernsey
guernseys
guerrilla
guerrillas
guess
guessable
guessed
guesser
guessers
guesses
guessing
guesstimate
guesstimated
guesstimates
guesstimating
guesswork
guessworks
guest
guested
guesthouse
guesthouses
guesting
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
misgrew
misgrow
misgrowing
misgrown
misgrows
misguess
misguessed
misguesses
misguessing
misguidance
misguidances
misguide
misguided
misguidedly
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
otalgias
otalgic
otalgies
otalgy
other
otherguess
otherness
othernesses
others
otherwhere
otherwhile
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
outgrowing
outgrown
outgrows
outgrowth
outgrowths
outguess
outguessed
outguesses
outguessing
outguide
outguided
outguides
outguiding
outgun
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
unguent
unguenta
unguents
unguentum
ungues
unguessable
unguided
unguis
ungula
ungulae
ungular
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Wordle.pm view on Meta::CPAN
guars
guava
gucks
gucky
gudes
guess
guest
guffs
gugas
guide
guids
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
guerillas
guernsey
guernseys
guerrilla
guerrillas
guess
guessable
guessed
guesser
guessers
guesses
guessing
guesstimate
guesstimated
guesstimates
guesstimating
guesswork
guessworks
guest
guested
guesthouse
guesthouses
guesting
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
misgrew
misgrow
misgrowing
misgrown
misgrows
misguess
misguessed
misguesses
misguessing
misguidance
misguidances
misguide
misguided
misguidedly
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
otalgias
otalgic
otalgies
otalgy
other
otherguess
otherness
othernesses
others
otherwhere
otherwhile
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
outgrowing
outgrown
outgrows
outgrowth
outgrowths
outguess
outguessed
outguesses
outguessing
outguide
outguided
outguides
outguiding
outgun
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
unguent
unguenta
unguents
unguentum
ungues
unguessable
unguided
unguis
ungula
ungulae
ungular
view release on metacpan or search on metacpan
lib/Art/World.pm view on Meta::CPAN
$self->$remove_from_seller_collection;
$self->clear_owner;
$self->set_owner([ $buyer ]);
push $buyer->collection->@*, $self;
# TODO guess it should bump some people reputation and artwork aura now
}
multi method change_owner ( Coinvestor $buyers ) {
# From Collector point of view
lib/Art/World.pm view on Meta::CPAN
# From Artwork point of view
$self->clear_owner;
$self->set_owner( $buyers->members );
push $buyers->collection->@*, $self;
# TODO guess it should bump some people reputation and artwork aura now
}
}
role Collective {
lib/Art/World.pm view on Meta::CPAN
method publish {};
}
class Place with Fame, Invitation, Space {
# Like, dunno, a city ? Could be in a Geo role I guess
has location ( type => Str );
class Institution with Market {
class Gallery with Exhibit, Buyer {
has artwork ( type => ArrayRef );
view release on metacpan or search on metacpan
lib/Articulate/Error.pm view on Meta::CPAN
Defaults to 500, always an integer.
=head3 caller
Tries to take a sensible guess at where in your code this was actually
thrown from. This may vary, don't rely on it!
=cut
has simple_message => (
view release on metacpan or search on metacpan
advice classes.
- Removed the now-redundant Aspect::Hook::Lexwrap entirely
- Simplified the Aspect::AdviceContext constructor to make it faster
- Logically merged the code-generated functionality from ->install
and the Hook::LexWrap-inspired ->hook methods for each Advice
class. This removes a lot of guess work and double handling from
the main execution path, and should be significantly faster.
- With the code merged, pushed the scope exit flag outside the
symbol table iteration in the installer. Instead of a large array
of separate exit-tracking objects, we can instead use one single
shared lexical hook that works via mixed depth closure Magick.
view release on metacpan or search on metacpan
lib/Astro/App/Satpass2/TUTORIAL.pod view on Meta::CPAN
object will also need some configuration so it knows how to fetch data
from its various sources.
Specifically, you need your latitude, longitude (from Greenwich
England), and height above sea level. The height is least critical, and
any reasonable guess will probably work.
Latitude and longitude can be specified in either decimal degrees (e.g.
40.5) or degrees, minutes and seconds (e.g. 40d30m0s). B<South> latitude
and B<West> longitude are negative.
view release on metacpan or search on metacpan
# Clean the string
$vol = _clean_string( $vol, 'R' );
# empty is okay [need to guess later on]
return (wantarray ? ('', '') : $vol) unless $vol;
# Get standard classification codes
my $classes = join( "", keys %CLASS);
view release on metacpan or search on metacpan
lib/Astro/Catalog/IO/TST.pm view on Meta::CPAN
}
# Magnitudes <- anything that ends in mag
# Assdume filter is in X_mag
# If no prefix assume R (yeah right) - we do not know the
# source of the catalog at this point so can not even guess
$construct{magnitudes} = {};
$construct{magerr} = {};
for my $key (keys %$star) {
print "LOOPING KEY = $key\n" if $DEBUG;
view release on metacpan or search on metacpan
lib/Astro/Coords.pm view on Meta::CPAN
# Somewhere to store the previous time so we can make sure things
# are iterating nicely
my $prevtime;
# The current best guess of the meridian time
my $mtime;
# Number of times we want to loop before aborting
my $max = 10;
view release on metacpan or search on metacpan
lib/Astro/FITS/CFITSIO/Simple.pm view on Meta::CPAN
# shallow copy, then delete rdfits options
my %delegate_opts = %{$opts};
delete @delegate_opts{ keys %rdfits_opts };
# if there are additional arguments, guess that we're being
# asked for some columns, and set the requested HDUTYPE to table
$rdfits_opts{hdutype} = 'table' if @_;
# validate arguments
my %opt = validate_with(
view release on metacpan or search on metacpan
lib/Astro/FITS/HdrTrans/ClassicCam.pm view on Meta::CPAN
=item B<quad_bounds>
Returns the detector bounds in pixels of the region of the detector
used. The region will be one of the four quadrants or the full
detector. We guess for the moment that keword C<QUAD> values of
1, 2, 3, 4 correspond to lower-left, lower-right, upper-left,
upper-right quadrants respectively, and 5 is the whole
256x256-pixel array.
=cut