File Coverage

blib/lib/Net/LineNotify.pm

Criterion	Covered	Total	%
statement	20	32	62.5
branch	1	6	16.6
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	30	48	62.5

package Net::LineNotify;

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

our $VERSION = '0.02';

# コンストラクタ
sub new {
    my ($class, %args) = @_;
    my $self = {
        access_token => $args{access_token},  # アクセストークン
        test_mode    => $args{test_mode} // 0, # テストモードフラグ
    };
    bless $self, $class;
    return $self;
}

# LINE Notifyにメッセージを送信するメソッド
sub send_message {
    my ($self, $message) = @_;

    # テストモードの場合、リクエストを送信せず成功を返す
    if ($self->{test_mode}) {
        warn "テストモード: メッセージ送信は実行されません\n";
        return 1;
    }

    my $url = 'https://notify-api.line.me/api/notify';

    # UserAgentのセットアップ
    my $ua = LWP::UserAgent->new;
    $ua->timeout(10);
    $ua->env_proxy;

    # POSTリクエストの作成
    my $req = POST(
        $url,
        'Authorization' => "Bearer " . $self->{access_token},  # トークンをヘッダーに追加
        Content_Type    => 'form-data',
        Content         => [ message => $message ],            # メッセージを送信
    );

    # リクエストを送信し、レスポンスを受け取る
    my $response = $ua->request($req);

    # レスポンスのステータスコードを確認
    if ($response->is_success) {
        return 1;  # 成功
    } else {
        # ステータスコードに応じてエラーメッセージを表示
        if ($response->code == 401) {
            warn "エラー: 認証に失敗しました。アクセストークンが無効です。\n";
        } else {
            warn "エラー: " . $response->status_line . "\n";
        }
        return 0;  # 失敗
    }
}

1;  # パッケージの終わりには1を返す必要があります。

__END__