File Coverage

blib/lib/Seven.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod			n/a
total	42	43	97.6

package Seven;

use 5.006;
use strict;
use warnings;

our $VERSION = 0.05;

our @FAKE;

BEGIN {
	@FAKE = qw/riot laughter greed dishonesty innocent accountability/;
}

sub import {
	my ($self, @import) = @_;

	if (scalar @import == 1 && $import[0] eq 'all') {
		@import = @FAKE;
	}

	my $caller = caller;

	for (@FAKE) {
		no strict 'refs';
		*{"${caller}::$_"} = sub {
			my ($cb) = @_;
			$cb->();
			print "\n";
		};
	}
	{
		no strict 'refs';
		*{"${caller}::luck"}  = sub {
			print qq|It's the fifthteenth day in another hospital prison, this time I am fully aware and all around me are also, pretty pointless really but we are slowly climbing the ladder with invisibility. The world dictatorship will fall, they are just clinging onto power now.\n|;
		};
	}
}

1;

__END__