use Sub::Quote;
has foo => (
- is => quote_sub(q{ die "Not <3" unless $_[0] < 3 })
+ is => 'ro',
+ isa => quote_sub(q{ die "Not <3" unless $_[0] < 3 })
);
which will be inlined as
or to avoid localizing @_,
has foo => (
- is => quote_sub(q{ my ($val) = @_; die "Not <3" unless $val < 3 })
+ is => 'ro',
+ isa => quote_sub(q{ my ($val) = @_; die "Not <3" unless $val < 3 })
);
which will be inlined as