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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
Used to specify the comment associated with this FITS item.
=item B<Type>
Used to specify the variable type. See the C<type> method
for more details. A type will be guessed if one is not supplied.
The guess may well be wrong.
=back
Does nothing if these keys are not supplied.
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
$self->type("BLANK");
} elsif (!$self->keyword || $self->keyword =~ /^(COMMENT|HISTORY)$/) {
# COMMENT, HISTORY, and blank cards are special
$self->type('COMMENT')
} else {
my $type = $self->guess_type( $self->value );
$self->type( $type ) if defined $type;
}
}
# End cards are special, need only do a Keyword => 'END' to configure
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
# Try to sort out the type if we havent got one
# We can not find LOGICAL this way since we can't
# tell the difference between 'F' and F
# an undefined value is typeless
unless (defined $type) {
$type = $self->guess_type( $value );
}
# Numbers behave identically whether they are float or int
# Logical is a number formatted as a "T" or "F"
if ($type eq 'INT' or $type eq 'FLOAT' or $type eq 'LOGICAL' or
lib/Astro/FITS/Header/Item.pm view on Meta::CPAN
# Return the result
return $card;
}
=item B<guess_type>
This class method can be used to guess the data type of a supplied value.
It is private but can be used by other classes in the Astro::FITS::Header
hierarchy.
$type = Astro::FITS::Header::Item->guess_type( $value );
Can not distinguish a string F from a LOGICAL F so will always guess
"string". Returns "string" if a type could not be determined.
=cut
sub guess_type {
my $self = shift;
my $value = shift;
my $type;
if (!defined $value) {
$type = "UNDEF";
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
$startdir = $IRAF_START; # base directory then they should use this
# environment variable to say so.
}
else{
# Make educated guesses as to where the IRAF login.cl might be hiding.
# If you have any other alternatives you could add them in here
# This is only really for general places rather than unique odd places
# though, use IRAF_START or the uparm parameter for those.
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Astro/Nova/LnLatPosn.pm
lib/Astro/Nova/ZoneDate.pm
libnova-0.15.0/aclocal.m4
libnova-0.15.0/AUTHORS
libnova-0.15.0/ChangeLog
libnova-0.15.0/config.guess
libnova-0.15.0/config.h.in
libnova-0.15.0/config.sub
libnova-0.15.0/configure
libnova-0.15.0/configure.in
libnova-0.15.0/COPYING
view all matches for this distribution
view release on metacpan or search on metacpan
erfasrc/src/taiutc.c view on Meta::CPAN
} else {
a1 = tai2;
a2 = tai1;
}
/* Initial guess for UTC. */
u1 = a1;
u2 = a2;
/* Iterate (though in most cases just once is enough). */
for ( i = 0; i < 3; i++ ) {
/* Guessed UTC to TAI. */
j = eraUtctai(u1, u2, &g1, &g2);
if ( j < 0 ) return j;
/* Adjust guessed UTC. */
u2 += a1 - g1;
u2 += a2 - g2;
}
/* Return the UTC result, preserving the TAI order. */
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
Table/Binary.pm view on Meta::CPAN
( @_ && 'HASH' eq ref($_[-1]) ? %{pop @_} : () ) );
# store the row data in what the caller wants, or the object's buffer.
my $row = shift || $self->{row_arr};
# guess what? there's (possibly only sometimes) an extra row filled
# with indefs at the end of the file! so we can't actually use
# the end of file condition to stop reading. ACKCKCKCCKKC!
return undef if $self->{row} == $self->{nrows};
view all matches for this distribution
view release on metacpan or search on metacpan
tools/modeldef view on Meta::CPAN
OBJECT_TYPE => <<'EOD',
This is a computed value representing the general type of the body. It
can be 'DEBRIS', 'PAYLOAD', 'ROCKET BODY', 'TBA', 'UNKNOWN', or 'OTHER'.
EOD
ORBITAL_TBA => <<'EOD', # boxscore
At a guess, number of objects on-orbit which are not yet classified.
EOD
PERIAPSIS => <<'EOD',
This is the perigee of the body's orbit in kilometers above the Earth's
surface.
EOD
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'warnings' => 0,
'Carp' => 0,
'Math::Trig' => 0, },
AUTHOR => [ 'Ron Hill <rkhill@firstlight.net>', 'Jean Forget <JFORGET@cpan.org>' ],
LICENSE => 'perl',
# The oldest Perl to check Astro::Sunrise 0.92 is 5.6.2. Therefore, I guess Astro::Sunrise 0.93 and next will work in 5.6.2 too.
MIN_PERL_VERSION => '5.6.2',
BUILD_REQUIRES => { 'Test::More' => '0', # should be 'TEST_REQUIRES', except that ExtUtils::MakeMaker 6.5705 does not accept it
'ExtUtils::MakeMaker' => '6.57_02', # the first version to accept several authors in an arrayref
},
META_MERGE => {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astro/WaveBand.pm view on Meta::CPAN
"450W:850W" => 443,
"450N:850N" => 442,
"350N:750N" => 344,
},
'SCUBA-2' => {
850 => 863, # guesses
450 => 445,
},
);
# Instruments that have natural units
lib/Astro/WaveBand.pm view on Meta::CPAN
=item B<natural_unit>
Override the natural unit to be used for stringification. If this
value is not set the class will determine the unit of choice by
looking at the instrument name and then by taking an informed guess.
$w->natural_unit('filter');
=cut
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astroboy/Base.pm view on Meta::CPAN
package Astroboy::Base;
use strict;
use vars qw(@ISA $VERSION @EXPORT);
use Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw(debug abs_music artists artists_count artist_guess);
use LEOCHARRE::Dir;
use LEOCHARRE::Class2;
use Carp;
no strict 'refs';
lib/Astroboy/Base.pm view on Meta::CPAN
}
sub artist_guess {
my ($self,$path) = ($_[0],lc($_[1]));
#TODO consider using String::Similarity::Group
unless($self->{artists_match}){
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
inc/boilerplate.pl view on Meta::CPAN
my $meta = CPAN::Meta->load_file( 'META.json' );
my $license = do {
my @key = ( $meta->license, $meta->meta_spec_version );
my ( $class, @ambiguous ) = Software::LicenseUtils->guess_license_from_meta_key( @key );
die if @ambiguous or not $class;
$class->new( $meta->custom( 'x_copyright' ) );
};
$file{'LICENSE'} = trimnl $license->fulltext;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AtomicParsley/Command.pm view on Meta::CPAN
return AtomicParsley::Command::Tags->new(%tags);
}
# Try our best to get the name of the temp file.
# Unfortunately. the temp file contains a random number,
# so this is a best guess.
sub _get_temp_file {
my ( $self, $directories, $file ) = @_;
# remove suffix
$file =~ s/(\.\w+)$/-temp-/;
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Attach/Stuff.pm view on Meta::CPAN
probably start with an SVG and work your way from there.
Before you can get there, you need measurements of the board and the location
of the screw holes. If you're lucky, you can find full schematics for your
board that will tell you the sizes exactly. If not, you'll need to get out
some callipers and possibly do some guesswork.
Protip: if you had to guess on some of the locations, etch a prototype into
cardboard. Then you can lay the board over the cardboard and see if it matches
up right.
=head1 METHODS
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AtteanX/Serializer/RDFa.pm view on Meta::CPAN
my $ser = Attean->get_serializer('RDFa')->new;
my $string = $ser->serialize_iter_to_bytes($iter);
my $ns = URI::NamespaceMap->new( { ex => iri('http://example.org/') });
$ns->guess_and_add('foaf');
my $note = RDF::RDFa::Generator::HTML::Pretty::Note->new(iri('http://example.org/foo'), 'This is a Note');
my $ser = Attean->get_serializer('RDFa')->new(base => iri('http://example.org/'),
namespaces => $ns,
style => 'HTML::Pretty',
generator_options => { notes => [$note]});
view all matches for this distribution
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 all matches for this distribution