Result:
found more than 554 distributions - search limited to the first 2001 files matching your query ( run in 2.289 )


DMAMisc

 view release on metacpan or  search on metacpan

lib/DMA/ISODate.pm  view on Meta::CPAN

Four digit year formats are not limited to 4 digits. We can express dates far
into the future. In any place hereafter where we use "YYYY", any number of 
extra digits are possible. 

[We aren't affected by the size of Unix timval (ie the 2038 max year) except 
it is not convenient right now to do a perpetual calendar of my own to check 
the validity of a date.]

We do not, however, have any means of representing dates BC. For this we might
consider using the Peter Kokh dating system which adds 10000 to the AD date to
represent all of human history after the end of the most recent Ice Age. This

 view all matches for this distribution


DOCSIS-ConfigFile

 view release on metacpan or  search on metacpan

lib/DOCSIS/ConfigFile/mibs/DIFFSERV-MIB  view on Meta::CPAN

    STATUS       current
    DESCRIPTION
       "The Queue Table enumerates the individual queues.  Note that the
       MIB models queuing systems as composed of individual queues, one
       per class of traffic, even though they may in fact be structured
       as classes of traffic scheduled using a common calendar queue, or
       in other ways."
    ::= { diffServQueue 2 }

diffServQEntry OBJECT-TYPE
    SYNTAX       DiffServQEntry

 view all matches for this distribution


DPKG-Log

 view release on metacpan or  search on metacpan

test_data/big.log  view on Meta::CPAN

2011-01-17 10:52:19 configure libdata-dump-perl 1.19-1 1.19-1
2011-01-17 10:52:19 status unpacked libdata-dump-perl 1.19-1
2011-01-17 10:52:19 status half-configured libdata-dump-perl 1.19-1
2011-01-17 10:52:19 status installed libdata-dump-perl 1.19-1
2011-01-17 11:38:19 startup archives install
2011-01-17 11:38:19 install libnet-google-calendar-perl <keine> 0.99-1
2011-01-17 11:38:19 status half-installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:19 status triggers-pending man-db 2.5.7-7
2011-01-17 11:38:19 status half-installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 configure libnet-google-calendar-perl 0.99-1 0.99-1
2011-01-17 11:38:20 status unpacked libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status half-configured libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 status triggers-awaited libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:20 trigproc man-db 2.5.7-7 2.5.7-7
2011-01-17 11:38:20 status half-configured man-db 2.5.7-7
2011-01-17 11:38:20 status installed libnet-google-calendar-perl 0.99-1
2011-01-17 11:38:32 status installed man-db 2.5.7-7
2011-01-17 11:39:19 startup archives unpack
2011-01-17 11:39:20 install liblwp-authen-wsse-perl <keine> 0.05-1
2011-01-17 11:39:20 status half-installed liblwp-authen-wsse-perl 0.05-1
2011-01-17 11:39:20 status triggers-pending man-db 2.5.7-7

 view all matches for this distribution


Dallycot

 view release on metacpan or  search on metacpan

lib/Dallycot/Library/Core/DateTime.pm  view on Meta::CPAN

use DateTime::Calendar::Hebrew;
use DateTime::Calendar::Julian;
use DateTime::Calendar::Pataphysical;
use DateTime::Calendar::Hijri;

# Hack to get the Islamic calendar convertable

sub DateTime::Calendar::Hijri::clone { $_[0] }

use DateTime::Format::Flexible;
use List::Util qw(all any);

lib/Dallycot/Library/Core/DateTime.pm  view on Meta::CPAN

  'date' => (
  hold => 0,
  arity => 1,
  options => {
    timezone => Dallycot::Value::String->new("UTC"),
    calendar => Dallycot::Value::String->new("Gregorian")
  }
  ),
  sub {
  my ( $engine, $options, $vector ) = @_;

lib/Dallycot/Library/Core/DateTime.pm  view on Meta::CPAN

    croak 'The argument for date must be a vector of numerics';
  }
  if(!all { $_ -> isa('Dallycot::Value::Numeric') } $vector->values) {
    croak 'The argument for date must be a vector of numerics';
  }
  my @valid_calendars = grep { defined $CALENDAR_ARGS{$_}{date_names} } keys %CALENDAR_ARGS;

  if(!$options->{calendar}->isa('Dallycot::Value::String')) {
    croak 'The calendar option for date must be one of ' . join(', ', @valid_calendars);
  }
  if(!$options->{timezone}->isa('Dallycot::Value::String') && !$options->{timezone}->isa('Dallycot::Value::Undefined')) {
    croak 'The timezone option for date must be a string or nil';
  }

  my $calendar = $options->{calendar}->value;
  if(!any { $_ eq $calendar } @valid_calendars) {
    croak 'The calendar option for date must be one of ' . join(', ', @valid_calendars);
  }

  my @values = map { $_ -> value -> numify } $vector -> values;
  my @arg_names = @{$CALENDAR_ARGS{$calendar}{date_names}};
  my $class = $CALENDAR_ARGS{$calendar}{class};

  $#arg_names = $#values if $#values < $#arg_names;
  my %args;

  @args{@arg_names} = @values;

  if($options->{timezone}->isa('Dallycot::Value::String') && $CALENDAR_ARGS{$calendar}{time_zone}) {
    $args{time_zone} = $options->{timezone}->value;
  }

  return Dallycot::Value::DateTime -> new(
    object => $class -> new(%args),
    class => $class
  );
};

define
  'calendar-convert' => (
    hold => 0,
    arity => [1,2],
    options => {}
  ), sub {
  my ( $engine, $options, $date, $calendar ) = @_;

  if($calendar && !$calendar->isa('Dallycot::Value::String')) {
    croak 'The calendar argument to calendar-convert must be a string';
  }

  if($calendar) {
    $calendar = $calendar->value;
  }
  else {
    $calendar = 'Gregorian';
  }

  if(!$CALENDAR_ARGS{$calendar}) {
    croak 'Calendar-convert only supports ' . join(', ', sort keys %CALENDAR_ARGS);
  }

  if(!$date -> isa('Dallycot::Value::DateTime')) {
    croak 'Calendar-convert expects a date object as its first argument';
  }

  return Dallycot::Value::DateTime->new(
    object => $date->value,
    class => $CALENDAR_ARGS{$calendar}{class}
  );
};

define
  'duration' => (
  hold => 0,
  arity => [1,2],
  options => {
    calendar => Dallycot::Value::String->new("Gregorian")
    }
  ),
  sub {
  my ( $engine, $options, $vector, $target ) = @_;

lib/Dallycot/Library/Core/DateTime.pm  view on Meta::CPAN

  }
  if(!all { $_ -> isa('Dallycot::Value::Numeric') } $vector->values) {
    croak 'The argument for duration must be a vector of numerics';
  }

  my @valid_calendars = grep { defined $CALENDAR_ARGS{$_}{duration_names} } keys %CALENDAR_ARGS;

  if(!$options->{calendar}->isa('Dallycot::Value::String')) {
    croak 'The calendar option for duration must be one of ' . join(', ', @valid_calendars);
  }

  my $calendar = $options->{calendar}->value;
  if(!any { $_ eq $calendar } @valid_calendars) {
    croak 'The calendar option for duration must be one of ' . join(', ', @valid_calendars);
  }

  my @values = map { $_ -> value -> numify } $vector -> values;
  my @arg_names = @{$CALENDAR_ARGS{$calendar}{duration_names}};
  my $class = $CALENDAR_ARGS{$calendar}{class};

  $#arg_names = $#values;
  my %args;

  @args{@arg_names} = @values;

 view all matches for this distribution


Dancer-Layout-Bootstrap

 view release on metacpan or  search on metacpan

public/css/bootstrap-3/bootstrap.css  view on Meta::CPAN

  content: "\e107";
}
.glyphicon-plane:before {
  content: "\e108";
}
.glyphicon-calendar:before {
  content: "\e109";
}
.glyphicon-random:before {
  content: "\e110";
}

 view all matches for this distribution


Dancer-Plugin-MobileDevice

 view release on metacpan or  search on metacpan

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

=back

=head1 ACKNOWLEDGEMENTS

This plugin was initially written for an article of the Dancer advent
calendar 2010.

=head1 AUTHOR

Dancer Core Developers

 view all matches for this distribution


Dancer-SearchApp

 view release on metacpan or  search on metacpan

bin/index-ical.pl  view on Meta::CPAN

    env      => \%ENV,
    config   => LoadFile($config_file),
    names => [
        ['elastic_search/index' => 'elastic_search/index' => 'SEARCHAPP_ES_INDEX', 'dancer-searchapp'],
        ['elastic_search/nodes' => 'elastic_search/nodes' => 'SEARCHAPP_ES_NODES', 'localhost:9200'],
        ['calendars' => 'calendars' => undef, []],
    ],
);
my $index_name = $config->{elastic_search}->{index};
my $node = $config->{elastic_search}->{nodes};

bin/index-ical.pl  view on Meta::CPAN

sub in_exclude_list {
    my( $item, $list ) = @_;
    scalar grep { $item =~ /$_/ } @$list
};

sub get_messages_from_calendar {
    my( $calendar )= @_;
    # Add rate-limiting counter here, so we don't flood the IMAP server
    #     with reconnect attempts
    my $c = $calendar->cal;
    my $en  = $c->entries;
    return
        grep {
            $_->ical_entry_type =~ /^VEVENT$/
        }    

bin/index-ical.pl  view on Meta::CPAN

        organizer => ical_property($event,'organizer'),
        body => $body,
        html_content => $html_content,
        uid => ical_property($event,'uid'),
        url => ical_property($event,'url'),
        # better open the event in the calendar app!
        # But iCal doesn't support that
    }
}

my @calendars = @{ $config->{calendars} || [] };
if( @ARGV ) {
    @calendars = map { +{ calendar => $_, name => $_, exclude => [], } } @ARGV;
};

for my $calendar_def (@calendars) {
    my @messages;
    my $calendar_file = $calendar_def->{calendar};
    print "Reading $calendar_def->{name}\n";
    
    # Also support network access here?!
    my $caldav = Cal::DAV->new(
        user => $calendar_def->{user} || 'none',
        pass => $calendar_def->{pass} || 'none',
        url  => "file://$calendar_file",
        calname => $calendar_def->{name},
    );
    if( $calendar_file !~ m!://! ) {
        my $res = $caldav->parse(
            filename => $calendar_file,
        );
        if(! $res or ! $caldav->cal) {
            # Yes, parse errors result in ->cal being a Class::ReturnValue
            # object that is false but has the ->error_message method
            die "Couldn't parse calendar '$calendar_file': "
                . $caldav->cal->error_message;
        };
    };
    
    push @messages, map {
        # This doesn't handle attachments yet :-/
        ical_to_msg($_)
    } get_messages_from_calendar( $caldav );

    my $done = AnyEvent->condvar;

    print sprintf "Importing %d items\n", 0+@messages;
    collect(

bin/index-ical.pl  view on Meta::CPAN

                        # index bcc, cc, to, from
                        # content-type, ...
                        body    => { # "body" for non-bulk, "source" for bulk ...
                        #source    => {
                            url       => $msg->{url},
                            title     => $msg->{summary} . "($calendar_def->{name})",
                            title_suggest => $msg->{title_suggest}, # ugh
                            folder    => $calendar_def->{name},
                            from      => $msg->{organizer},
                            #to      => [ $msg->recipients ],
                            content => $msg->{html_content},
                            language => $lang,
                            #date    => $msg->date->strftime('%Y-%m-%d %H:%M:%S'),
                        }
                 });
               })->then(sub{ $|=1; print "."; }, sub {warn Dumper \@_});
       } @messages
    )->then(sub {
        print "$calendar_file done\n";
        $done->send;
    });
    
    $done->recv;
};

 view all matches for this distribution


Dancer2-Plugin-MobileDevice

 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 all matches for this distribution


Danga-Socket

 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 all matches for this distribution


Dash

 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 all matches for this distribution


Data-ICal-DateTime

 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 all matches for this distribution


Data-ICal

 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 all matches for this distribution


Data-IconText

 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 all matches for this distribution


Data-IntervalTree-Shared

 view release on metacpan or  search on metacpan

eg/calendar.pl  view on Meta::CPAN

    if (-d "$blib/arch") { require blib; blib->import($blib) }
    else { unshift @INC, "$FindBin::Bin/../lib" }
}
use Data::IntervalTree::Shared;

# A booking calendar: each reservation is a half-open time interval keyed by a
# booking id.  An interval tree answers "what's booked at time T?" (stab) and
# "does a proposed slot clash with anything?" (overlaps) in O(log n + matches),
# instead of scanning every booking.

my $cal = Data::IntervalTree::Shared->new(undef, 100_000);

 view all matches for this distribution


Data-Message

 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 all matches for this distribution


Data-Model

 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 all matches for this distribution


Data-OpeningHours

 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 all matches for this distribution


Data-Password-Filter

 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 all matches for this distribution


Data-Password-zxcvbn

 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 all matches for this distribution


Data-Plist

 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 all matches for this distribution


Data-Quantity

 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 all matches for this distribution


Data-Random-Contact

 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 all matches for this distribution


Data-Random

 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 all matches for this distribution


Data-Secs2

 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 all matches for this distribution


Data-SecsPack

 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 all matches for this distribution


Data-SegmentTree-Shared

 view release on metacpan or  search on metacpan

eg/range_stats.pl  view on Meta::CPAN

    if (-d "$blib/arch") { require blib; blib->import($blib) }
    else { unshift @INC, "$FindBin::Bin/../lib" }
}
use Data::SegmentTree::Shared;

# A booking calendar: 365 days, each cell is the number of reservations that day.
# range_add books a contiguous stay in O(log n); range min/max/sum answer
# "how busy is this week?" without scanning the days.

my $st = Data::SegmentTree::Shared->new(undef, 365);

# a few overlapping bookings, each covering a date range (0-based day of year)
my @bookings = ([10, 20], [15, 18], [17, 30], [100, 140], [120, 125], [359, 364]);
$st->range_add($_->[0], $_->[1], 1) for @bookings;

printf "%d bookings applied over a 365-day calendar\n\n", scalar @bookings;

# busiest single day overall, and total reserved-days
printf "peak occupancy any day : %d\n", $st->max(0, 364);
printf "total reserved day-slots: %d\n\n", $st->sum(0, 364);

 view all matches for this distribution


Data-Startup

 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 all matches for this distribution


Data-Str2Num

 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 all matches for this distribution


Data-Validate-Sanctions

 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 all matches for this distribution


Date

 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.

 view all matches for this distribution


( run in 2.289 seconds using v1.01-cache-2.11-cpan-64ef6c95b5d )