package MyA;

use warnings;
use strict;

sub new { bless { a => 'A' }, shift }

sub a { shift->{a} }

__PACKAGE__


##</code><code>##

package MyB;

use warnings;
use strict;

sub new { bless { b => 'B' }, shift }

sub b { shift->{b} }

__PACKAGE__


##</code><code>##

package MyC;

use warnings;
use strict;

use parent qw{ MyA MyB };  # Multiple inheritance, MyA takes precedence

__PACKAGE__


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

use MyC;

my $c = 'MyC'->new;
print $c->a;
print $c->b;  # uninitialized value


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,