Result:
found more than 658 distributions - search limited to the first 2001 files matching your query
( run in 0.585 )
Data-Password-Top10000
view release on metacpan or search on metacpan
lib/Data/Password/Top10000.pm view on Meta::CPAN
lonestar
kittycat
hell
goodluck
gangsta
formula
devil
cassidy
camille
buttons
bonjour
lib/Data/Password/Top10000.pm view on Meta::CPAN
mikey
marvel
laurie
grateful
fuck_inside
formula1
Dragon
cxfcnmt
bridget
aussie
asterix
Data-Password-zxcvbn-French
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/French.pm view on Meta::CPAN
'formerent' => 13936,
'formerets' => 11156,
'formeront' => 20086,
'formes' => 615,
'formidable' => 11669,
'formula' => 20087,
'formulaire' => 18684,
'formulaires' => 23106,
'formulation' => 8414,
'formulations' => 22126,
'formule' => 1964,
'formulee' => 14532,
'formulees' => 17041,
'formuler' => 12842,
'formules' => 6968,
Data-Password-zxcvbn-German
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/German.pm view on Meta::CPAN
'formierte' => 13808,
'formierten' => 25160,
'formlich' => 19587,
'formt' => 28256,
'formte' => 19588,
'formula' => 27348,
'formulieren' => 19978,
'formuliert' => 7176,
'formulierte' => 9772,
'formulierten' => 23282,
'formulierung' => 8108,
Data-Password-zxcvbn
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/Common.pm view on Meta::CPAN
'forgotten1' => 22484,
'forklift' => 25273,
'forlife' => 21211,
'format' => 7887,
'formel1' => 28451,
'formula' => 8560,
'formula1' => 1740,
'formule1' => 17152,
'forrest' => 6239,
'forrest1' => 20093,
'forsaken' => 7700,
'forsaken1' => 19650,
Data-Presenter
view release on metacpan or search on metacpan
lib/Data/Presenter.pm view on Meta::CPAN
requires careful preparation on the part of the administrator. See the
discussion under L<"writeformat_with_reprocessing()"> above.
=head3 C<writeHTML()>
In its current formulation, C<writeHTML()> works very much
like C<writeformat_plus_header()>. It writes data to an operator-specified
HTML file and writes an appropriate header to that file as well.
C<writeHTML()> takes the same 4 arguments as C<writeformat_plus_header()>:
C<$sorted_data>, C<\@columns_selected>, C<$outputfile> and C<$title>. The
body of the resulting HTML file is more similar to a Perl format than to an
Data-Random-Contact
view release on metacpan or search on metacpan
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
formless
formlessly
formlessness
formlessness's
forms
formula
formula's
formulae
formulaic
formulas
formulate
formulated
formulates
formulating
formulation
formulation's
formulations
fornicate
fornicated
fornicates
fornicating
fornication
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
reformer
reformer's
reformers
reforming
reforms
reformulate
reformulated
reformulates
reformulating
refract
refracted
refracting
refraction
refraction's
Data-Random
view release on metacpan or search on metacpan
lib/Data/Random/dict view on Meta::CPAN
formidable
forming
Formosa
Formosan
forms
formula
formulae
formulas
formulate
formulated
formulates
formulating
formulation
formulations
formulator
formulators
fornication
Forrest
forsake
forsaken
forsakes
lib/Data/Random/dict view on Meta::CPAN
reformed
reformer
reformers
reforming
reforms
reformulate
reformulated
reformulates
reformulating
reformulation
refract
refracted
refraction
refractory
refragment
Data-Secs2
view release on metacpan or search on metacpan
t/Data/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 '', @_);
Data-SecsPack
view release on metacpan or search on metacpan
t/Data/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 '', @_);
Data-Startup
view release on metacpan or search on metacpan
t/Data/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 '', @_);
Data-Str2Num
view release on metacpan or search on metacpan
t/Data/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 '', @_);
Data-TDMA
view release on metacpan or search on metacpan
lib/Data/TDMA.pm view on Meta::CPAN
=head1 TDMA in (a whole lot of) Detail
TDMA is the division of a day into multiple epochs, which are further
subdivided into frames, which are then subdivided again, into slots.
The basic formula is thus:
1 TDMA Day = 112.5 Epochs
1 TDMA Epoch = 64 frames
1 TDMA Frame = 1536 Slots
1 TDMA Slot = 0.0078125 seconds (1/128 second)
Data-Tabular
view release on metacpan or search on metacpan
lib/Data/Tabular/Output/XLS.pm view on Meta::CPAN
}
}
for my $cell ($row->cells()) {
my ($y, $x) = ($cell->row_id, $cell->col_id);
my $data = $cell->data;
my $formula = '';
my $value = 'asdf';
eval {
if (ref $data) {
$worksheet->write($y, $x, $data->string);
} else {
$worksheet->write($y, $x, $data);
}
};
if ($@) {
die "$formula " . $@;
}
}
}
}
lib/Data/Tabular/Output/XLS.pm view on Meta::CPAN
$type = 'text';
$cell_type = 'averages_right';
} elsif ($row->type eq 'header') {
} elsif ($row->type eq 'totals') {
if (ref($cell_data)) {
$type = 'formula';
$cell_type = $self->output->type($cell->name);
}
} else {
$type = $self->output->type($cell->name);
}
next unless $cell_data;
my $format = undef;
if (ref($cell_data)) {
# FIXME
$type = 'formula';
}
if ($type eq 'date') {
if ($cell_data) {
$worksheet->write_date_time($y, $x, $cell_data, $formats->{'date'});
lib/Data/Tabular/Output/XLS.pm view on Meta::CPAN
$worksheet->write_number($y, $x, $cell_data, $formats->{'dollar'});
} elsif ($type eq 'number') {
$worksheet->write_number($y, $x, $cell_data, $formats->{$cell_type});
} elsif ($type eq 'percent') {
$worksheet->write_number($y, $x, $cell_data, $formats->{$cell_type});
} elsif ($type eq 'formula') {
my $formula = '=';
if ($cell_data->{type} eq 'sum') {
if (!defined $cell_data->{rows}) {
$formula .= join('+', map({ my $x = $self->_get_col_id($_); chr(0x41+$x) . ($cell->row_id+1); } @{$cell_data->{columns}}));
} else {
$formula .= join('+', map({ chr(0x41+$cell->col_id) . $_; } @{$cell_data->{rows}}));
}
} elsif ($cell_data->{type} eq 'average' || $cell_data->{type} eq 'avg') {
$formula .= '(';
if (!defined $cell_data->{rows}) {
$formula .= join('+', map({ my $x = $self->_get_col_id($_); chr(0x41+$x) . ($cell->row_id+1); } @{$cell_data->{columns}}));
} else {
$formula .= join('+', map({ chr(0x41+$cell->col_id) . $_; } @{$cell_data->{rows}}));
}
$formula .= ')';
$formula .= "/" . scalar(@{$cell_data->{rows} || $cell_data->{columns}});
} else {
warn $cell_data->{type};
}
$formula = '';
$formula .= '';
my $value = $cell_data->{html};
Data-Type
view release on metacpan or search on metacpan
lib/Data/Type/Facet.pm view on Meta::CPAN
sub info : method
{
my $this = shift;
return 'LUHN formula (mod 10) for validation of creditcards';
}
# To be implemented and not yet really usefull yet.
#
Data-URIID
view release on metacpan or search on metacpan
lib/Data/URIID/Service.pm view on Meta::CPAN
application/pdf
application/vnd.debian.binary-package
application/vnd.oasis.opendocument.base
application/vnd.oasis.opendocument.chart
application/vnd.oasis.opendocument.chart-template
application/vnd.oasis.opendocument.formula
application/vnd.oasis.opendocument.formula-template
application/vnd.oasis.opendocument.graphics
application/vnd.oasis.opendocument.graphics-template
application/vnd.oasis.opendocument.image
application/vnd.oasis.opendocument.image-template
application/vnd.oasis.opendocument.presentation
Data-Variant
view release on metacpan or search on metacpan
Installation
------------
The installation is trivial and follows the usual formula for installation:
perl Makefile.PL
make
make test
make install
DataCube
view release on metacpan or search on metacpan
playstation 2^ford racing 3^empire interactive^razorworks^racing, driving^2^e (everyone)^03/22/2005
playstation 2^ford racing off road^xplosiv^razorworks^racing, driving^2^e (everyone)^03/14/2008
playstation 2^ford vs. chevy^global star software^eutechnyx^racing, driving^6^e (everyone)^11/08/2005
playstation 2^forever kingdom^agetec^from software^role-playing game^1^t (teen)^01/22/2002
playstation 2^forgotten realms: demon stone^atari^stormfront studios^third-person action, adventure, role-playing game^1^t (teen)^09/14/2004
playstation 2^formula challenge^oxygen interactive^aqua pacific^racing, driving^2^rp (rating pending)^08/06/2004
playstation 2^formula one 04^sony computer entertainment europe^sony computer entertainment europe^racing, driving^4^rp (rating pending)^07/30/2004
playstation 2^formula one 05^sony computer entertainment europe^sony computer entertainment europe^racing, driving^8^rp (rating pending)^07/01/2005
playstation 2^formula one 06^sony computer entertainment^sce studios liverpool^racing, driving^2^rp (rating pending)^07/28/2006
playstation 2^formula one 2001^sony computer entertainment^studio liverpool^racing, sports, simulation^2^e (everyone)^10/02/2001
playstation 2^formula one 2002^sony computer entertainment europe^studio liverpool^racing, driving^2^rp (rating pending)^11/01/2002
playstation 2^four horsemen of the apocalypse^3do^3do^third-person action, adventure^1^m (mature)^02/14/2004
playstation 2^freak out: extreme freeride^jowood productions^coldwood interactive^extreme sports, skiing^2^rp (rating pending)^03/30/2007
playstation 2^freaky flyers^midway^midway^action, racing^2^t (teen)^08/04/2003
playstation 2^free running^reef entertainment^core design - rebellion^action, extreme sports^1^rp (rating pending)^04/20/2007
playstation 2^freedom fighters^electronic arts^io interactive^third-person action, turn-based strategy^4^t (teen)^10/01/2003
playstation 3^fight night round 4^electronic arts^ea canada^boxing, sports^2^rp (rating pending)^03/01/2009
playstation 3^final fantasy versus xiii^square enix^square enix^action, role-playing game^1^rp (rating pending)^12/01/2008
playstation 3^final fantasy xiii^square enix^square enix^role-playing game^1^rp (rating pending)^12/01/2008
playstation 3^flow^sony computer entertainment america^thatgamecompany^action^4^e (everyone)^02/22/2007
playstation 3^folklore^sony computer entertainment america^game republic^adventure^1^t (teen)^10/09/2007
playstation 3^formula one championship edition^sony computer entertainment^sce studios liverpool^racing, driving^10^e (everyone)^02/27/2007
playstation 3^fracture^lucasarts^day 1 studios^third-person shooter, action^multi^rp (rating pending)^10/07/2008
playstation 3^full auto 2: battlelines^sega^pseudo interactive^racing, action, car combat^8^t (teen)^12/07/2006
playstation 3^gauntlet ii^sony online entertainment^backbone entertainment^action, arcade^4^e (everyone)^05/03/2007
playstation 3^genji: days of the blade^sony computer entertainment america^game republic - scej^third-person action, adventure^1^t (teen)^11/17/2006
playstation 3^ghostbusters: the video game^sierra entertainment^terminal reality^action^multi^rp (rating pending)^10/07/2008
playstation portable^ape escape academy^sony computer entertainment^sony computer entertainment japan^party^4^e10+ (everyone 10 and older)^01/17/2006
playstation portable^ape escape academy 2^sony computer entertainment^shift^party^4^rp (rating pending)^09/29/2006
playstation portable^ape escape: on the loose^sony computer entertainment america^sony computer entertainment america^action, platform^4^e (everyone)^03/17/2005
playstation portable^ape quest^sony computer entertainment america^sce studios japan^role-playing game^1^e (everyone)^01/10/2008
playstation portable^archer maclean's mercury^ignition entertainment^awesome studios^puzzle^2^e (everyone)^04/06/2005
playstation portable^armored core: formula front^agetec inc.^from software^mech fighting, action, shooter^2^t (teen)^12/15/2005
playstation portable^arthur and the invisibles^atari^estranges libellule^action, adventure^2^e (everyone)^02/16/2007
playstation portable^asphalt: urban gt 2^ubisoft^virtuous - game source^racing, driving^4^rp (rating pending)^05/03/2007
playstation portable^astonishia story^ubisoft / sonnori corporation^sonnori corporation^role-playing game^1^e10+ (everyone 10 and older)^06/06/2006
playstation portable^atari classics evolved^atari^stainless games^arcade, compilation^2^e (everyone)^12/19/2007
playstation portable^atv offroad fury pro^sony computer entertainment america^climax studios^racing^4^e (everyone)^10/26/2006
playstation portable^football manager handheld^sega europe^sports interactive^sports management simulation^1^rp (rating pending)^04/13/2006
playstation portable^football manager handheld 2007^sega europe^sports interactive^sports management simulation^1^e (everyone)^12/01/2006
playstation portable^football manager handheld 2008^sega europe^sports interactive^sports management simulation^1^e (everyone)^11/30/2007
playstation portable^ford bold moves street racing^eidos interactive^razorworks^racing, driving^2^e (everyone)^10/17/2006
playstation portable^ford racing off road^xplosiv^razorworks^racing, driving^6^e (everyone)^03/14/2008
playstation portable^formula 1: grand prix^sony computer entertainment europe^traveller's tales^racing, driving^8^rp (rating pending)^08/12/2005
playstation portable^formula one 06^sony computer entertainment^sce studios liverpool^racing, driving^2^rp (rating pending)^09/21/2006
playstation portable^frantix^sony online entertainment^killer game^puzzle^1^e (everyone)^09/19/2005
playstation portable^freak out: extreme ride^jowood productions^coldwood interactive^extreme sports^1^rp (rating pending)^10/26/2007
playstation portable^free running^reef entertainment^core design - rebellion^extreme sports^1^t (teen)^04/20/2007
playstation portable^frogger: helmet chaos^konami^kce hawaii^platform^4^e (everyone)^09/29/2005
playstation portable^from russia with love^electronic arts^ea redwood shores^first-person shooter, action^6^t (teen)^04/03/2006
Date-Calc-XS
view release on metacpan or search on metacpan
CHANGES.txt view on Meta::CPAN
+ Added compiler directives for C++.
+ Removed "Carp::Clan" from the distribution (available separately).
+ Fixed bug in initialization of "Date::Calendar::Year" objects.
+ Added method "tags()" to "Date::Calendar" and "Date::Calendar::Year".
+ Fixed the formula for "Labor Day" in the U.S. to "1/Mon/Sep".
+ Added a new recipe to the "Date::Calc" documentation.
+ Added Romanian to the list of languages supported by "Date::Calc".
+ Changed the example script "calendar.cgi" to highlight the name
which led to a given date being a holiday.
+ Fixed the Polish entries in "Date::Calc".
Date-Calc
view release on metacpan or search on metacpan
lib/Date/Calendar/Profiles.pm view on Meta::CPAN
{
my($year,$label) = @_;
return( &Next_Monday($year,1,1) );
}
#
# The following formula (also from Jonathan Stowe <gellyfish@gellyfish.com>)
# also contradicts my pocket calendar, but for lack of a better guess I
# left it as it is. Please tell me the correct formula in case this one
# is wrong! Thank you!
#
sub GB_Early_May # May bank holiday is the first Monday after May 1st
{
my($year,$label) = @_;
lib/Date/Calendar/Profiles.pm view on Meta::CPAN
%{$Profiles->{'AU'}},
"New Year's Day" => "01.01.",
"Regatta Day" => "2/Tue/Feb",
"Lauceston Cup Day" => \&AU_Lauceston,
"King Island Show Day" => "1/Tue/Mar", # uncertain! (maybe Tuesday after 1/Sun/Mar?)
"Eight Hour Day" => "2/Mon/Mar", # dubious, formula probably wrong!
"Easter Saturday" => "-1",
"Queen's Birthday" => "2/Mon/Jun",
"Recreation Day" => "1/Mon/Nov" # only North Tasmania - date not confirmed!
};
$Profiles->{'AU-SA'} = # South Australia
lib/Date/Calendar/Profiles.pm view on Meta::CPAN
};
$Profiles->{'AU-ACT'} = # Australian Capital Territory
{
%{$Profiles->{'AU'}},
"New Year's Day" => "01.01.",
"Canberra Day" => "2/Mon/Mar", # dubious, formula probably wrong!
"Easter Saturday" => "-1",
"Queen's Birthday" => "2/Mon/Jun",
"Labour Day" => "1/Mon/Oct"
};
$Profiles->{'AU-NSW'} = # New South Wales
Date-Convert-French_Rev
view release on metacpan or search on metacpan
eg/g2r_table view on Meta::CPAN
$end_of_interval{$current_start} = $year;
}
}
#
# Compute the formulas for a sample year and for a month.
# 1st January 1796 is 11 Nivôse IV, and 31 January 1796 is 11 Pluviôse IV.
# Therefore, for January 1796, we have two formulas : "+10 Niv" and "-20 Plu".
# Since all French Revolutionary months have 30 days, only one computation is necessary.
# Exception: the additional days are grouped in a notional 13th month, which lasts
# either 5 or 6 days. In this case, we have 3 formulas for September, at the cost of 2 conversions.
#
sub formulas {
my ($year, $month) = @_;
my @formulas = ();
my @month = qw(Niv Plu Vnt Ger Flo Pra Mes The Fru S-C Vnd Bru Fri Niv);
my $date = Date::Convert::Gregorian->new($year, $month, 1);
Date::Convert::French_Rev->convert($date);
my $offset = $date->day() - 1;
if ($month <= 9) # Have to split in two, because of the additional days within @month
{
push @formulas, "+$offset $month[$month - 1]";
$offset = 30 - $offset;
push @formulas, "-$offset $month[$month]";
}
else
{
push @formulas, "+$offset $month[$month]";
$offset = 30 - $offset;
push @formulas, "-$offset $month[$month + 1]";
}
if ($month == 9)
{
$date = Date::Convert::French_Rev->new($year - 1791, 1, 1);
Date::Convert::Gregorian->convert($date);
$offset = $date->day() - 1;
push @formulas, "-$offset Vnd";
}
@formulas;
}
sub html_0 {
my ($title) = @_;
print <<"EOF";
eg/g2r_table view on Meta::CPAN
{
print "<tr align='center'><td>$labels{month}[8]</td>";
foreach (@days)
{
my $year = $year_of_partday{$part}{$_};
my @formulas = formulas($year, 9);
print "<td>$formulas[2]</td>\n";
}
print "</tr>\n";
}
# The regular months of the part of the year
my @month_list = $part eq 'b' ? (1..2) : $part eq 'm' ? (3..9) : (10..12);
eg/g2r_table view on Meta::CPAN
{
print "<tr align='center'><td>$labels{month}[$month - 1]</td>";
foreach (@days)
{
my $year = $year_of_partday{$part}{$_};
my @formulas = formulas($year, $month);
print "<td>$formulas[0]<br />$formulas[1]</td>\n";
}
print "</tr>\n";
}
print "</table>\n";
eg/g2r_table view on Meta::CPAN
my $y2 = sprintf "%02d", $y % 100;
my $part = $m <= 2 ? 'b' : $m < 9 ? 'm' : 'e';
my $offset = $part eq 'e' ? 1791 : 1792;
my $letter = letter_of_yearpart($y, $part);
my $word = word_for_year($y);
my @formulas = formulas($y, $m);
my $limit = $1 if $formulas[1] =~ /(\d+)/;
my $formula = $formulas[$d <= $limit ? 0 : 1];
my $ryear = $date->year();
my $begint; # Beginning of the interval
foreach (sort { $a <=> $b } keys %end_of_interval)
{
last if $y < $_;
eg/g2r_table view on Meta::CPAN
# Second example: September
# $m = 9;
$gr_date = &{$labels{format}}($y, 9, $d, $lang);
$date = Date::Convert::Gregorian->new($y, 9, $d);
Date::Convert::French_Rev->convert($date);
@formulas = formulas($y, 9);
my $mletter = letter_of_yearpart($y, 'm');
my $eletter = letter_of_yearpart($y, 'e');
$abridged = $date->date_string("%e %b %Y");
$rev_date = $date->date_string("%A %e %B %EY");
$limit = $1 if $formulas[1] =~ /(\d+)/;
if ($d <= $limit)
{ $formula = $formulas[0]; $offset = 1792 }
else
{
$limit = $1 if $formulas[2] =~ /(\d+)/;
if ($d <= $limit)
{ $formula = $formulas[1]; $offset = 1792 }
else
{ $formula = $formulas[2]; $offset = 1791 }
}
$_ = eval "qq($labels{usage2})";
print;
}
Date-Day
view release on metacpan or search on metacpan
March 45, 2001 will return a day, just one with no meaning. So make sure
you pass real dates.
After initial release of this module, I decided to elaborate on the
mathematical foundations for the algorithm used. Most other day of week
modules use the dooms day algorithm. Date::Day uses a single line formula.
Not getting into too much detail, we take the fact that March 1, 0000 fell
on a Wednesday. Knowing this, we can determine the day of week March 1
will fall on in any given year y > 0. That is:
So we refine our table:
Month 1 2 3 4 5 6 7 8 9 10 11 12
Value 0 3 2 5 0 3 5 1 4 6 2 4
The above table is very important in our final formula. So for example,
the month June is numerical 6, and 6 goes to value 3. 3 is then used in
our final formula.
With all the above data, it follows that month m, day 1, year y, has day
of week number:
1 + j(m) + y + [y/4] - [y/100] + [y/400] mod 7
And to get a formula that handles any given day, we use the formula:
d + j(m) + y + [y/4] - [y/100] + [y/400] mod 7 (***)
So for example, we want to find the day of week corresponding to April 8,
2002. If March is month 1, then April is month 2, hence m=2. So j(2)=5.
which is, 1 mod 7. So 4/8/2002 is a Monday.
So when you look at the code portion of Day.pm you see only two important
lines of code. One line is for the associative array that implements j(m).
The other line is for implementing formula (***). Thats it.
=head1 AUTHOR
John Von Essen, john@essenz.com
Date-Easy
view release on metacpan or search on metacpan
throws_ok { $d - $multiple } qr/cannot call/, "date subtraction of $_ fails";
}
}
# test prototypes and also try a few more complex formulae
my $dt = datetime("Jan-02-2003 04:05:06");
my $dt2;
lives_ok { $dt2 = $dt + 2*days + 5*hours - 8*years + 10*seconds - 3*minutes } "complex example parses correctly";
is $dt2->strftime($FMT), "1995/01/04 09:02:16", "complex example (including prototypes) works";
Date-Gregorian
view release on metacpan or search on metacpan
t/01_basics.t view on Meta::CPAN
test 216, $date == $date2;
$date2 = $date->set_weekday(SUNDAY, '<=');
test 217, $date == $date2;
# --- easter formula, border cases ---
test_ymd(218, $date->set_easter(2011), 2011, 4, 24);
test_ymd(219, $date->set_easter(2038), 2038, 4, 25);
test_ymd(220, $date->set_easter(2049), 2049, 4, 18);
test_ymd(221, $date->set_easter(2076), 2076, 4, 19);
Date-Holidays-TW
view release on metacpan or search on metacpan
lib/Date/Holidays/TW.pm view on Meta::CPAN
my $lunar_mmdd = sprintf('%02d%02d', $lunar_date->month, $lunar_date->day);
return $FOLK_LUNAR{$lunar_mmdd};
}
sub __is_qingming {
# Thanks Wei-Hon Chen for the formula.
my $dt = $_[0];
return undef unless $dt->month == 4 && 3 < $dt->day && $dt->day < 6;
my $year = $dt->year;
die "Unsupported" if $year < 1901 || 2100 < $year;
my $Y = ($year % 100);
Date-Indiction
view release on metacpan or search on metacpan
lib/Date/Indiction.pm view on Meta::CPAN
Indiction (called I<indict> in Russian chronicles) is the number of
the year in a 15-year cycle, starting from September 1, 312 AD. It can
be calculated for either Byzantine year (Anno Mundi, AM, old Russian
style with the epoch on March 1, 5508 BCE) or Christian year (Anno
Domini, AD). The formulae are, respectively,
I = AM % 15
I = (AD + 3) % 15
Date-Pcalc
view release on metacpan or search on metacpan
lib/Date/Pcalendar/Profiles.pm view on Meta::CPAN
{
my($year,$label) = @_;
return( &Next_Monday($year,1,1) );
}
#
# The following formula (also from Jonathan Stowe <gellyfish@gellyfish.com>)
# also contradicts my pocket calendar, but for lack of a better guess I
# left it as it is. Please tell me the correct formula in case this one
# is wrong! Thank you!
#
sub GB_Early_May # May bank holiday is the first Monday after May 1st
{
my($year,$label) = @_;
lib/Date/Pcalendar/Profiles.pm view on Meta::CPAN
%{$Profiles->{'AU'}},
"New Year's Day" => "01.01.",
"Regatta Day" => "2/Tue/Feb",
"Lauceston Cup Day" => \&AU_Lauceston,
"King Island Show Day" => "1/Tue/Mar", # uncertain! (maybe Tuesday after 1/Sun/Mar?)
"Eight Hour Day" => "2/Mon/Mar", # dubious, formula probably wrong!
"Easter Saturday" => "-1",
"Queen's Birthday" => "2/Mon/Jun",
"Recreation Day" => "1/Mon/Nov" # only North Tasmania - date not confirmed!
};
$Profiles->{'AU-SA'} = # South Australia
lib/Date/Pcalendar/Profiles.pm view on Meta::CPAN
};
$Profiles->{'AU-ACT'} = # Australian Capital Territory
{
%{$Profiles->{'AU'}},
"New Year's Day" => "01.01.",
"Canberra Day" => "2/Mon/Mar", # dubious, formula probably wrong!
"Easter Saturday" => "-1",
"Queen's Birthday" => "2/Mon/Jun",
"Labour Day" => "1/Mon/Oct"
};
$Profiles->{'AU-NSW'} = # New South Wales
Date-Pregnancy
view release on metacpan or search on metacpan
lib/Date/Pregnancy.pm view on Meta::CPAN
=back
=head1 DISCLAIMER
The method of calculating day of birth and week numbers implemented in
this module is based on simple formulas.
The ultrasound scan is a much more accurate method and finally babies
seem to have a will of their own, so please do only use the results of
this module as a guideline, the author of this module cannot be held
responsible for the results of calculations based on use of this module.
Date-Roman
view release on metacpan or search on metacpan
lib/Date/Roman.pm view on Meta::CPAN
value of the B<num> parameter below if given, to B<Roman> otherwise.
=item B<auc>
Controls how the "ab Urbe condita" formula is written. Possible values
are: B<abbrev>, which writes it as "AUC", and B<complete> which writes
it in full. This parameter defaults to the value of the B<words>
parameter below if given, and to B<abbrev> otherwise.
lib/Date/Roman.pm view on Meta::CPAN
used an inclusive counting. That way, for instance,
the 2 Jan was the 4th day before the nones of January (the nones of
January being the 5th of January).
The day before a fixed day was designed by "pridie", abbreviated as
"p.d.". The other days was designed using the formula "ante diem",
abbreviated as "a.d.". For instance, the 16th of April was
I<ante diem XVI Kalendas Maias>, abbreviated as I<a.d. Kal. Mai.>
In leap years, the supplemental day was obtained by counting two times
the 6th day before the Kalendae of March.
Date-SundayLetter
view release on metacpan or search on metacpan
lib/Date/SundayLetter.pm view on Meta::CPAN
Thursday 4 January D
Friday 3 January C
Saturday 2 January B
In leap years, you have two Sunday Letters. After leap day, you have a
Sunday Letter calculated with the usual formulae. Before leap day, the
Sunday Letter is one place ahead of that (with A being considered one
latter after G).
Given the Sunday Letter and the Golden Number (see
Date::GoldenNumber), you can immediately look up the dates for Easter
Date-Vruceleto
view release on metacpan or search on metacpan
lib/Date/Vruceleto.pm view on Meta::CPAN
chronology as "solar cycle". The count of solar cycles in this
calendar system starts from March 1, 5508 BCE (called Constantinople
World Aera).
I.A.Klimishin in his book "Calendar and Chronology" (Moscow, Nauka,
1985, pp. 66-70) gives the following formulae to calculate solar
cycles and vruceletos ([] meaning the integer part of the quotient and
|| the remainder):
- First get the solar cycle (Q) of the year of Constantinople aera (B):
( run in 0.585 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )