File Coverage

blib/lib/say.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	20	25	80.0

package say;
use strict;
use warnings;

our $VERSION = '0.04';

sub import {
    my $class  = shift;

    my $caller = caller;

    if( $] < 5.010 ) {
        require Perl6::Say;
        Perl6::Say->import;

        no strict 'refs'; ## no critic
        *{$caller . '::say'} = \&Perl6::Say::say;
    }
    else {
        require feature;
        for my $f ('say', @_) {
            feature->import($f);
        }
    }
}

1;

__END__