package FunkyNum;
use strict;
use Class::Contract;


contract {
   attr 'val';

   ctor 'new';
     impl { ${self->val} = $_[0] || 0;  }; #arn't I tricky

   method 'plusequal';
     pre   { defined $_[0] };

     impl {
       ${self->val} += $_[0];
     };
   method 'printval';
     impl {
       return ${self->val};
     }
};