MooseX::NonMoose::InsideOut(3) | User Contributed Perl Documentation | MooseX::NonMoose::InsideOut(3) |
MooseX::NonMoose::InsideOut - easy subclassing of non-Moose non-hashref classes
version 0.26
package Term::VT102::NBased; use Moose; use MooseX::NonMoose::InsideOut; extends 'Term::VT102'; has [qw/x_base y_base/] => ( is => 'ro', isa => 'Int', default => 1, ); around x => sub { my $orig = shift; my $self = shift; $self->$orig(@_) + $self->x_base - 1; }; # ... (wrap other methods) no Moose; # no need to fiddle with inline_constructor here __PACKAGE__->meta->make_immutable; my $vt = Term::VT102::NBased->new(x_base => 0, y_base => 0);
Jesse Luehrs <doy@tozt.net>
This software is copyright (c) 2014 by Jesse Luehrs.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
2014-02-25 | perl v5.34.0 |