package Son;

use parent qw(Father);

sub set {
  my $self   = shift;

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

  return $self;

}

1;