CPAN::Groonga

me::HiRes qw/gettimeofday tv_interval/;
use HTTP::Request;
use JSON 2;

use constant DEBUG => $ENV{WWW_CONNPASS_DEBUG};

my $_JSON = JSON->new->utf8;

sub new {
    my ($class, %args) = @_;
    my $in

$url, $param) = @_;
    my $content = $_JSON->encode($param);

    my $req = HTTP::Request->new($method, $url, [
        'Content-Type'     => 'application/json',
        'Content-Length'   => length 

$content,
        'Accept'           => 'application/json,text/javascript',
        'Accept-Language'  => 'en-US',
        'Origin'           => 'https://connpass.com',
        'X-CSRFToken'      => $

package WWW::Connpass::Event::Question;
use strict;
use warnings;

use JSON 2;
use Module::Load ();

my @QUESTION_TYPES = qw/FreeText CheckBox Radio PullDown/;

sub _answer_type { die "this is abstrac

answer_type;
    }

    # normalize required option
    $args{required} = $args{required} ? JSON::true : JSON::false;

    # normalize answer_frame to options
    if (exists $args{answer_frame}) {
   

sion;
use strict;
use warnings;

use Carp qw/croak/;
use Web::Query qw/wq/;
use Text::CSV_XS;
use JSON 2;
use URI;

use WWW::Connpass::Agent;
use WWW::Connpass::Event;
use WWW::Connpass::Event::Questi

nnpass::Place;
use WWW::Connpass::User;

use constant DEBUG => $ENV{WWW_CONNPASS_DEBUG};

my $_JSON = JSON->new->utf8;

sub new {
    my ($class, $user, $pass, $opt) = @_;

    my $mech = WWW::Connpas

 => $opts->{group}->id) : (),
    });
    _check_response_error_or_throw($res);

    my $data = $_JSON->decode($res->decoded_content);
    return WWW::Connpass::Event->new(session => $self, event => $