view release on metacpan or  search on metacpan

lib/Dancer2/Plugin/MobileDevice.pm  view on Meta::CPAN

Adds the hooks described above.

=head1 ACKNOWLEDGEMENTS

This plugin is a Dancer2 port of L<Dancer::Plugin::MobileDevice>,
initially written for an article of the Dancer advent calendar 2010.

Thanks to the Dancer core developers for contributions.  Please see the
package metadata for additional contributors.

=head1 LICENSE

 view release on metacpan or  search on metacpan

lib/Danga/Socket.pm  view on Meta::CPAN

        push @Timers, $timer;
        return $timer;
    }

    # Now, where do we insert?  (NOTE: this appears slow, algorithm-wise,
    # but it was compared against calendar queues, heaps, naive push/sort,
    # and a bunch of other versions, and found to be fastest with a large
    # variety of datasets.)
    for (my $i = 0; $i < @Timers; $i++) {
        if ($Timers[$i][0] > $fire_time) {
            splice(@Timers, $i, 0, $timer);

 view release on metacpan or  search on metacpan

lib/Dash/Core/Components/DatePickerRange.pm  view on Meta::CPAN

has 'max_date_allowed'            => ( is => 'rw' );
has 'initial_visible_month'       => ( is => 'rw' );
has 'start_date_placeholder_text' => ( is => 'rw' );
has 'end_date_placeholder_text'   => ( is => 'rw' );
has 'day_size'                    => ( is => 'rw' );
has 'calendar_orientation'        => ( is => 'rw' );
has 'is_RTL'                      => ( is => 'rw' );
has 'reopen_calendar_on_clear'    => ( is => 'rw' );
has 'number_of_months_shown'      => ( is => 'rw' );
has 'with_portal'                 => ( is => 'rw' );
has 'with_full_screen_portal'     => ( is => 'rw' );
has 'first_day_of_week'           => ( is => 'rw' );
has 'minimum_nights'              => ( is => 'rw' );

 view release on metacpan or  search on metacpan

lib/Data/ICal/DateTime.pm  view on Meta::CPAN

}

=head2 floating

An event is considered floating if it has a start but no end. It is intended
to represent an event that is associated with a given calendar date and time
of day, such as an anniversary and should not be considered as taking up any
amount of time.

Returns 1 if the evnt is floating and 0 if it isn't.

 view release on metacpan or  search on metacpan

lib/Data/ICal.pm  view on Meta::CPAN

use Carp;

=head1 NAME

Data::ICal - Generates iCalendar (RFC 2445) calendar files

=head1 SYNOPSIS

    use Data::ICal;

    my $calendar = Data::ICal->new();

    my $vtodo = Data::ICal::Entry::Todo->new();
    $vtodo->add_properties(
        # ... see Data::ICal::Entry::Todo documentation
    );

    # ... or
    $calendar = Data::ICal->new(filename => 'foo.ics'); # parse existing file
    $calendar = Data::ICal->new(data => 'BEGIN:VCALENDAR...'); # parse from scalar
    $calendar->add_entry($vtodo);
    print $calendar->as_string;

=head1 DESCRIPTION

A L<Data::ICal> object represents a C<VCALENDAR> object as defined in the
iCalendar protocol (RFC 2445, MIME type "text/calendar"), as implemented in many
popular calendaring programs such as Apple's iCal.

Each L<Data::ICal> object is a collection of "entries", which are objects of a
subclass of L<Data::ICal::Entry>.  The types of entries defined by iCalendar
(which refers to them as "components") include events, to-do items, journal
entries, free/busy time indicators, and time zone descriptors; in addition,

lib/Data/ICal.pm  view on Meta::CPAN

content of the file or string into the object.  If the C<vcal10> flag is passed,
parses it according to vCalendar 1.0, not iCalendar 2.0; this in particular impacts
the parsing of continuation lines in quoted-printable sections.

If a calname is passed, sets x-wr-calname to the given string.  Although
not specified in RFC2445, most calendar software respects x-wr-calname
as the displayed name of the calendar.

If the C<rfc_strict> flag is set to true, will require Data::ICal to
include UIDs, as per RFC2445:

    4.8.4.7 Unique Identifier
    ... The property MUST be specified in the "VEVENT", "VTODO",
    "VJOURNAL" or "VFREEBUSY" calendar components"

If the C<auto_uid> flag is set to true, will automatically generate a
default UID for each type which requires it, based on the RFC-suggested
algorithm.  Explicitly-set UID attributes will override this
auto-generated value.

lib/Data/ICal.pm  view on Meta::CPAN

sub ical_entry_type {'VCALENDAR'}

=head2 product_id

Returns the product ID used in the calendar's C<PRODID> property; you may
wish to override this in a subclass for your own application.

=cut

sub product_id {

lib/Data/ICal.pm  view on Meta::CPAN

}

=head2 mandatory_unique_properties

According to the iCalendar standard, the following properties must be specified
exactly one time for a calendar:

      prodid version

=cut

lib/Data/ICal.pm  view on Meta::CPAN

}

=head2 optional_unique_properties

According to the iCalendar standard, the following properties may be specified
at most one time for a calendar:

      calscale method

=cut

lib/Data/ICal.pm  view on Meta::CPAN

L<Data::ICal> does not check to see if property parameter names are
known in general or allowed on the particular property.

L<Data::ICal> does not check to see if nested entries are nested
properly (alarms in todos and events only, everything else in
calendars only).

The only property encoding supported by L<Data::ICal> is quoted
printable.

Please report any bugs or feature requests to

 view release on metacpan or  search on metacpan

lib/Data/IconText.pm  view on Meta::CPAN

                # 'text-x-generic'                            => 0x0,
                # 'text-x-generic-template'                   => 0x0,
                # 'text-x-script'                             => 0x0,
                # 'video-x-generic'                           => 0x0,
                # 'x-office-address-book'                     => 0x0,
                # 'x-office-calendar'                         => 0x0,
                # 'x-office-document'                         => 0x0,
                # 'x-office-presentation'                     => 0x0,
                # 'x-office-spreadsheet'                      => 0x0,
                'folder'                                    => 0x1F4C1,
                # 'folder-remote'                             => 0x0,

 view release on metacpan or  search on metacpan

t/test-mails/long-msgid  view on Meta::CPAN

more. It's simple to become a quarterly subscriber, too. Register now at
http://www.hp.com/products1/evolution/customertimes/customertimes_reg.html!
 
EVENTS CALENDAR
Encompass and HP community events are promoted via an online events
calendar at http://www.encompassUS.org/calendar/index.cfm  Check this
calendar on a regular basis to learn about upcoming Encompass events.
Forward calendar posting requests to information@encompassUS.org.


WE WANT YOUR FEEDBACK AND SUBMISSIONS
Is there something you'd like to see in Encompass Points? Let us know.
If you have news, updates or something special you'd like to let the

 view release on metacpan or  search on metacpan

lib/Data/Model/Tutorial/JA.pm  view on Meta::CPAN

とはいえ、Data::Model 自体がまだまだαクオリティですので、チュートリアルもてぬき
です。

現在の Data::Model のドキュメントは Data::Model Track - JPerl Advent Calendar 2009 に良質なドキュメントがありますので、そちらを参考にしてください。
L<http://perl-users.jp/articles/advent-calendar/2009/data-model/>
近い将来、これらのドキュメントが POD に統合されます。

=head1 つかってみる

=head2 DBI を対象につかってみる

 view release on metacpan or  search on metacpan

lib/Data/OpeningHours.pm  view on Meta::CPAN

use parent 'Exporter';

our @EXPORT_OK = qw/is_open/;

sub is_open {
    my ($calendar, $now) = @_;
    return $calendar->is_open($now);
}

1;

=head1 NAME

 view release on metacpan or  search on metacpan

share/dictionary.txt  view on Meta::CPAN

calculus's
calculuses
caldron
caldron's
caldrons
calendar
calendar's
calendared
calendaring
calendars
calf
calf's
calfs
calfskin
calfskin's

 view release on metacpan or  search on metacpan

lib/Data/Password/zxcvbn/RankedDictionaries/Common.pm  view on Meta::CPAN

    'calderon' => 12905,
    'caldwell' => 17221,
    'caleb' => 8673,
    'caleb1' => 14584,
    'caleb123' => 16085,
    'calendar' => 12681,
    'calgary' => 13188,
    'caliber' => 27620,
    'calibra' => 6800,
    'calico' => 12019,
    'caliente' => 8582,

 view release on metacpan or  search on metacpan

lib/Data/Plist/Foundation/LibraryToDo.pm  view on Meta::CPAN

use base qw/Data::Plist::Foundation::ToDo Class::Accessor/;

my %mapping = (
    alarms       => "ToDo Alarms",
    cal_id       => "ToDo Calendar ID",
    calendar     => "ToDo Calendar Title",
    complete     => "ToDo Completed",
    completed_at => "ToDo Date Completed",
    created      => "ToDo Date Created",
    due          => "ToDo Due Date",
    notes        => "ToDo Notes",

 view release on metacpan or  search on metacpan

Quantity/Time/Date.pm  view on Meta::CPAN

### Data::Quantity::Time::Date - A calendar day on earth during the modern epoch

### Change History
  # 2001-02-21 Added Mon dd, yy format.
  # 2001-02-07 Added yymmdd format.
  # 2000-03-29 Added Month dd, yyyy format.

 view release on metacpan or  search on metacpan

lib/Data/Random/Contact/Language/EN.pm  view on Meta::CPAN

calculus's
calculuses
caldron
caldron's
caldrons
calendar
calendar's
calendared
calendaring
calendars
calf
calf's
calfs
calfskin
calfskin's

 view release on metacpan or  search on metacpan

lib/Data/Random/dict  view on Meta::CPAN

Calcutta
Calder
caldera
Caldwell
Caleb
calendar
calendars
calf
calfskin
Calgary
Calhoun
caliber

 view release on metacpan or  search on metacpan

lib/Data/Secs2.pm  view on Meta::CPAN

and that the real originators of the SECS-II yielded
and allowed Tony Blair to take illegal credit for 
inventing SECS-II.
After all the practical definition of politics is
getting your own way. 
Julius Ceasar invented the Julian calendar and the month of July,
Augustus Ceasar the month of Auguest,
Al Gore the information highway and
Tony Blair not only SECS-II but SECS-I and High-Speed SECS.

=head2 SECSII Format

 view release on metacpan or  search on metacpan

t/Data/Data/Secs2.pm  view on Meta::CPAN

and that the real originators of the SECS-II yielded
and allowed Tony Blair to take illegal credit for 
inventing SECS-II.
After all the practical definition of politics is
getting your own way. 
Julius Ceasar invented the Julian calendar and the month of July,
Augustus Ceasar the month of Auguest,
Al Gore the information highway and
Tony Blair not only SECS-II but SECS-I and High-Speed SECS.

=head2 SECSII Format

 view release on metacpan or  search on metacpan

t/Data/Data/Secs2.pm  view on Meta::CPAN

and that the real originators of the SECS-II yielded
and allowed Tony Blair to take illegal credit for 
inventing SECS-II.
After all the practical definition of politics is
getting your own way. 
Julius Ceasar invented the Julian calendar and the month of July,
Augustus Ceasar the month of Auguest,
Al Gore the information highway and
Tony Blair not only SECS-II but SECS-I and High-Speed SECS.

=head2 SECSII Format

 view release on metacpan or  search on metacpan

t/Data/Data/Secs2.pm  view on Meta::CPAN

and that the real originators of the SECS-II yielded
and allowed Tony Blair to take illegal credit for 
inventing SECS-II.
After all the practical definition of politics is
getting your own way. 
Julius Ceasar invented the Julian calendar and the month of July,
Augustus Ceasar the month of Auguest,
Al Gore the information highway and
Tony Blair not only SECS-II but SECS-I and High-Speed SECS.

=head2 SECSII Format

 view release on metacpan or  search on metacpan

t/data/sample_eu.xml  view on Meta::CPAN

            <regulationSummary regulationType="amendment" publicationDate="2008-07-17" numberTitle="678/2008 (OJ L189)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2008:189:0023:0024:EN:PDF"/>
        </nameAlias>
        <citizenship region="" countryIso2Code="DZ" countryDescription="ALGERIA" regulationLanguage="en" logicalId="526">
            <regulationSummary regulationType="amendment" publicationDate="2008-07-17" numberTitle="678/2008 (OJ L189)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2008:189:0023:0024:EN:PDF"/>
        </citizenship>
        <birthdate circa="false" calendarType="GREGORIAN" city="Touggourt, Wilaya (province) of Ouargla" zipCode="" birthdate="1965-12-12" dayOfMonth="12" monthOfYear="12" year="1965" region="" place="" countryIso2Code="DZ" countryDescription="ALGERI...
            <regulationSummary regulationType="amendment" publicationDate="2019-04-08" numberTitle="2019/555 (OJ L97)" publicationUrl="https://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=OJ:L:2019:097:FULL&amp;from=EN"/>
        </birthdate>
        <birthdate circa="true" calendarType="GREGORIAN" city="Deb-Deb, Amenas, Wilaya (province) of Illizi" zipCode="" year="1958" region="" place="" countryIso2Code="DZ" countryDescription="ALGERIA" regulationLanguage="en" logicalId="1074">
            <regulationSummary regulationType="amendment" publicationDate="2012-12-04" numberTitle="1142/2012 (OJ L332)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2012:332:0012:0015:EN:PDF"/>
        </birthdate>
    </sanctionEntity>
    <sanctionEntity designationDate="2009-07-16" designationDetails="" unitedNationId="" euReferenceNumber="EU.4011.64" logicalId="5463">
        <regulation regulationType="repealing" organisationType="council" publicationDate="2017-08-31" entryIntoForceDate="2017-09-01" numberTitle="2017/1509 (OJ L224)" programme="PRK" logicalId="107441">

t/data/sample_eu.xml  view on Meta::CPAN

            <regulationSummary regulationType="amendment" publicationDate="2018-03-22" numberTitle="2018/468 (OJ L79)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=CELEX:32018R0468&amp;qid=1521740406834&amp;from=EN"/>
        </nameAlias>
        <nameAlias firstName="Ashraf" middleName="Refaat Nabith" lastName="HENIN" wholeName="Ashraf Refaat Nabith HENIN" function="" gender="M" title="" nameLanguage="" strong="true" regulationLanguage="en" logicalId="292">
            <regulationSummary regulationType="amendment" publicationDate="2018-03-22" numberTitle="2018/468 (OJ L79)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=CELEX:32018R0468&amp;qid=1521740406834&amp;from=EN"/>
        </nameAlias>
        <birthdate circa="false" calendarType="GREGORIAN" city="-" zipCode="" birthdate="1965-04-14" dayOfMonth="14" monthOfYear="4" year="1965" region="" place="" countryIso2Code="PK" countryDescription="PAKISTAN" regulationLanguage="en" logicalId="...
            <regulationSummary regulationType="amendment" publicationDate="2005-11-30" numberTitle="2005/848/EC (OJ L314)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2005:314:0046:0047:EN:PDF"/>
        </birthdate>
        <birthdate circa="false" calendarType="GREGORIAN" city="-" zipCode="" birthdate="1964-03-01" dayOfMonth="1" monthOfYear="3" year="1964" region="" place="" countryIso2Code="PK" countryDescription="PAKISTAN" regulationLanguage="en" logicalId="1...
            <regulationSummary regulationType="amendment" publicationDate="2005-11-30" numberTitle="2005/848/EC (OJ L314)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2005:314:0046:0047:EN:PDF"/>
        </birthdate>
        <identification diplomatic="false" knownExpired="false" knownFalse="false" reportedLost="false" revokedByIssuer="false" issuedBy="" latinNumber="" nameOnDocument="" number="488555" region="" countryIso2Code="00" countryDescription="UNKNOWN" i...
            <regulationSummary regulationType="repealing" publicationDate="2015-08-01" numberTitle="2015/1325 (OJ L206)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=CELEX:32015R1325&amp;rid=1"/>
        </identification>

t/data/sample_eu.xml  view on Meta::CPAN

            <regulationSummary regulationType="amendment" publicationDate="2010-12-23" numberTitle="1250/2010 (OJ L341)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2010:341:0011:0014:EN:PDF"/>
        </nameAlias>
        <citizenship region="" countryIso2Code="RW" countryDescription="RWANDA" regulationLanguage="en" logicalId="111052">
            <regulationSummary regulationType="amendment" publicationDate="2017-03-08" numberTitle="2017/396 (OJ L60)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=CELEX:32017R0396&amp;from=EN"/>
        </citizenship>
        <birthdate circa="false" calendarType="GREGORIAN" city="Rushashi (Northern Province)" zipCode="" year="1954" region="" place="" countryIso2Code="RW" countryDescription="RWANDA" regulationLanguage="en" logicalId="1317">
            <regulationSummary regulationType="amendment" publicationDate="2010-12-23" numberTitle="1250/2010 (OJ L341)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2010:341:0011:0014:EN:PDF"/>
        </birthdate>
        <birthdate circa="false" calendarType="GREGORIAN" city="Kigali" zipCode="" year="1954" region="" place="" countryIso2Code="RW" countryDescription="RWANDA" regulationLanguage="en" logicalId="1314">
            <regulationSummary regulationType="amendment" publicationDate="2010-12-23" numberTitle="1250/2010 (OJ L341)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2010:341:0011:0014:EN:PDF"/>
        </birthdate>
        <birthdate circa="false" calendarType="GREGORIAN" city="Rushashi (Northern Province)" zipCode="" year="1953" region="" place="" countryIso2Code="RW" countryDescription="RWANDA" regulationLanguage="en" logicalId="1315">
            <regulationSummary regulationType="amendment" publicationDate="2010-12-23" numberTitle="1250/2010 (OJ L341)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2010:341:0011:0014:EN:PDF"/>
        </birthdate>
        <birthdate circa="false" calendarType="GREGORIAN" city="Kigali" zipCode="" year="1953" region="" place="" countryIso2Code="RW" countryDescription="RWANDA" regulationLanguage="en" logicalId="1316">
            <regulationSummary regulationType="amendment" publicationDate="2010-12-23" numberTitle="1250/2010 (OJ L341)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2010:341:0011:0014:EN:PDF"/>
        </birthdate>
        <address city="" street="" poBox="" zipCode="" region="North Kivu" place="Kikoma forest, Bogoyi, Walikale" asAtListingTime="false" countryIso2Code="CD" countryDescription="CONGO, Democratic Republic of (was Zaire)" regulationLanguage="en" log...
            <remark>FDLR HQ at Kikoma forest, Bogoyi, Walikale, North Kivu, Democratic Republic of the Congo (as of June 2011).</remark>
            <regulationSummary regulationType="amendment" publicationDate="2017-03-08" numberTitle="2017/396 (OJ L60)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=CELEX:32017R0396&amp;from=EN"/>

t/data/sample_eu.xml  view on Meta::CPAN

            <regulationSummary regulationType="amendment" publicationDate="2006-01-18" numberTitle="76/2006 (OJ L12)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2006:012:0007:0016:EN:PDF"/>
        </nameAlias>
        <citizenship region="" countryIso2Code="TN" countryDescription="TUNISIA" regulationLanguage="en" logicalId="135">
            <regulationSummary regulationType="amendment" publicationDate="2003-05-20" numberTitle="866/2003 (OJ L124)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2003:124:0019:0022:EN:PDF"/>
        </citizenship>
        <birthdate circa="false" calendarType="GREGORIAN" city="Tunis" zipCode="" birthdate="1974-12-11" dayOfMonth="11" monthOfYear="12" year="1974" region="" place="" countryIso2Code="TN" countryDescription="TUNISIA" regulationLanguage="en" logical...
            <regulationSummary regulationType="amendment" publicationDate="2005-09-23" numberTitle="1551/2005 (OJ L247)" publicationUrl="http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=OJ:L:2005:247:0030:0031:EN:PDF"/>
        </birthdate>
        <address city="Tunis" street="23 50th Street, Zehrouni" poBox="" zipCode="" region="" place="" asAtListingTime="false" countryIso2Code="TN" countryDescription="TUNISIA" regulationLanguage="en" logicalId="1623">
            <remark>Italian Fiscal Code: DAOMMD74T11Z352Z</remark>
            <regulationSummary regulationType="amendment" publicationDate="2015-01-16" numberTitle="2015/64 (OJ L11)" publicationUrl="http://eur-lex.europa.eu/legal-content/EN/TXT/PDF/?uri=OJ:L:2015:011:FULL&amp;from=EN"/>

 view release on metacpan or  search on metacpan

lib/Date/Advent.pm  view on Meta::CPAN

=head1 SYNOPSIS

Date::Advent takes a Time::Piece date and calculates all four Sundays of Advent for the current Christian liturgical year.

As Advent is the beginning of the Christian liturgical calendar, this usually results in the date for Advent in the current year being dates in the past.  E.g. The Sundays of Advent returned for 12. March 2016 would be 29. November 2015, 6. December ...

    use Time::Piece;
    use Date::Advent;

    my $testAdvent = Date::Advent->new(date => Time::Piece->strptime("2016-01-01", "%Y-%m-%d"));

 view release on metacpan or  search on metacpan

lib/Date/Baha/i.pm  view on Meta::CPAN

  18. Abha   - Most Luminous
  19. Vahid  - Unity

=head2 MONTH NAMES

The names of the months in the Baha'i (Badi) calendar were given by the Bab, who
drew them from the nineteen names of God invoked in a prayer said during the
month of fasting in Shi'ih Islam. They are:

  1.  Baha       - Splendour (21 March - 8 April)
  2.  Jalal      - Glory (9 April - 27 April)

lib/Date/Baha/i.pm  view on Meta::CPAN

L<Lingua::EN::Numbers>

L<Lingua::EN::Numbers::Years>

L<http://calendar.bahaiq.com/>

=head1 TO DO

Base the date computation on the time of day (Baha'i day begins at sunset).

 view release on metacpan or  search on metacpan

lib/Date/Bahai/Simple.pm  view on Meta::CPAN

    my ($year) = @_;

    # Source: Wikipedia
    # In 2014, the Universal House of Justice selected  Tehran, the birthplace of
    # Baha'u'lláh, as the location to which the date of  the vernal equinox is to
    # be fixed, thereby "unlocking" the Badi calendar from the Gregorian calendar.
    # For determining  the dates,  astronomical  tables from reliable sources are
    # used.
    # In  the  same  message  the  Universal  House  of  Justice decided that the
    # birthdays  of  the Bab and Baha'u'lláh will be celebrated on "the first and
    # the  second  day  following  the  occurrence  of  the eighth new moon after
    # Naw-Ruz"  (also with the use of astronomical tables) and fixed the dates of
    # the Bahaí Holy Days in the Baha'í calendar, standardizing dates for Baha'ís
    # worldwide. These changes came into effect as of sunset on 20 March 2015.The
    # changes  take effect from the next Bahai New Year, from sunset on March 20,
    # 2015.

    my $month = 3;

 view release on metacpan or  search on metacpan

Business.pm  view on Meta::CPAN

1;
__END__

=head1 NAME

  Date::Business - fast calendar and business date calculations

=head1 SYNOPSIS

  All arguments to the Date::Business constructor are optional.

Business.pm  view on Meta::CPAN

  $d->eq($x);            # synonym for datecmp
  $d->lt($x);            # less than
  $d->gt($x);            # greater than

  Calendar date functions
  $d->next();         # next calendar day
  $d->prev();         # previous calendar day
  $d->add(<offset>);  # adds n calendar days
  $d->sub(<offset>);  # subtracts n calendar days
  $d->diff($x);       # difference between two dates  
    
  Business date functions
  $d->nextb();        # next business day
  $d->prevb();        # previous business day

Business.pm  view on Meta::CPAN

=head1 DESCRIPTION

Date::Business provides the functionality to perform simple date
manipulations quickly. Support for calendar date and
business date math is provided.

Business dates are weekdays only. Adding 1 to a weekend returns
Monday, subtracting 1 returns Friday.

 view release on metacpan or  search on metacpan

CHANGES.txt  view on Meta::CPAN

Version 5.8   12.09.2009

 +  Added a new function "N_Delta_YMD()"
 +  Added a new test script "t/f037.t"
 +  Updated the "Calc.pod" manual page accordingly
 +  Renamed "calendar.cgi" in the "examples"
    subdirectory to "calendar.pl"
 +  Added a new CGI script named "datecalc.pl"
    to the "examples" subdirectory

Version 5.7   23.08.2009

CHANGES.txt  view on Meta::CPAN

    of the days of the week in Portuguese
 +  Made the days which form the weekend con-
    figurable in "Calendar.pm" and "Year.pm"
 +  Added some test cases for this new feature
    in "t/m008.t"
 +  The file "examples/calendar.cgi" now
    also supports this new feature
 +  Updated "README.txt" and "INSTALL.txt"
    and the dependency on "Bit::Vector" 7.0
 +  Added an additional "README.htm" file to this
    distribution highlighting its key points

CHANGES.txt  view on Meta::CPAN

 +  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".
 +  Added a few commemorative days to the Norwegian calendar profile.
 +  Added "use bytes" to all Perl files to avoid problems on systems
    not using the standard locale "C".
 +  Fixed test 5 of t/m005.t to (hopefully) work under other locales.

Version 5.3   29.09.2002

CHANGES.txt  view on Meta::CPAN

Version 5.1   08.09.2002

 +  Integrated modifications needed for MacOS / MacPerl.
 +  Added new method "normalize()" (Date::Calc::Object).
 +  Added a new test script "t/m011.t" for "normalize()".
 +  Added a calendar profile for Mexico (Date::Calendar::Profiles).
 +  Little additions to and corrections of the documentation (Date::Calc).
 +  Added Polish (Date::Calc) and a calendar profile for Poland.
 +  Added Hungarian (Date::Calc).
 +  Added some more commemorative days to the profile of Brazil.

Version 5.0   10.10.2001

CHANGES.txt  view on Meta::CPAN

    consistent and reversible behaviour. This might break existing
    code, though. (To get the old behaviour, use the new function
    "Add_Delta_YM()" plus "Add_Delta_Days()" thereafter instead.)
 +  Changed the corresponding test script (t/f029.t) accordingly.
 +  Added an optional boolean parameter "orthodox" to "Calendar()"
    for calendars starting with Sunday instead of Monday.
 +  Changed the behaviour of the "Decode_Date_*()" set of functions:
    if the current year is available on the system, then a "moving
    window" strategy is applied to year numbers < 100; otherwise
    it defaults to the previous behaviour (see version 4.3 below).
 +  Also changed the test scripts t/f016.t, t/f027.t and t/f028.t

CHANGES.txt  view on Meta::CPAN

Modules "Date::Calendar[::(Year|Profiles)]":

 +  Added the modules Date::Calendar, Date::Calendar::Year and
    Date::Calendar::Profiles, for calculations which need to
    take holidays into account (and for generating calendars).

Module "Carp::Clan":

 +  Added the module Carp::Clan (used by all new Date::* modules).

CHANGES.txt  view on Meta::CPAN

    week of the next year in a rather hidden way.
 +  The Perl function "week_number()" was not affected by this change.

Version 3.1   12.06.1997

 +  Added a new function "calendar()" to the "Date::CalcLib" module.
 +  Added a demo program in C named "cal.c_" (imitates the UNIX "cal"
    command) to demonstrate the use of the C core as a stand-alone library.

Version 3.0   16.02.1997

 view release on metacpan or  search on metacpan

lib/Date/Calendar/Profiles.pm  view on Meta::CPAN

    "Early May Bank Holiday"    => \&GB_Early_May,
    "Late May Bank Holiday"     => "5/Mon/May", # Last Monday
#
# Jonathan Stowe <gellyfish@gellyfish.com> told me that spring
# bank holiday is the first Monday after Whitsun, but my pocket
# calendar suggests otherwise. I decided to follow my pocket
# guide and an educated guess ;-), but please correct me if
# I'm wrong!
#
    "Summer Bank Holiday"       => "5/Mon/Aug", # Last Monday
    "Christmas Day"             => \&GB_Christmas,

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
{

lib/Date/Calendar/Profiles.pm  view on Meta::CPAN

# Paul Fenwick <pjf@cpan.org>
# Brian Graham <brian.graham@nec.com.au>
# Pat Waters <pat.waters@dir.qld.gov.au>
# Stephen Riehm <Stephen.Riehm@gmx.net>
#     http://www.holidayfestival.com/Australia.html
#     http://www.earthcalendar.net/countries/2001/australia.html
# Sven Geisler <sgeisler@aeccom.com>
# Canberra (ACT):
#     http://www.workcover.act.gov.au/labourreg/publicholidays.html
# New South Wales (NSW):
#     http://www.dir.nsw.gov.au/holidays/index.html

 view release on metacpan or  search on metacpan

lib/Date/Chinese.pm  view on Meta::CPAN

	%EXPORT_TAGS = ();
}

=head1 NAME

Date::Chinese - Calculate dates in the Chinese calendar

=head1 SYNOPSIS

  use Date::Chinese;

lib/Date/Chinese.pm  view on Meta::CPAN

future versions. I'll hopefully be adding more details about the date,
rather than just the year.

You should also note that the Chinese new year does not conicide with
the Gregorian new year, so the determination of what year it is in the
Chinese calendar is only going to be correct for a portion of the
Gregorian year.

=head1 SUPPORT

datetime@perl.org

lib/Date/Chinese.pm  view on Meta::CPAN

=head1 SEE ALSO

 perl(1).
 http://dates.rcbowen.com/

=head1 About the Chinese calendar

Reference: The Oxford Companion to the Year - Bonnie Blackburn and
Leofranc Holford-Strevens. Pg 696-707

The Chinese calendar is a 19 year cycle. Seven of these 19 years have 13
months, and the rest have 12. There's a whole heck of a lot more to it
than the 12 animals that you see on your placemat at your favorite
Chinese restaurant.

There is a cycle of 10 stems and 12 branches. Each stem has associated

lib/Date/Chinese.pm  view on Meta::CPAN

different components. And various combinations mean various things.

There are, of course, many folks that have more knowledge of how this
all works than I do. I just used to be a mathematician.

http://www.math.nus.edu.sg/aslaksen/calendar/chinese.shtml seems like
a good place to start, but there are many other very informative sites
on the net.

=cut

 view release on metacpan or  search on metacpan

lib/Date/Components.pm  view on Meta::CPAN

                   );

use version; our $VERSION = qv('0.2.1');


# According to the Royal Greenwich Observatory, the calendar year is 365 days
# long, unless the year is exactly divisible by four, then an extra day is
# added to February so the year is 366 days long. If the year is the last year
# of a century, e.g., 2000, 2100, 2200, 2300, 2400, then it is only a leap
# year if it is exactly divisible by 400. So, 2100 won't be a leap year but
# 2000 is. The next century year, exactly divisible by 400, won't occur until

lib/Date/Components.pm  view on Meta::CPAN

#            :   WEEKDAY date in any format,
#            :   number of weekdays offset, positive is future date, negative is past date, zero is current date (no offset)
#            : )
# Throws     : Throws exception for any invalid input INCLUDING weekend dates
# Comments   : This effectively functions as if ALL weekend dates were removed
#            : from the calendar.  This function accepts ONLY weekday dates and
#            : outputs ONLY weekday dates
# See Also   : N/A
###############################################################################
sub date_offset_in_weekdays
   {

lib/Date/Components.pm  view on Meta::CPAN

date components of I<month>, I<day-of-month>, I<year> and I<day-of-week>.
B<ALL> representations of time and related parameters are ignored, including
hours, minutes, seconds, time zones, daylight savings time, etc.

Leap year standard is used.  According to the Royal Greenwich Observatory, the
calendar year is 365 days long, unless the year is exactly divisible by four,
then an extra day is added to February so the year is 366 days long. If the
year is the last year of a century, e.g., 2000, 2100, 2200, 2300, 2400, then it
is only a leap year if it is exactly divisible by 400. So, 2100 won't be a leap
year but 2000 is. The next century year, exactly divisible by 400, won't occur
until 2400--400 years away.

lib/Date/Components.pm  view on Meta::CPAN

 Throws exception for any invalid input INCLUDING weekend dates

=item Comments:

 This effectively functions as if ALL weekend dates were removed
 from the calendar.  This function accepts ONLY weekday dates and
 outputs ONLY weekday dates

=item Examples:

 date_offset_in_weekdays('Mon Jul 11 08:50:51 1977', -7);  # Returns '06/30/1977'

 view release on metacpan or  search on metacpan

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

# -*- encoding: utf-8; indent-tabs-mode: nil -*-
#
#     Perl Date::Convert extension to convert dates from/to the French Revolutionary calendar
#     Copyright (C) 2001-2003, 2013, 2015, 2020 Jean Forget
#
#     See the license in the embedded documentation below.
#
package Date::Convert::French_Rev;

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

@EXPORT = qw(

);
$VERSION = '0.09';

use constant REV_BEGINNING => 2375840; # 1 Vendémiaire I in the Revolutionary calendar
my @MONTHS_SHORT  = qw ( Vnd Bru Fri Niv Plu Vnt Ger Flo Pra Mes The Fru S-C);
my @MONTHS = qw(Vendémiaire Brumaire  Frimaire
                Nivôse      Pluviôse  Ventôse
                Germinal    Floréal   Prairial
                Messidor    Thermidor Fructidor);

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

use constant FOUR_YEARS     => 4 * NORMAL_YEAR + 1; # one leap year every four years
use constant CENTURY        => 25 * FOUR_YEARS - 1; # centuries aren't leap years...
use constant FOUR_CENTURIES => 4 * CENTURY + 1;     # ...except every four centuries that are.
use constant FOUR_MILLENIA  => 10 * FOUR_CENTURIES - 1; # ...except every four millenia that are not.

# number of days between the start of the revolutionary calendar, and the
# beginning of year n - 1
my @YEARS_BEGINS=    (0, 365, 730, 1096, 1461, 1826, 2191, 2557, 2922, 3287, 3652,
                   4018, 4383, 4748, 5113, 5479, 5844);

# This method shoudl be in the master class, but for the moment, it is only available here
sub change_to {
  croak "Need to specify the new calendar"
    if @_ <= 1;
  my ($self, $new_cal) = @_;
  $new_cal->convert($self);
}

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

Boolean.

=item convert

Change the date to a new format. The invocant is the class name of the
destination calendar, the parameter is the C<Date::Convert::>I<whatever>
object to convert.

=item change_to

Change the date to a new format. The invocant is the
C<Date::Convert::>I<whatever> object to convert, the parameter is the
class name of the destination calendar. For the moment, this method is
available only for C<Date::Convert::French_Rev> invocant objects.

=item date_string

Return the date  in a pretty format. You can  give an string parameter

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

2-digit year - 00 to 99

=item %Y, %G

year  - 0001  to  9999. There  is  no difference  between these  three
variants. This is because in the Revolutionary calendar, the beginning
of a year  is always aligned with the beginning of  a décade, while in
the Gregorian calendar, the beginning of a year is usually not aligned
with the beginning of a week.

=item %L

This is  a third specifier  for the year. The  problem is that  I have

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

day of décade - "Primidi" to "Décadi". A variable length string.

=item %a

abbreviated day of décade -  "Pri" to "Déc".  A 3-char string. Beware:
do not confuse Sep, Oct and Déc with Gregorian calendar months

=item %w

day  of décade -  " 1"  to "10"  (" 1"  for Primidi,  " 2"  for Duodi,
etc). The number is formatted as a 2-char string, with a leading space

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

if necessary.

=item %Ej

full name of the day of the year. Instead of assigning a saint to each
day, the creators of the calendar decided to assign a plant, an animal
or a tool. A variable-length string.

=item %EJ

same as %Ej, but significant words are capitalized.

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

The module does  not deal with year prior to the  epoch. The year must
be "1" or greater.

=item month %s out of range

The  French  Revolutionary  calendar  has  12  months,  plus  5  or  6
additional days  that do not belong  to a month.  So  the month number
must be in the 1-12 range for normal days, or 13 for additional days

=item standard day number %s out of range

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

(that is, September 2022) it will produce a warning. And after another
two years it will be removed.

=head1 HISTORICAL NOTES

The Revolutionary calendar was in  use in France from 24 November 1793
(4 Frimaire II) to 31 December 1805 (10 Nivôse XIV). An attempt to use
the  decimal   rule  (the   basis  of  the   metric  system)   to  the
calendar. Therefore, the week  disappeared, replaced by the décade (10
days, totally different from the  English word "decade", 10 years). In
addition, all months have exactly 3 decades, no more, no less.

At first,  the year was  beginning on the  equinox of autumn,  for two
reasons.  First, the  republic had  been established  on  22 September
1792, which  happened to be the  equinox, and second,  the equinox was
the symbol of equality, the day and the night lasting exactly 12 hours
each. It  was therefore  in tune with  the republic's  motto "Liberty,
Equality, Fraternity". But  it was not practical, so  Romme proposed a
leap year rule similar to the Gregorian calendar rule.

In his book  I<The French Revolution>, the 19th  century writer Thomas
Carlyle proposes these translations for the month names:

  Vendémiaire -> Vintagearious

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

date(1)

CALENDRICA 4.0 -- Common Lisp, which can be download in the "Resources" section of
L<https://www.cambridge.org/us/academic/subjects/computer-science/computing-general-interest/calendrical-calculations-ultimate-edition-4th-edition?format=PB&isbn=9781107683167>

F<calendar/cal-french.el>  in emacs-21.2  or later  or xemacs  21.1.8,
forked in L<https://github.com/jforget/emacs-lisp-cal-french>

C<Date::Calendar::FrenchRevolutionary> for Raku at L<https://modules.raku.org/dist/Date::Calendar::FrenchRevolutionary:cpan:JFORGET>
or L<https://github.com/jforget/raku-Date-Calendar-FrenchRevolutionary>

L<https://www.gnu.org/software/apl/Bits_and_Pieces/calfr.apl.html> or L<https://github.com/jforget/apl-calendar-french>

L<https://www.hpcalc.org/details/7309> or L<https://github.com/jforget/hp48-hp50-French-Revolutionary-calendar>

L<https://github.com/jforget/hp41-calfr>

French Calendar for Android at
L<https://f-droid.org/packages/ca.rmen.android.frenchcalendar/>
or L<https://github.com/caarmen/FRCAndroidWidget>
and L<https://github.com/caarmen/french-revolutionary-calendar>

Thermidor for Android at L<https://github.com/jhbadger/Thermidor-Android>

A Ruby program at L<https://github.com/jhbadger/FrenchRevCal-ruby>

lib/Date/Convert/French_Rev.pm  view on Meta::CPAN

The French Revolution, Thomas Carlyle, Oxford University Press

=head2 Internet

L<http://www.faqs.org/faqs/calendars/faq/part3/>

L<https://h2g2.com/approved_entry/A2903636>

L<https://www.allhotelscalifornia.com/kokogiakcom/frc/default.asp>

 view release on metacpan or  search on metacpan

lib/Date.pod  view on Meta::CPAN

=head4 week_of_year()

    my $week_number = $date->week_of_year();
    my ($week_year, $week_number) = $date->week_of_year();

Returns information about the calendar week which contains this date object [1..53].

The first week of the year is defined by ISO as the one which contains the fourth day of January, which is equivalent to saying that it's the first week to overlap the new year by at least four days.

Typically the week year will be the same as the year that the object is in, but dates at the very beginning of a calendar year often end up in the last week of the prior year, and similarly, the final few days of the year may be placed in the first w...


=head4 error()

Returns error occured during creating or cloning object (if any) as L<XS::STL::ErrorCode> object.