Select Code to Download

$self->{n} = sub {
   my ($self) = @_;
...
   $self->do_n2();
   return $rv;
}->();

#!/usr/bin/perl -w
use strict;
...
my $test = Test->new();
print($test->n,  "\n");  # 3
print($test->n2, "\n");  # 4