The above statement is a concept of Polymorphism in Perl. To clarify the statement, let’s take an example:
[perl]
package X;
sub foo
{
print("Inside X::foo\n");
}
package Z;
@ISA = (X);
sub foo
{
print("Inside Z::foo\n");
}
package main;
Z->foo();
[/perl]
This program displays:
Inside Z::foo
– In the above example, the foo() method defined in class Z class overrides the inheritance from class X. Polymorphism is mainly used to add or extend the functionality of an existing class without reprogramming the whole class.
