view release on metacpan or search on metacpan
lib/File/MimeInfo/Simple.pm view on Meta::CPAN
kar: audio/midi
karbon: application/x-karbon
kcm: application/vnd.nervana
kdc: image/x-kodak-kdc
kdelnk: application/x-desktop
kfo: application/x-kformula
kia: application/vnd.kidspiration
kil: application/x-killustrator
kino: application/smil
kne: application/vnd.Kinar
knp: application/vnd.Kinar
lib/File/MimeInfo/Simple.pm view on Meta::CPAN
obj: application/x-tgif
ocl: text/x-ocl
oda: application/oda
odb: application/vnd.oasis.opendocument.database
odc: application/vnd.oasis.opendocument.chart
odf: application/vnd.oasis.opendocument.formula
odg: application/vnd.oasis.opendocument.graphics
odi: application/vnd.oasis.opendocument.image
odm: application/vnd.oasis.opendocument.text-master
odp: application/vnd.oasis.opendocument.presentation
ods: application/vnd.oasis.opendocument.spreadsheet
view release on metacpan or search on metacpan
lib/File/Overwrite.pm view on Meta::CPAN
=head1 SYNOPSIS
use File::Overwrite qw(overwrite);
# haha, now no-one will know I stole it
overwrite('sekrit_formular.txt');
unlink('sekrit_formular.txt');
=head1 DESCRIPTION
This module provides a few simple functions for overwriting data files. This
will protect against the simplest forms of file recovery.
view release on metacpan or search on metacpan
lib/File/Package.pm view on Meta::CPAN
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
#
$error = '';
no warnings;
*Carp::carp = sub {
$error .= (join '', @_);
view release on metacpan or search on metacpan
t/File/File/Package.pm view on Meta::CPAN
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
#
$error = '';
no warnings;
*Carp::carp = sub {
$error .= (join '', @_);
view release on metacpan or search on metacpan
Forgot to include File::Temp under PREREQ_PM in Makefile.PL.
0.02 Sat Nov 12 21:15:00 2005
Reformulated in response to feedback on 0.01 from Michael Graham. First
general release version. lib/File/Save/Home.pm exports seven functions on
request:
get_home_directory
get_subhome_directory_status
view release on metacpan or search on metacpan
t/File/File/Package.pm view on Meta::CPAN
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
#
$error = '';
no warnings;
*Carp::carp = sub {
$error .= (join '', @_);
view release on metacpan or search on metacpan
lib/File/Sticker/Database.pm view on Meta::CPAN
} # _add_tag_prefixes
=head2 _do_one_col_query
Do a SELECT query, and return the first column of results.
This is a freeform query, so the caller must be careful to formulate it correctly.
my $results = $self->_do_one_col_query($query);
=cut
view release on metacpan or search on metacpan
t/File/File/Package.pm view on Meta::CPAN
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
#
$error = '';
no warnings;
*Carp::carp = sub {
$error .= (join '', @_);
view release on metacpan or search on metacpan
t/File/File/Package.pm view on Meta::CPAN
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
#
$error = '';
no warnings;
*Carp::carp = sub {
$error .= (join '', @_);
view release on metacpan or search on metacpan
easyxs/README.md view on Meta::CPAN
detail.
EasyXS defines an `exs_sv_type` macro that takes an SV as argument
and returns a member of `enum exs_sv_type_e` (typedef’d as just
`exs_sv_type_e`; see `easyxs_scalar.h` for values). The logic is compatible
with the serialization logic formulated during Perl 5.36’s development cycle.
## SV/Number Conversion
### `UV* exs_SvUV(SV* sv)`
view release on metacpan or search on metacpan
- original version; created by h2xs 1.23 with options
-X -n Finance::Bank::ES::INGDirect
0.03 Junio 2007
- Se cambia el acceso para reconocimiento del tablero gráfico presentado
0.04 Agosto 2007
- Se actualiza cambio en el formulario de validación del PIN
view release on metacpan or search on metacpan
t/02-maintenance.html view on Meta::CPAN
<meta http-equiv="content-language" content="de"/>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" type="text/css" media="screen,projection,print" href="/iob3/common/css/main.css" />
<link rel="stylesheet" type="text/css" media="screen,projection,print" href="/iob3/common/css/formular.css" />
<!--[if gte IE 5]>
<link rel="stylesheet" type="text/css" media="screen,projection" href="/iob3/common/css/ie.css" />
<![endif]-->
<script type="text/javascript" src="/iob3/common/js/script.js"></script></head>
view release on metacpan or search on metacpan
CompanyNames/TextSupport.pm view on Meta::CPAN
formazane formazanes
forme formes
former formers
formidable formidably
formless formlessness
formula formulae formulaic formulas
formularies formulary
formulate formulated formulater formulates formulating formulation formulations formulator formulators
formyl formylated formylation
fornication fornicators
forsake forsaking
forsythia forsythias
fort forte fortes forties forts forty
CompanyNames/TextSupport.pm view on Meta::CPAN
reforge reforging
reform reformable reformate reformates reformation reformations reformative reformed reformer reformers reforming reformism reforms
reformat reformats reformatted reformatter reformatting
reformatories reformatory
reformist reformists
reformulate reformulated reformulates reformulating reformulation reformulations
refr refri
refract refractance refracted refracting refraction refractions refractive refractivity refractor refractories refractoriness refractors refractory refracts
refrain refrained refraining refrains
reframed reframing
refrected refrection
CompanyNames/TextSupport.pm view on Meta::CPAN
subfleet subfleets
subfloor subflooring subfloors
subfluoride subfluorides
subfolder subfolders
subform subforms
subformula subformulas
subfraction subfractioned subfractions
subfractionated subfractionation
subframe subframes
subfranchise subfranchises
subfunction subfunctions
CompanyNames/TextSupport.pm view on Meta::CPAN
former
formerly
formidable
forming
forms
formula
formulae
formulas
formulate
formulated
formulates
formulating
formulation
formulations
formulator
formulators
fornication
forsake
forsaken
forsakes
forsaking
CompanyNames/TextSupport.pm view on Meta::CPAN
reformed
reformer
reformers
reforming
reforms
reformulate
reformulated
reformulates
reformulating
reformulation
refract
refracted
refraction
refractory
refragment
view release on metacpan or search on metacpan
lib/Finance/Performance/Calc.pm view on Meta::CPAN
returns, calculate the performance over the quarter.
"ized" performance. Given a rate of return that covers multiple
periods, calculate the per-period return.
The formulae are taken from the book "Measuring Investment
Performance". Author: David Spaulding. ISBN: 0-7863-1177-0.
B<NOTE> Before using in a production environment, you should
independently verify that the results obtained match what you
expect. There may be unintentionally made assumptions in this code
view release on metacpan or search on metacpan
lib/Fl/Color.pod view on Meta::CPAN
my $average = fl_color_average(FL_RED, FL_BLUE, .14);
Returns the weighted average color between the two given colors.
The red, green and blue values are averages using the following formula:
color = color1 * weight + color2 * (1 - weight)
Thus, a weight value of 1.0 will return the first color, while a value of 0.0
will return the second color.
view release on metacpan or search on metacpan
doc/examples/petmarket/petmarket/api/stringresourcesservice.pm view on Meta::CPAN
$strings{"QTY_LBL_str"}="Qty";
$strings{"PRODUCT_LBL_str"}="Product";
$strings{"ITEMS_IN_CART_LBL_str"}="Items:";
$strings{"CART_SUBTOTAL_LBL_str"}="Subtotal:";
$strings{"ADVERT_COPY_DEFAULT_str"}="Keep your pets healthy and happy with\n Pet Market brand pet foods.";
$strings{"ADVERT_COPY_CONTEXT_str"}="Keep your pet healthy! Try our special formula of pet foods, available in assorted sizes and flavors.";
$strings{"OK_BTN_LBL_str"}="OK";
$strings{"EXCEEDS_AVAILABLE_MB_MSG_str"}="The quantity you entered exceeds the number we currently have available. The quantity will be automatically reset to the maximum available at this time.";
$strings{"EXCEEDS_AVAILABLE_MB_TTL_str"}="Quantity Available Exceeded";
$strings{"REQUIRED_FIELD_INDICATOR_str"}="*";
$strings{"ERROR_FIELD_INDICATOR_str"}="<";
view release on metacpan or search on metacpan
lib/FlatFile/DataStore.pm view on Meta::CPAN
might).
With dirmax and dirlev, these files will reside in subdirectories.
Giving a value for dirmax will also limit the number of data files (and
key/toc files) a datastore may have, by this formula:
max files = dirmax ** (dirlev + 1)
So dirmax=300 and dirlev=1 would result in a limit of 90,000 data
files. If you go to dirlev=2, the limit becomes 27,000,000, which is
view release on metacpan or search on metacpan
t/data/base/conf/web.xml view on Meta::CPAN
<extension>karbon</extension>
<mime-type>application/vnd.kde.karbon</mime-type>
</mime-mapping>
<mime-mapping>
<extension>kfo</extension>
<mime-type>application/vnd.kde.kformula</mime-type>
</mime-mapping>
<mime-mapping>
<extension>kia</extension>
<mime-type>application/vnd.kidspiration</mime-type>
</mime-mapping>
t/data/base/conf/web.xml view on Meta::CPAN
<mime-type>application/vnd.oasis.opendocument.chart</mime-type>
</mime-mapping>
<mime-mapping>
<!-- OpenDocument Formula -->
<extension>odf</extension>
<mime-type>application/vnd.oasis.opendocument.formula</mime-type>
</mime-mapping>
<mime-mapping>
<extension>odft</extension>
<mime-type>application/vnd.oasis.opendocument.formula-template</mime-type>
</mime-mapping>
<mime-mapping>
<!-- OpenDocument Drawing -->
<extension>odg</extension>
<mime-type>application/vnd.oasis.opendocument.graphics</mime-type>
view release on metacpan or search on metacpan
share/passwords.txt view on Meta::CPAN
lonestar
kittycat
hell
goodluck
gangsta
formula
devil
cassidy
camille
buttons
bonjour
share/passwords.txt view on Meta::CPAN
mikey
marvel
laurie
grateful
fuck_inside
formula1
Dragon
cxfcnmt
bridget
aussie
asterix
share/passwords.txt view on Meta::CPAN
fourcats
fountain1
fortitud
forsyth
forsex
formula2
formica
formic
formee
forget1
fordf100
view release on metacpan or search on metacpan
t/data/00_preface view on Meta::CPAN
sense, an almost exaggerated and certainly uncritical
sense, of the value of her songs of the people, of all the
ballads that Herder, Scott, Lonnrot, and the rest
collected, it was commonly said that Homer was a
ballad-minstrel, that the translator must imitate the
simplicity, and even adopt the formulae of the ballad.
Hence came the renderings of Maginn, the experiments of Mr.
Gladstone, and others. There was some excuse for the error
of critics who asked for a Homer in ballad rhyme. The Epic
poet, the poet of gods and heroes, did indeed inherit some
of the formulae of the earlier Volks-lied. Homer, like the
author of The Song of Roland, like the singers of the
Kalevala, uses constantly recurring epithets, and repeats,
word for word, certain emphatic passages, messages, and so
on. That custom is essential in the ballad, it is an
accident not the essence of the epic. The epic is a poem of
view release on metacpan or search on metacpan
docs/intro.md view on Meta::CPAN
would lose its value across the loop iteration. Well--it's true that
you can't do that with the loop syntax that Perl offers (`for`,
`while`). But you are not forced to use those. Iteration just means to
process work step by step, i.e. do a step of work, check whether the
work is finished, and if it isn't, get the next piece of work and
start over. You can easily formulate this with a function that takes
the relevant pieces of information (remainder of the work, accumulated
result), checks to see if the work is done and if it isn't, calls
itself with the remainder and new result.
fperl> sub build ($i,$l) { if ($i > 0) { build($i-1, cons fun () { $i }, $l) } else { $l }}
view release on metacpan or search on metacpan
bin/gtf2gff3.pl view on Meta::CPAN
# This was update 5/24/10 in response to an
# e-mail from Leighton Prichard regarding
# errors in the GFF3 spec. The code above
# calculates the phase correctly, but the
# formula suggested by Leighton is cleaner.
$next_phase = ($feature->{phase} - $length) % 3;
}
view release on metacpan or search on metacpan
gdchart0.11.4dev/gdchart.c view on Meta::CPAN
{
vals[interp_point] = GDC_NOVALUE;
return;
}
/* Point-slope formula */
vals[interp_point] = ((v2-v1)/(float)(p2-p1)) * (float)(interp_point-p1) + v1;
return;
}
/* ========================================================================= */
view release on metacpan or search on metacpan
#######################################################################
# for character x, width(x) is not useful because .ttf fonts
# account for kerning. width(x1) + width(x2) + width(x3)
# is categorically different from width(x1.x2.x3).
#
# By process of elimination: an OK formula to find width(x2):
# assume x1 is a space, and perform:
# width(x1.x2.x3) - (width(x1) + width(x3)).
#
# If x2 is a space, make it wider; if it is (A|C|V) make it narrower.
#
view release on metacpan or search on metacpan
GH/Sim4/sim4.2002-03-03/sim4b1.c view on Meta::CPAN
static struct hash_node *phashtab[HASH_SIZE+1];
static struct hash_node **hashtab;
static int mask;
static int *next_pos, *pnext_pos;
/* The log4 arrays were computed to mimick the behaviour of the log formula
for computing the msp threshold in exon_cores(). For genomic_log4s,
entry i stores the value for the length of a genomic sequence
for which the contribution to the msp threshold is i/2, i.e.:
1.4*log_4(3/4*len1) = i/2;
Similarly, cDNA_log4s entries store lengths of the cDNA sequence for which
GH/Sim4/sim4.2002-03-03/sim4b1.c view on Meta::CPAN
/* K = (int) (log(.75*(double)len1)+log((double)len2))/log(4.0); */
/* .. and throw in a fudge factor */
/* K *= 1.4; */
K = get_msp_threshold(len1, len2);
if (K>=0) K--; /* compensate for the rounding in the log formula */
/* commented this to avoid fragmentation
if (flag) K = min(K, DEFAULT_C); second pass
*/
} else
K = in_K;
view release on metacpan or search on metacpan
lib/GIS/Distance/Fast.pm view on Meta::CPAN
=encoding utf8
=head1 NAME
GIS::Distance::Fast - C implementation of GIS::Distance formulas.
=head1 DESCRIPTION
This distribution re-implements some, but not all, of the formulas
that come with L<GIS::Distance> in the C programming language. C code
is generally much faster than the Perl equivalent.
See L<GIS::Distance/SPEED> for some benchmarking and how to run your
own benchmarks.
This module need not be used directly. L<GIS::Distance> will automatically
use the C<GIS::Distance::Fast::*> formulas when installed.
=head1 FORMULAS
=over
view release on metacpan or search on metacpan
lib/GIS/Distance/GeoEllipsoid.pm view on Meta::CPAN
=head1 DESCRIPTION
This module is a wrapper around L<Geo::Ellipsoid> for L<GIS::Distance>.
Normally this module is not used directly. Instead L<GIS::Distance>
is used which in turn interfaces with the various formula classes.
=head1 OPTIONAL ARGUMENTS
=head2 ellipsoid
view release on metacpan or search on metacpan
my $distanceInMeters = distance($lat1, $lon1 => $lat2, $lon2);
=head1 DESCRIPTION
The module provides a method to calculate geographic distances between coordinates in geodetic WGS84 format using the Haversine formula.
It is similar to L<GIS::Distance>, but without the extra bells and whistles and without the additional dependencies. Same great taste, less filling.
It exists for those who cannot, or prefer not to install Moose and its dependencies.
=head1 SEE ALSO
Inspired by: L<GIS::Distance>
Haversine formula: http://en.wikipedia.org/wiki/Haversine_formula
=head1 COPYRIGHT
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
view release on metacpan or search on metacpan
lib/GIS/Distance.pm view on Meta::CPAN
use 5.008001;
use strictures 2;
our $VERSION = '0.20';
sub new {
my ($class, $formula, @args) = @_;
$formula ||= 'Haversine';
my @modules;
push @modules, "GIS::Distance::Fast::${formula}"
unless $ENV{GIS_DISTANCE_PP} or $ENV{GEO_DISTANCE_PP};
push @modules, "GIS::Distance::$formula";
push @modules, $formula;
foreach my $module (@modules) {
next if !_try_load_module( $module );
next if !$module->isa('GIS::Distance::Formula');
return $module->new( @args );
}
die "Cannot find a GIS::Distance::Formula class for $formula";
};
my %tried_modules;
sub _try_load_module {
lib/GIS/Distance.pm view on Meta::CPAN
=head1 SYNOPSIS
use GIS::Distance;
# Use the GIS::Distance::Haversine formula by default.
my $gis = GIS::Distance->new();
# Or choose a different formula.
my $gis = GIS::Distance->new( 'Polar' );
# Returns a Class::Measure object.
my $distance = $gis->distance( $lat1, $lon1, $lat2, $lon2 );
lib/GIS/Distance.pm view on Meta::CPAN
This module calculates distances between geographic points on, at the moment,
planet Earth. Various L</FORMULAS> are available that provide different levels
of accuracy versus speed.
L<GIS::Distance::Fast>, a separate distribution, ships with C implementations of
some of the formulas shipped with GIS::Distance. If you're looking for speed
then install it and the ::Fast formulas will be automatically used by this module.
=head1 METHODS
=head2 distance
lib/GIS/Distance.pm view on Meta::CPAN
Does no argument checking.
=item *
Does not support formula arguments which are supported by at least the
L<GIS::Distance::GeoEllipsoid> formula.
=back
Calling this gets you pretty close to the fastest bare metal speed you can get.
The speed improvements of calling this is noticeable over hundreds of thousands of
iterations only and you've got to decide if its worth the safety and features
you are dropping. Read more in the L</SPEED> section.
=head1 ARGUMENTS
my $gis = GIS::Distance->new( $formula );
When you call C<new()> you may pass a partial or full formula class name as the
first argument. The default is C<Haversive>.
If you pass a partial name, as in:
my $gis = GIS::Distance->new( 'Haversine' );
lib/GIS/Distance.pm view on Meta::CPAN
GIS::Distance::Fast::Haversine
GIS::Distance::Haversine
Haversine
Install L<GIS::Distance::Fast> to get access to the C<Fast::> (XS) implementations
of the formula classes.
You may globally disable the automatic use of the C<Fast::> formulas by setting
the C<GIS_DISTANCE_PP> environment variable. Although, its likely simpler to
just provide a full class name to get the same effect:
my $gis = GIS::Distance->new( 'GIS::Distance::Haversine' );
lib/GIS/Distance.pm view on Meta::CPAN
Not that this module is slow, but if you're doing millions of distance
calculations a second you may find that adjusting your code a bit may
make it faster. Here are some options.
Install L<GIS::Distance::Fast> to get the XS variants for most of the
PP formulas.
Use L</distance_metal> instead of L</distance>.
Call the undocumented C<_distance()> function that each formula class
has. For example you could bypass this module entirely and just do:
use GIS::Distance::Fast::Haversine;
my $km = GIS::Distance::Fast::Haversine::_distance( @coords );
lib/GIS/Distance.pm view on Meta::CPAN
If you want to convert from decimal radians to degrees you can use L<Math::Trig>'s
rad2deg function.
=head1 FORMULAS
These formulas come bundled with this distribution:
=over
=item *
lib/GIS/Distance.pm view on Meta::CPAN
L<GIS::Distance::Vincenty>
=back
These formulas are available on CPAN:
=over
=item *
lib/GIS/Distance.pm view on Meta::CPAN
=back
=head1 AUTHORING
Take a look at L<GIS::Distance::Formula> for instructions on authoring
new formula classes.
=head1 SEE ALSO
=over