File Coverage

lib/PAGI/Utils.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition	3	5	60.0
subroutine	7	7	100.0
pod	1	1	100.0
total	40	42	95.2

package PAGI::Utils;

use strict;
use warnings;
use Exporter 'import';
use Future::AsyncAwait;
use Carp qw(croak);
use PAGI::Lifespan;

our @EXPORT_OK = qw(handle_lifespan);
our %EXPORT_TAGS = (all => \@EXPORT_OK);

async sub handle_lifespan {
    my ($scope, $receive, $send, %opts) = @_;

    my $type = $scope->{type} // '';
    croak "handle_lifespan called with scope type '$type' (expected 'lifespan'). "
        . "Check scope type before calling: "
        . "return await handle_lifespan(...) if \$scope->{type} eq 'lifespan'"
        unless $type eq 'lifespan';

    my $manager = PAGI::Lifespan->for_scope($scope);
    $manager->register(%opts) if $opts{startup} || $opts{shutdown};

    return await $manager->handle($scope, $receive, $send);
}

1;

__END__