sub new {
  my $that = shift;
  my $class = ref($that) || $that; #<-- (line 74)
# [snip]
  bless $self, $class;

}