MooseX::NonMoose::InsideOut − easy subclassing of non−Moose non−hashref classes
version 0.22
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 at tozt dot net>
This software is copyright (c) 2011 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.