Perl的面向对象编程

　　八、重载

　　有时需要指定使用哪个类的方法，如两个不同的类有同名方法的时候。假设类Espresso和Qava都定义了方法grind，可以用::操作符指定使用Qava的方法：

　　$mess = Qava::grind("whole","lotta","bags");

　　Qava::grind($mess, "whole","lotta","bags");

　　可以根据程序的运行情况来选择使用哪个类的方法，这可以通过使用符号引用去调用来实现：

　　$method = $local ? "Qava::" : "Espresso::";

　　$cup->{$method}grind(@args);