use strict;
use warnings;

package Puu;
use base qw( Class::Accessor::Lvalue::Fast);
__PACKAGE__->mk_accessors(qw(nyo nyu));

package main;
use Data::Dumper;
use Perl6::Say;

sub p($) {
    say Dumper @_;
}

my $puu = Puu->new;
$puu->nyo = 1;
p $puu->nyo; # 1

$puu->nyo++;
p $puu->nyo; # 2

$puu->nyo += 1;
p $puu->nyo; # 3