# Something to mixin
package Printer;

sub print {
  my $self = shift;
  my $val = $self->val;
  print "Value is $val\n";
}