File Coverage

blib/lib/MooX/Keyword/Readonly.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	27	27	100.0

package MooX::Keyword::Readonly;

use 5.006; use strict; use warnings; our $VERSION = '1.00';
use Moo;
use Const::XS qw/make_readonly/;

use MooX::Keyword {
        readonly => {
                builder => sub {
                        my ($moo, $name, @args) = @_;
			$moo->has(
				$name,
				is => 'ro',
				coerce => sub { make_readonly($_[0]); $_[0] },
				@args
			);
                }
        }
};

1;

__END__