#!/usr/bin/perl

use strict;
use warnings;

{
	package DemoA;

	sub new
	{
		my $class=shift;
		my $self=bless {},$class;
		return $self;
	}

	sub hello
	{
		my $self=shift;
		print $self->message(),"\n";
	}

	sub message
	{
		my $self=shift;
		return 'Hello World';
	}
};

{
	package DemoB;

	use parent -norequire => 'DemoA';

	sub message
	{
		my $self=shift;
		return 'Shalom';
	}
};

my $obja=DemoA->new();
$obja->hello(); # writes "Hello World"

my $objb=DemoB->new();
$objb->hello(); # writes "Shalom"

##</code><code>##

sub new
{
	my $class=shift;
	my $self=$class->SUPER::new(@_);
	$self->{'x'}='y';
	return $self;
}