diff options
author | doy <doy@tozt.net> | 2009-04-20 02:48:54 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 02:48:54 -0500 |
commit | 05791e154cfb764ee9cb874f014a0baacf282ff7 (patch) | |
tree | 3e2894852660a6fc18a9d225f20c34bd8fcb1bb5 /lib | |
parent | 8acb49daad635c90c0f39cdbab6dbd4ee05537fd (diff) | |
download | moosex-nonmoose-05791e154cfb764ee9cb874f014a0baacf282ff7.tar.gz moosex-nonmoose-05791e154cfb764ee9cb874f014a0baacf282ff7.zip |
add synopsis
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/NonMoose.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm index 37f5d92..4c71fd9 100644 --- a/lib/MooseX/NonMoose.pm +++ b/lib/MooseX/NonMoose.pm @@ -8,6 +8,30 @@ MooseX::NonMoose - easy subclassing of non-Moose classes =head1 SYNOPSIS + package Term::VT102::NBased; + use Moose; + use MooseX::NonMoose; + 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; + __PACKAGE__->meta->make_immutable; + + my $vt = Term::VT102::NBased->new(x_base => 0, y_base => 0); + =head1 DESCRIPTION =cut |