package Daughter;

use parent qw(Father);

sub status {
  my $self   = shift;

  $self->{news} = 'bad';

  return $self;
}

sub other {
  my $self   = shift;

  return $self;
}

1;