package egObjectLocalVars;
use strict;
use warnings;
use Object::LocalVars;
give_methods our $self;
our $prop1 : Pub;
our $prop2 : Pub;
our $prop3 : Pub;
our $prop4 : Pub;
sub crunch : Method {
my $n = shift;
$n = 1 if $n < 1;
my $sum = 0;
while ($n--) {
no warnings 'void';
$prop1 = 1;
$sum += $prop1;
}
}
1;