File Coverage

blib/lib/Try/Tiny/Warnings.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	0	3	0.0
total	46	49	93.8

package Try::Tiny::Warnings;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: extension to Try::Tiny to also catch warnings
$Try::Tiny::Warnings::VERSION = '0.0.1';

use strict;
use warnings;

use Exporter;
use Try::Tiny;

use parent 'Exporter';

our @EXPORT = qw/ try_warnings try_fatal_warnings catch_warnings /;

sub try_fatal_warnings(&;@) {
    my($sub,@rest) = @_;
    local $SIG{__WARN__} = \&CORE::die;
    try { $sub->() } @rest;
};

sub try_warnings(&;@) {
    my($sub,@rest) = @_;

    my @warnings;
    local $SIG{__WARN__} = sub { push @warnings, @_ };

    @rest = map {
        my $x = $_;
        ref $_ eq 'Try::Tiny::Warnings::Catch'
            ? finally { $x->(@warnings) }
            : $_
    } @rest;

    try { $sub->() } @rest;
};

sub catch_warnings(&;@) {
    my( $sub, @rest ) = @_;
    $sub = bless $sub, 'Try::Tiny::Warnings::Catch';
    return( $sub, @rest );
};

1;

__END__