File Coverage

blib/lib/MooX/Readonly/Attribute.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	39	40	97.5

package MooX::Readonly::Attribute;

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

sub import {
        my $target    = caller;
        my %modifiers = return_modifiers( $target, [qw/before around/] );
        $modifiers{around}->(
                'has',
                sub {
                        my ( $orig, $attr, %opts ) = @_;
                        if (delete $opts{readonly}) {
				if ($opts{coerce}) {
					my $coerce = $opts{coerce};
					$opts{coerce} = sub { my $val = $coerce->(@_); make_readonly($val); $val };
				} else {
					$opts{coerce} = sub { make_readonly($_[0]); $_[0] };
				}
			}
                        $orig->( $attr, %opts );
                }
        );
}
1;


1;

__END__