File Coverage

test-data/lib/Local/ImportException.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	3	4	75.0
pod	0	1	0.0
total	17	20	85.0

package Local::ImportException;

use strict;
use warnings;

require Exporter;
our @ISA       = qw( Exporter );
our @EXPORT_OK = qw( exceptional );

sub import {
    my $pkg       = shift;
    my $first_arg = shift;
    if ( $first_arg && $first_arg eq 'exceptional' ) {
        die 'oof';
    }
}

sub exceptional { }

1;