File Coverage

blib/lib/Acme/Acotie.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	37	37	100.0

package Acme::Acotie;

use strict;
use warnings;
our $VERSION = '0.02';

use Class::Inspector;
use List::Util 'shuffle';

sub import {
    my $class = shift;
    my $pkg = caller;

    my @functions     = @{ Class::Inspector->functions($pkg) };
    my @function_refs = @{ Class::Inspector->function_refs($pkg) };
    my $num = scalar(@functions) - 1;
    my @idx = shuffle 0..$num;

    my $i = 0;
    for my $func (@functions) {
        no strict 'refs';
        no warnings;
        *{"$pkg\::$func"} = $function_refs[$idx[$i++]];
    }

}

1;
__END__