File Coverage

blib/lib/LINE/Bot/API/Builder/SendMessage.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	14	14	100.0
condition			n/a
subroutine	13	13	100.0
pod	0	11	0.0
total	63	74	85.1

package LINE::Bot::API::Builder::SendMessage;
use strict;
use warnings;

sub new {
    my($class, ) = @_;
    bless [], $class;
}

sub build {
    my($self, ) = @_;
    +[ @$self ];
}

sub add {
    my($self, $message) = @_;
    push @{ $self }, $message;
    $self;
}

sub add_text {
    my($self, %args) = @_;
    $self->add(+{
        type => 'text',
        text => $args{text},
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        $args{emojis} ? (
            emojis => $args{emojis},
        ):(),
    });

    $self;
}

sub add_image {
    my($self, %args) = @_;
    $self->add(+{
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        type               => 'image',
        originalContentUrl => $args{image_url},
        previewImageUrl    => $args{preview_url},
    });

    $self;
}

sub add_video {
    my($self, %args) = @_;
    $self->add(+{
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        type               => 'video',
        originalContentUrl => $args{video_url},
        previewImageUrl    => $args{preview_url},
    });

    $self;
}

sub add_audio {
    my($self, %args) = @_;
    $self->add(+{
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        type               => 'audio',
        originalContentUrl => $args{audio_url},
        duration           => $args{duration},
    });

    $self;
}

sub add_location {
    my($self, %args) = @_;
    $self->add(+{
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        type      => 'location',
        title     => $args{title},
        address   => $args{address},
        latitude  => $args{latitude},
        longitude => $args{longitude},
    });

    $self;
}

sub add_sticker {
    my($self, %args) = @_;
    $self->add(+{
        $args{sender} ? (
            sender => $args{sender},
        ) : (),
        type      => 'sticker',
        packageId => $args{package_id},
        stickerId => $args{sticker_id},
    });

    $self;
}

# If you want this method to use, I recommend using LINE::Bot::API::Builder::ImagemapMessage class for you.
sub add_imagemap {
    my($self, $imagemap) = @_;
    $self->add($imagemap);
}

# If you want this method to use, I recommend using LINE::Bot::API::Builder::TemplateMessage class for you.
sub add_template {
    my($self, $template) = @_;
    $self->add($template);
}

1;