File Coverage

blib/lib/MooseX/Final.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	31	33	93.9

use 5.008;
use strict;
use warnings;

package MooseX::Final;

use Exporter::Tiny ();

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.002';
our @ISA       = qw(Exporter::Tiny);
our @EXPORT    = qw(assert_final);

sub _generate_assert_final {
	my $me = shift;
	my ($name, $args, $globals) = @_;

	my $final_package = exists($args->{package})
		? $args->{package}
		: $globals->{into};
	die "cannot bless things into references"
		if ref $final_package;

	return sub {
		my $class = ref shift;
		return if $class eq $final_package;

		require Carp;
		our @CARP_NOT = ($final_package);
		Carp::croak(sprintf '%s is final; %s should not inherit from it', $final_package, $class);
	};
}

1;

__END__