File Coverage

blib/lib/say.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	23	28	82.1

package say;
use strict;
use warnings;

our $VERSION = '0.01';

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;
        feature->import('say');
    }

    if (scalar @_) {
        feature->import(@_);
    }
}

1;

__END__