Perl 语言编程 - Linux教程

use base ("Horse", "donkey");# 声 明 一 个 超 类它 是 下 面 东 西 的 缩 写 :package Mule;BEGIN {our @ISA = ("Horse", "Donkey");require Horse;require Donkey;}只 是 use base 还 算 入 所 有 use fields 声 明 中 。有 时 候 人 们 很 奇 怪 的 是 , 在 @ISA 中 包 含 一 个 类 并 没 有 为 你 require ( 请 求 ) 合 适 的 模块 。 那 是 因 为 Perl 的 类 系 统 很 大 程 度 上 是 与 它 的 模 块 相 冲 突 的 。 一 个 文 件 可 以 保 存 许 多 类( 因 为 他 们 只 是 包 ), 而 一 个 包 可 以 在 许 多 文 件 中 提 及 。 但 是 在 最 常 见 的 情 况 下 , 一 个 包 、一 个 类 、 一 个 模 块 、 一 个 文 件 这 样 总 是 相 当 具 有 可 换 性 —— 只 要 你 足 够 倾 斜 ,use base 用法 提 供 了 一 个 声 明 性 的 语 法 , 用 这 个 语 法 可 以 建 立 继 承 , 装 载 模 块 文 件 和 并 且 提 供 任 意 声 明了 的 基 类 域 。 它 也 是 我 们 不 停 提 到 的 最 便 利 的 对 角 线 。 参 阅 第 三 十 一 章 的 use base 和use fields 获 取 细 节 。12.5.2 访 问 被 覆 盖 的 方 法当 一 个 类 定 义 一 个 方 法 , 那 么 该 子 过 程 覆 盖 任 意 基 类 中 同 名 的 方 法 。 想 象 一 下 你 有 一 个Mule( 骡 ) 对 象 ( 它 是 从 Horse( 马 ) 类 和 Donkey( 驴 ) 类 衍 生 而 来 的 ), 而 且 你 想 调用 你 的 对 象 的 breed ( 种 ) 方 法 。 尽 管 父 类 有 它 们 自 己 的 breed( 种 ) 方 法 ,Mule ( 骡 )类 的 设 计 者 通 过 给 Mule( 骡 ) 类 写 自 己 的 breed 方 法 覆 盖 了 那 些 父 类 的 breed 方 法 。这 这 意 味 着 下 面 的 交 叉 引 用 可 能 不 能 正 确 工 作 :$stallion = Horse->new(gender => "male");$molly = Mule->new(gender => "female");$colt = $molly->breed($stallion);现 在 假 设 基 因 工 程 的 魔 术 治 好 了 骡 子 臭 名 昭 著 的 不 育 症 , 因 此 你 想 忽 略 无 法 生 活 的Mule::breed 方 法 。 你 可 以 象 平 常 那 样 调 用 你 的 子 过 程 , 但 是 一 定 要 确 保 明 确 传 递 调 用 者 :301