Yet Another CPAN Grep

Meetup-API ( C/CO/CORION/Meetup-API-0.02.tar.gz, CORION, 2018; MetaCPAN )

Meetup-API/lib/Meetup/API.pm ( view source; MetaCPAN )

2. Visit L<https://secure.meetup.com/de-DE/meetup_api/key/>
to get the API key

=item 4. Create a JSON file named C<meetup.credentials>

This file should live in your
home directory
with the API key:

Meetup-API ( C/CO/CORION/Meetup-API-0.02.tar.gz, CORION, 2018; MetaCPAN )

Meetup-API/lib/Meetup/API/v3.pm ( view source; MetaCPAN )

   },
);

=head2 C<< ->json >>

Used to set/get the L<JSON::XS> JSON decoder

=cut

has 'json' => (
    is => 'lazy',
    default => sub {
        require JSON::XS;
        JSON::XS->new()->utf8
    }

tions ) >>

  $m->read_credentials();

Looks for a file named C<meetup.credentials>, parses it as JSON and reads
the value C<applicationKey> from it.

The following options are recognized:

=over 4

=

 "Couldn't read API key from '$options{ filename }' : $!";
    local $/; # /
    my $cfg = $self->json->decode(<$fh>);
    $self->{api_key} = $cfg->{applicationKey}
}

=head2 C<< ->request( $method, $

Meetup-API ( C/CO/CORION/Meetup-API-0.02.tar.gz, CORION, 2018; MetaCPAN )

Meetup-API/lib/Meetup/ToICal.pm ( view source; MetaCPAN )


use Exporter 'import';
use POSIX qw(strftime);
use Data::ICal::Entry::Event;
use Date::ICal;
use JSON::PP;

our @EXPORT_OK = qw(meetup_to_icalendar get_meetup_event_uid);
our $VERSION = '0.02';

=hea

icipants => {
            $me => {
                email => $me,
                scheduleRSVP => $JSON::PP::true,
                scheduleStatus => 'needs-action',
                #roles => ['attendee