Select Code to Download

use v5.10;
use warnings;
...

    return $self->{value};
}

$ perl5_10_1  demo_calc_class.pl
2-3-5
--> 4

$ perl5_10_1  demo_calc_class.pl
8/4/2
--> 4