File Coverage

blib/lib/Plack/App/PubSubHubbub/Subscriber/Config.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	13	14	92.8
condition	7	7	100.0
subroutine	8	8	100.0
pod	5	5	100.0
total	63	64	98.4

package Plack::App::PubSubHubbub::Subscriber::Config;
use strict;
use warnings;

use URI;

=head1 NAME

Plack::App::PubSubHubbub::Subscriber::Config

=head1 SYNOPSIS

 Plack::App::PubSubHubbub::Subscriber::Config->new(
    callback => 'http://example.org/callback',
    verify => 'sync',
    lease_seconds => 86400,
    token_in_path => 1,
 );

=head1 DESCRIPTION

=head2 $class->new( %args )

=over 4

=item * C is required, must be 'http', must not contain fragment.

=item * C can be 'sync' or 'async', and defaults to 'sync'.

=item * C defaults to undef.

=item * C defaults to 1. This puts the token in the callback URL path, and does not use the hub.verify_token argument of the query string. The main benefit is that the token also known when a ping is received.

=cut

sub new {
    my $class = shift;
    my %args = @_;
    my $self = bless {}, $class;

    my $verify = $args{verify} || 'sync';
    die "verify must be 'sync' or 'async'"
        unless $verify eq 'sync' || $verify eq 'async';
    $self->{verify} = $verify;

    my $cb = $args{callback}
        or die "'callback' required";
    my $uri = URI->new($cb)
        or die "invalid callback";
    die "support only http"
        unless $uri->scheme eq 'http';
    die "fragment is not accepted in the callback"
        if $uri->fragment;
    $self->{callback} = $cb;

    my $lease = $args{lease_seconds};
    if (defined $lease) {
        die "invalid number of seconds"
            unless $lease >= 0;
    }
    $self->{lease_seconds} = $lease;

    $self->{token_in_path} = $args{token_in_path} // 1;

    return $self;
}

sub callback { $_[0]->{callback} }

sub verify { $_[0]->{verify} }

sub lease_seconds { $_[0]->{lease_seconds} }

sub token_in_path { $_[0]->{token_in_path} }

1;