File Coverage

blib/lib/Progress/Any/SIGHandler.pm

Criterion	Covered	Total	%
statement	14	27	51.8
branch	0	6	0.0
condition			n/a
subroutine	5	9	55.5
pod	1	1	100.0
total	20	43	46.5

package Progress::Any::SIGHandler;

use 5.010001;
use strict;
use warnings;

use Progress::Any '$progress';
use Progress::Any::Output ();

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-10-30'; # DATE
our $DIST = 'Progress-Any-SIGHandler'; # DIST
our $VERSION = '0.004'; # VERSION

our $Template  = 'Progress: %P/%T (%6.2p%%), %R';
our $Signal    = 'USR1';

sub import {
    my ($package, %args) = @_;

    #if (my $val = delete $args{indicator}) {
    #    $Indicator = $val;
    #}
    if (defined(my $val = delete $args{template})) {
        $Template = $val;
    }
    if (defined(my $val = delete $args{signal})) {
        $Signal = $val;
    }

    die "Unknown import argument(s): " . join(", ", sort keys %args)
        if keys %args;

    install_sig_handler();
}

sub install_sig_handler {
    my $filled_message = "";

    Progress::Any::Output->add(
        'Callback',
        callback => sub {
            my ($self, %args) = @_;
            $filled_message = $progress->fill_template($Template);
        },
    );

    $SIG{ $Signal } = sub {
        warn $filled_message, "\n";
    };
}

1;
# ABSTRACT: Add signal handler so your process can report progress when sent signal e.g. USR1

__END__