Perl 模块

helloworld.pl

  #!/usr/bin/perl - w
  利用Hello::World;
  我= Hello::World->new();
  print()>;

  包裹Hello::World;
  利用严密;
  利用警告;
  我们= "1.0";
  
  = head1 名字
  
  Hello::World - 一则通常地产品消息的封闭

  = head1 描述
  
  这是可能打印著名"H.W 的一个面向对象的图书馆。"
  消息。
  
  = head1 概要

  用途喜欢这:
  
     利用Hello:World;
     我= 新Hello:World();
     print()>;

  = head1 方法
  
  =
  
  = 项目新
  
  Instantiates 举行问候消息的对象。
  
  = 裁减
  
  替补新{
     我= 转移;
     我= bless({
        消息= > "你好, 世界!",
     });
     回归;
  }
  
  = 项目toString
  
  退回问候作为串
  
  = 裁减
  
  替补toString {
     我= 转移;
     回归{message>};
  }
  
  = 项目印刷品
  
  输出问候到STDOUT
  
  = 裁减
  
  替补印刷品{
     我= 转移;
     印刷品tostring()>, "\

  }
  
  = 后面
  
  = head1 作者
  
  乔黑客

  = 裁减

  1;