view release on metacpan or  search on metacpan

lib/Acme/PM/Paris/Meetings.pm  view on Meta::CPAN

sub next_meeting
{
    my $count = shift(@_) || -1;

    unless (defined $iterator) {
        $iterator = recurrence()->iterator;
    }

    if (wantarray && $count >= 1) {
        map { $iterator->next()->strftime("%A %d/%m/%Y %Hh%M") } 1..$count;
    } else {
        $iterator->next()->strftime("%A %d/%m/%Y %Hh%M")
    }
}


=head2 ical

Returns the current ICal expression for the next Paris.pm meeting.

script/paris-pm  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Acme::PM::Paris::Meetings;

if (@ARGV) {
    if ($ARGV[0] =~ /^(?:-V|--version)$/) {
        print "Acme::PM::Paris::Meetings $Acme::PM::Paris::Meetings::VERSION\n";
    } elsif ($ARGV[0] =~ /^-([1-9]\d*)$/) {
        print map { "$_\n" } next_meeting($1);
    } else {
        print "syntaxe: paris-pm [-V|--version] [-<nombre>]\n";
        exit 2;
    }
} else {
    print next_meeting, "\n";
}

__END__
=head1 NAME